Christian Kragh wrote:
> Jeg er igang med at lave en kalender og til dette har jeg brug
> for at kunne konvatere et uge nummer og et årstal til en
> startdato.
>
> Er det nogle der kender en funktion til at gøre dette?
Jeg tror denne kan klare dit problem. Jeg har testet lidt
hurtigt, du må selv lige kigge efter om den nu også altid
holder...
Function GetMondayInWeek(iYear, iWeekOfYear)
' 4. januar i år iYear er altid i uge 1 i år iYear
' 4. januar + (iWeekOfYear - 1) uger er altid i uge iWeekOfYear
i år iYear
dtADayInTheWeek = DateAdd("ww", iWeekOfYear - 1,
DateSerial(iYear, 1, 4))
' Vi skal nu bare finde mandagen i den uge
GetMondayInWeek = DateAdd("d", 1 - Weekday(dtADayInTheWeek, 2),
dtADayInTheWeek)
End Function
Jeg har lavet den, så den virker i dansk ugenummerering, og hvor
mandag starter ugen. Den kan nok simpelt generaliseres, men det
kan du måske selv hvis det er relevant.
Der er heller ikke nogle tjek om inddata, fx virker uge 100 i år
2000...
mvh Torben
--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials