关于Delphi的日期计算问题: function GetDayNum(BDate,EDate:TDate):integer;begin Result:=Trunc(EDate)-Trunc(BDate);end; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var date1:TDate; date2:TDate;begin date1:=StrToDate('1999-12-3'); date2:=StrToDate('2002-10-30'); Edit1.text:=FloatToStr(date2-date1);end;日期类型其实是作为双精度浮点型存储的,可以直接相减,也可以用< > <= >= =来进行逻辑运算。 TADODataSet动态创建表及数据的问题 我需要TSPSKIN 请问哪里有 急需要 TServerSocket是什么? 如何将数值型的记段在DBGRID中显示时,整数在显示的时候也加上小数点和两个0? 请问,如何将fastReport生成的报表导出,可以生成哪几中格式的?急急急急 小问题 新手请教 如何读取文本文档的内容?? 在程序代码中明明调用了当前活动 Form的Close方法,但有时不能立即关闭,怎么办? 关于窗口的问题,来着有分! 大虾,怎么样将文本文件倒入到数据库中?文本文件的内容如下: delphi编程的后续工作
date1:TDate;
date2:TDate;
begin
date1:=StrToDate('1999-12-3');
date2:=StrToDate('2002-10-30');
Edit1.text:=FloatToStr(date2-date1);
end;日期类型其实是作为双精度浮点型存储的,可以直接相减,也可以用< > <= >= =来进行逻辑运算。