Prikazi cijelu temu 13.07.2015 17:20
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: izracun nocnog rada
Posto niko nije htio evo mene opet.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Nocni(ByVal PocetakRada As Date, ByVal KrajRada As Date)
  2. 'nocni 22-6
  3. Dim I As Single
  4. Dim Reper1 As Date
  5. Dim Reper2 As Date
  6. Dim Rez
  7.  
  8.  
  9. If PocetakRada > KrajRada Then
  10. KrajRada = KrajRada + 2
  11. PocetakRada = PocetakRada + 1
  12. Reper1 = "31.12.1899 22:00"
  13. Reper2 = "01.01.1900 06:00"
  14. Else
  15. KrajRada = KrajRada + 1
  16. PocetakRada = PocetakRada + 1
  17. Reper1 = "31.12.1899 00:00"
  18. Reper2 = "31.12.1899 06:00"
  19.     If PocetakRada > Reper2 Then
  20.     Reper1 = "31.12.1899 22:00"
  21.     Reper2 = "01.01.1900 00:00"
  22.     End If
  23. End If
  24.  
  25. If PocetakRada <= Reper1 Then
  26.     If KrajRada >= Reper1 Then
  27.     PocetakRada = Reper1
  28.     Else
  29.         Nocni = 0
  30.         GoTo Kraj
  31.     End If
  32. End If
  33.  
  34. If KrajRada > Reper2 Then
  35.    KrajRada = Reper2
  36. End If
  37.  
  38. Rez = KrajRada - PocetakRada
  39. Nocni = Format(Rez, "hh:mm")
  40.  
  41. Kraj:
  42. Exit Function
  43.  
  44. End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.