5,927
社区成员




var
D0, D1: TDateTime;
begin
D0 := StrToDateTime('2011-05-02');
D1 := StrToDateTime('2011-05-01');
if D0 > D1 then
ShowMessage(DateTimeToStr(D0))
else
ShowMessage(DateTimeToStr(D1))
end;
var
D0,D1:TDateTime;
begin
D0 := StrToDateTime('2011-05-01');
D1 := StrToDateTime('2011-05-01');
if D0 > D1 then
ShowMessage(DateTimeToStr(D0)) else
ShowMessage(DateTimeToStr(D1))
end;