Prikazi cijelu temu 14.04.2011 08:53
roko Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Rijeka


Predmet:Re: Broj tjedna
Evo riješio problem (2017 i 2011...)
vezo sam na prvu funkciju da vrati prvi i zadnji dan tjedna pa ako je 01.01.2017 nedelja
ne daje drugi tjedan kao prvi nego nedelju ka prvi pa onda dalje redom
PreuzmiIzvorni kôd (Text):
  1. Function BrojTjedna(Tjedan As Integer, koji As Boolean) As Date
  2. Dim T, Dan, Pocetni
  3. Dim Datum1 As Date
  4. Dim i
  5. Datum1 = "01.01." & Format(Now(), "yyyy")
  6. Pocetni = Datum1
  7. For i = 1 To Tjedan
  8. Datum1 = DateAdd("d", 7, Datum1)
  9. Next i
  10. Dan = DateAdd("d", -7, Datum1)
  11. If Dan = Pocetni And koji = True Then: BrojTjedna = Pocetni: Exit Function
  12. If koji = True Then
  13. BrojTjedna = DanUTjednu(DateAdd("d", -7, Datum1), True)
  14. Else
  15. BrojTjedna = DanUTjednu(DateAdd("d", -7, Datum1), False)
  16. End If
  17. End Function