procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
i:=daysbetween(strtodate('2003-11-12'),DateTimePicker1.Time);
label1.Caption:=inttostr(i);
end;
end.当选择11月12日以后的日期显示不会出错,但选择11月12日以前的却总是少一天???这是为什么????
var
i:integer;
begin
i:=daysbetween(strtodate('2003-11-12'),DateTimePicker1.Time);
label1.Caption:=inttostr(i);
end;
end.当选择11月12日以后的日期显示不会出错,但选择11月12日以前的却总是少一天???这是为什么????
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货