FUNCTION Normier_Datum (cText) LOCAL dReturn IF "-" $ cText SET DATE ANSI ENDIF dReturn = CTOD(cText) SET DATE GERMAN RETURN dReturn