8 cijfers datum omzetten naar weeknummers

[cvnh1969]

Beste Forumleden,

Ik ben in ACCES begonnen en vroeg me af hoe je 8 cijfers (20130511) kunt omzetten naar een week nummer in ACCES?

Bekijk bijlage test.zip

Bedank alvast
Groet Chris:d

 

[OctaFish]

Met de functies DATESERIAL(LEFT(veld;4);MID(veld;5;2);RIGHT(veld;2)). Het kan zijn dat de MID functie ook eerst de veldnaam heeft en daarna de startpositie. Doe dit uit mijn hoofd
Hiermee maak je een datum van je tekstveld. Op dit forum vind je de functie IsoWeekNummer waarmee je de week uit de datum kunt vissen.

 

[cvnh1969]

Hoi OctaFish,

Bedankt voor je antwoord ik kom er alleen nog niet uit! ik heb een voorbeeld toegevoegd.

thanks
Chris

 

[OctaFish]

Mijn voorbeeldje was inderdaad niet goed, al had je die zelf wel goed kunnen krijgen denk ik met wat puzzelen. Je hebt dus een functie nodig die het weeknummer berekent, en die ziet er zo uit:

Function IsoWeekNummer(InDate As Date) As Integer
Dim d As Date
    d = DateSerial(Year(InDate - WeekDay(InDate - 1) + 4), 1, 3)
    IsoWeekNummer = Int((InDate - d + WeekDay(d) + 5) / 7)
End Function

Die functie zet je in een nieuwe of bestaande module (in je voorbeeld heb je nog geen module en moet je die dus nog invoegen).
Daarna kun je een query maken en het weeknummer op deze manier berekenen:

Weeknummer: IsoWeekNummer(DateSerial(Left([RETURNDATE];4);Mid([RETURNDATE];5;2);Right([RETURNDATE];2)))