Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Function BrojTjedna(Tjedan As Integer, koji As Boolean) As Date
Dim T, Dan, Pocetni
Dim Datum1 As Date
Dim i
Datum1 = "01.01." & Format(Now(), "yyyy")
Pocetni = Datum1
For i = 1 To Tjedan
Datum1 = DateAdd("d", 7, Datum1)
Next i
Dan = DateAdd("d", -7, Datum1)
If Dan = Pocetni And koji = True Then: BrojTjedna = Pocetni: Exit Function
If koji = Tru