Ugenummer til dato

Hmm, den dato du leder efter, er det den første dag i ugen, eller den sidste. Det er jo ikke helt lige meget...

DateSerial("2000", "2", "1"): 01-02-2000

Sådan

Om datoen bliver udskrevet i Europæisk-format: 01-02-2000

Eller amerikansk format: 02-01-2000

Afhænger af indstillingen af serveren.

Check iøvrigt: denne adresse
http://1001line.dk/filop/artikler/datoer.asp

Her finder du en let forklarlig tekst om datoer med VBS

Til LRJ

Ja, du har ret det burde jeg have skrevet. Jeg ønsker lørdagen.

Med venlig hilsen

Samuel Sayilgan

TIL ABC!!

Prøv lige at læse mit spørgsmål igen!! Så vidt jeg kan se er det ikke et ugenummer du konvertere men bare tekststrenge der bliver til en dato. Ja, det er jo faktisk det jeg ønsker men input skal være et ugenummer og årstal.

Du gør sådan her:

'Returner dato på lørdagen i et givet ugenummer i et givet år
Function SaturdayOfWeek(ugenr, aar)
  SaturdayOfWeek = DateAdd( "ww", ugenr, "1/1/" & aar )
  Ugedag = Weekday(SaturdayOfWeek)
  if Ugedag <> 7 then
    select case Ugedag
      case 1,2,3,4,5,6
        SaturdayOfWeek = DateAdd("d", 7-Ugedag, SaturdayOfWeek)
      case 0
        SaturdayOfWeek = DateAdd("d", -1, SaturdayOfWeek)
    End Select
  end if
end Function

Tak!! den fungere perfekt.

Med venlig hilsen

Samuel Sayilgan