DateToWeek Datum- en Tijdfunctie

Met DateToWeek kan een datum in formaat (JJ)JJMMDD omgerekend worden naar het formaat JJJJWWd. De functie resulteert in de waarde JJJJWWd indien succesvol en anders (zoals bij een niet bestaande datum) in de waarde 0.

RetValue = DateToWeek(DateValue)

DateValue (Expressie)
In DateValue wordt de datum in het formaat (JJ)JJMMDD vermeld. Indien (JJ)JJ met 2 cijfers wordt opgegeven dan wordt 1900 opgeteld indien (JJ)JJ groter of gelijk is aan 85 en 2000 indien (JJ)JJ kleiner is dan 85 om het jaar te bepalen.

RetValue
De functie resulteert in de waarde JJJJWWd met JJJJ het jaar, WW het weeknummer van 1 t/m 53 en d het dagnummer. Voor het dagnummer geldt een waarde van 0 t/m 6 met: 0=maandag, 1=dinsdag, 2=woensdag etc.


Voorbeeld:
{
 Integer iWeek,iDatum,iTestDatum
 String sDatum
 iDatum = 20001229
 FormatDate(sDatum,"dddd, d MMMM yyyy",iDatum)
 iWeek = DateToWeek(iDatum)
 iTestDatum = WeekToDate(iWeek)
}
[sDatum]
JJJJMMDD=20001229 => JJJJWWd =[iWeek]
JJJJWWd =[iWeek]  => JJJJMMDD=[iTestDatum]

Resultaat:
vrijdag, 29 december 2000
JJJJMMDD=20001229 => JJJJWWd =2000524
JJJJWWd =2000524  => JJJJMMDD=20001229