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