21. januar 2004 - 22:58Der er
6 kommentarer og 1 løsning
beregn ugenr ud fa given dato
jeg er i gang med et kalendersystem, hvor jeg har fået sjusset mig frem til datoerne, så de vises korrekt. Jeg kunne godt tænke mig at få ugenummer med. Mit datoformat er dd/mm/yyyy såan listes det: mandag | tirsdag | onsdag | torsdag | fredag | lørdag | søndag datoerne herunder
foran mandag vil jeg gerne have ugenummer. Hvordan gør jeg ?
er det så denne jeg skal bruge? Function WOY (MyDate As Date) As Integer ' Week Of Year WOY = Format(MyDate, "ww", vbMonday, vbFirstFourDays) If WOY > 52 Then If Format(MyDate + 7, "ww", vbMonday, vbFirstFourDays) = 2 Then WOY = 1 End If End Function
Function WOY (MyDate) ' Week Of Year WOY = DatePart("ww", MyDate, vbMonday, vbFirstFourDays) If WOY > 52 Then If DatePart("ww", MyDate + 7, vbMonday, vbFirstFourDays) = 2 Then WOY = 1 End If End Function
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.