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 ?
Skal virksomheder stå stærkere mod angreb og kunne udvikle sig, skal sikkerhed, drift og forretning tænkes sammen. Det er tanken bag Jysk IT’s ambition om at skabe en “sikker fremtid” for kunderne.
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.