Avatar billede sunesune Nybegynder
14. januar 2002 - 09:03 Der er 5 kommentarer og
1 løsning

Ugenummer til dato

Er der en der kan hjælpe mig med at omregne, via et ugenummer og en dag (Dagen som tal, man = 1, tir = 2 osv.) til en dato..
Feks 1,4 = Mandag, uge 4
14. januar 2002 - 09:05 #1
Denne function finder fredagen ud fra en given ug og år (året er jo vigtigt)

Public Function FindDato(År As Integer, Uge As Byte) As Date
  FindDato = DateSerial(År, 1, Uge * 7 + Choose(DatePart(\"w\", DateSerial(År, 1, 1), vbMonday, vbFirstFourDays), -2, -3, -4, -5, -6, 0, 1))
End Function
14. januar 2002 - 09:06 #2
Jeg spurgte om det næsten samme i dette spørgsmål og fik dette svar af ProAccess
14. januar 2002 - 09:06 #3
Avatar billede sunesune Nybegynder
14. januar 2002 - 09:10 #4
Det virker fint, men jeg har kun en dato, og skal udfra den finde ugenummeret og dagen.. Jeg fik vist formuleret mig forkert før...sorry..:(
14. januar 2002 - 09:12 #5
Arh, sorry...my bad ;o)

Format([Dato],\"ww\") giver ugenr
Day([Dato]) giver dagen.

/Thomas
14. januar 2002 - 09:15 #6
weekday([Dato],vbMonday) giver ugedagen
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester