blob: 2f21703a855d9923ff6f4ff0188bd14ff0a69d91 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
{$mode objfpc}
uses
sysutils;
var
d : tdatetime;
begin
try
d:=strtodate('03'+dateseparator+'03'+dateseparator+'2033');
except
halt(1);
end;
writeln(1);
try
d:=strtodate('2.2/2');
halt(1);
except
end;
writeln(2);
try
d:=strtodate('33'+dateseparator+'33'+dateseparator+'33');
halt(1);
except
end;
writeln('ok');
end.
|
