Hieronder een kleine functie om een String om te zetten naar een DATE.
Wel gebruik van een vast formaat maken:
Text2Date(TextDate:Text[30]):Date
IFTextDate=''THEN
EXIT(0D);
IF NOT EVALUATE(Year,COPYSTR(TextDate,1,4)) THEN
EXIT(0D);
IF (Year<1) OR (Year>9999) THEN
EXIT(0D);
IF NOT EVALUATE(Month,COPYSTR(TextDate,5,2)) THEN
EXIT(0D);
IF (Month<1) OR (Month>12) THEN
EXIT(0D);
IF NOT EVALUATE(Day,COPYSTR(TextDate,7,2)) THEN
EXIT(0D);
IF (Day<1) OR (Day>DATE2DMY(CALCDATE('<+1M-1D>',DMY2DATE(1,Month,Year)),1)) THEN
EXIT(0D);
EXIT(DMY2DATE(Day,Month,Year));