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 = True Then
BrojTjedna = DanUTjednu(DateAdd("d", -7, Datum1), True)
Else
BrojTjedna = DanUTjednu(DateAdd("d", -7, Datum1), False)
End If
End Function