Det var en intressant fråga. Det finns ingen VBscript-funktion för det iaf. Det man bör tänka på är:
- När börjar vecka 1?
- Börjar veckan med en söndag eller måndag?
Jag skulle nog skriva funktionen något i den här stilen:
Function getFirstWeekDate(ByVal nWeekNo, ByVal firstdayofweek, ByVal firstweekofyear)
End Function
Där funktionen returnerar en date-variabel som är veckans första datum.
Där variabeln firstdayofweek är 1-7 som bestämmer på vilken dag som veckan börjar.
Firstweekofyear bestämmer när vecka 1 börjar. Samma som VBScript-konstanterna:
- vbUseSystem, 0, Use National Language Support (NLS) API setting.
- vbFirstJan1, 1, Start with the week in which January 1 occurs (default).
- vbFirstFourDays, 2, Start with the week that has at least four days in the new year.
- vbFirstFullWeek, 3, Start with the first full weekof the new year.
Borde inte vara så himla knepigt att skriva.