Predmet:Re: nočni sati
Ako bi htio racunati vise od 24 h da traje radno vrijeme onda bi morao uzeti u obzir datum.
PreuzmiIzvorni kôd (Visual Basic):Function Sati(V1 As Date, V2 As Date) As Date
Dim Vr As Single
If V1 > V2 Then
V2 = V2 + 1
End If
Do While V1 <= V2
If V1 >= "23:00" Or V1 <= "6:00" Then
Vr = Vr + 0.001
End If
V1 = V1 + 0.001
Loop
Sati = Vr
End Function
U Queryu U polje Fields upises:
S: sati([Imepoljavrijemeod];[Imepoljavrijemedo])
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden
1
puta. Posljednja izmjena 27.02.2011 18:39 od strane Kiro.