Prikazi cijelu temu 27.02.2011 13:42
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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):
  1. Function Sati(V1 As Date, V2 As Date) As Date
  2. Dim Vr As Single
  3.  
  4. If V1 > V2 Then
  5. V2 = V2 + 1
  6. End If
  7. Do While V1 <= V2
  8. If V1 >= "23:00" Or V1 <= "6:00" Then
  9. Vr = Vr + 0.001
  10. End If
  11. V1 = V1 + 0.001
  12. Loop
  13. Sati = Vr
  14. End Function
U Queryu U polje Fields upises:
S: sati([Imepoljavrijemeod];[Imepoljavrijemedo])
Podrška 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.