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