Predmet:Re: izracun nocnog rada
Posto niko nije htio evo mene opet.
PreuzmiIzvorni kôd (Visual Basic):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
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.