Predmet:Re: Broj tjedna
Trebalo je samo promijeniti ovo:
DatumS = DatumS - 1 i
DatumS = DatumS + 1
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 - 1
GoTo Start
ElseIf Val(T) < Tjedan Then
DatumS = DatumS + 1
GoTo Start
ElseIf Val(T) = Tjedan Then
Dan = WeekDay(DatumS)
Datum1 = DatumS - Dan + 1
Datum2 = Datum1 + 6
End If
DanUTjednu = Datum1 & "-" & Datum2
End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden
1
puta. Posljednja izmjena 14.04.2011 11:09 od strane zxz.