3
{ This program demonstrates the StrToDate function }
7
Procedure TestStr (S : String);
10
Writeln (S,' : ',DateToStr(StrToDate(S)));
15
Writeln ('ShortDateFormat ',ShortDateFormat);
16
TestStr(DateTimeToStr(Date));
17
TestStr('05/05/1999');
b'\\ No newline at end of file'