Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
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