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 KrajRada > Reper2 Then KrajRada = Reper2 End If Rez = KrajRada - PocetakRada Nocni = Format(Rez, "hh:mm") Kraj: Exit Function End Function