Predmet:Re: Broj tjedna
PreuzmiIzvorni kôd (Visual Basic):Function DanUTjednu(Tjedan As Integer)
Dim DatumS
Dim T, Dan, Datum1, Datum2
DatumS = Date
Start:
T = Format(DatumS, "WW")
If Val(T) > Tjedan Then
DatumS = DatumS - 7
GoTo Start
ElseIf Val(T) < Tjedan Then
DatumS = DatumS + 7
GoTo Start
ElseIf Val(T) = Tjedan Then
Dan = WeekDay(DatumS)
Datum1 = DatumS - Dan + 1
T = Format(Datum1, "WW")
Datum2 = Datum1 + 6
T = Format(Datum2, "WW")
End If
DanUTjednu = Datum1 & "-" & Datum2
End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.