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));