Prikazi cijelu temu 13.04.2011 23:26
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Broj tjedna
PreuzmiIzvorni kôd (Visual Basic):
  1. Function DanUTjednu(Tjedan As Integer)
  2. Dim DatumS
  3. Dim T, Dan, Datum1, Datum2
  4.  
  5. DatumS = Date
  6. Start:
  7. T = Format(DatumS, "WW")
  8. If Val(T) > Tjedan Then
  9. DatumS = DatumS - 7
  10. GoTo Start
  11. ElseIf Val(T) < Tjedan Then
  12. DatumS = DatumS + 7
  13. GoTo Start
  14. ElseIf Val(T) = Tjedan Then
  15. Dan = WeekDay(DatumS)
  16. Datum1 = DatumS - Dan + 1
  17. T = Format(Datum1, "WW")
  18. Datum2 = Datum1 + 6
  19. T = Format(Datum2, "WW")
  20. End If
  21. DanUTjednu = Datum1 & "-" & Datum2
  22. End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.