Weeknummer in Lotusscript

Voor een applicatie had ik een weeknummer functie nodig. Format(Now,”ww”) werkt niet goed voor jaren waar een week 53 bestaat. Een iets aangepaste script van de MSDN site werkt echter prima. Invoer Is een datum, uitvoer Is een tekst met het jaar en het weeknummer waarin de invoerdatum valt. Function getWeekNumber(InDate As NotesDateTime) As String On Error GoTo ErrorHandler Dim DayNo As Integer Dim StartDays As Integer Dim StopDays As Integer Dim StartDay As Integer Dim StopDay As Integer Dim […]

Lees het hele bericht