Wie wäre es damit:
Code:
 /Free
    Monitor;
       RealDate = %Date(AlphaDate: *EUR0);
    On-Error;
       //Ungültiges Datum
    EndMon;
 /End-Free
Birgitta