Avatar billede hugopedersen Nybegynder
22. juni 2013 - 15:00 Der er 1 løsning

Finde startdato for en given uge

Jeg har en userform hvor der kan vælges et årstal og et ugenummer.
Ud fra dette skal jeg så finde den første dato i den uge.
Det virker ikke helt efter hensigten med nedenstående da den godt nok returnerer en dato, men den er i efterfølgende uge

  Dim Temp As Date
 
  Temp = "1-1-" & Me.txtYear.Value
 
  Me.txtDate.Value = Format((7 * Val(Me.txtWeek.Value)) + DateSerial(Me.txtYear.Value, 1, 1) - (Weekday(Temp, vbMonday)), "dd-mm-yyyy")
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

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