<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
Function Nocni(ByVal PocetakRada As Date, ByVal KrajRada As Date)
'nocni 22-6
Dim I As Single
Dim Reper1 As Date
Dim Reper2 As Date
Dim Rez


If PocetakRada > KrajRada Then
KrajRada = KrajRada + 2
PocetakRada = PocetakRada + 1
Reper1 = "31.12.1899 22:00"
Reper2 = "01.01.1900 06:00"
Else
KrajRada = KrajRada + 1
PocetakRada = PocetakRada + 1
Reper1 = "31.12.1899 00:00"
Reper2 = "31.12.1899 06:00"
    If PocetakRada > Reper2 Then
    Reper1 = "31.12.1899 22:00"
    Reper2 = "01.01.1900 00:00"
    End If
End If

If PocetakRada <= Reper1 Then
    If KrajRada >= Reper1 Then
    PocetakRada = Reper1
    Else
        Nocni = 0
        GoTo Kraj
    End If
End If

If