procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
d,t:TDateTime;
begin
s:='2008-09-30 08:01:01';
d:=StrToDateTime(s);
t:=now;
Memo1.Lines.Add('d='+DateTimeToStr(d));
Memo1.Lines.Add('t='+DateTimeToStr(t));
if d<t then Memo1.Lines.Add('d<t')
else Memo1.Lines.Add('d>=t');end;结果是在memo1显示:
d=2008-9-30 8:01:01
t=2008-9-28 23:45:05
d>=t
======
d>=t???!!!这是什么回事?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货