高分求一日期相减算法!!!在线等候 rt 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 呵呵..日期说到底是DOUBLE形的..直接相减就可以了.. Var d1,d2:TDate; Diff:real;begind1:=date;d2:=StrToDate('2002-10-01');Diff:=d1-d2;showmessage(FloatToStr(Diff));end; 如何在模式窗口关闭时刷新原始页面的数据? 运行一外部程序后,可得到其主窗体及用getmenu得到总菜单的句柄,能不能根据菜单的句柄得到菜单的enabled属性? 提问 各位大哥谁用过Interbase数据库,如何用Sql Explor打开gdb表? 求助,怎样把数据库表里的数据转化为csv文件? DBGrid显示的问题 无法找到对象???很奇怪o,请高人指点!!! 请问如何获得RichEdit中某一行的字体特征?!!(在线等待!!) 如何修改iframe里面的body zswang(伴水)(被黑中) ,进来领分! 再来100 我爱开蓝鸟!
直接相减就可以了..
d1,d2:TDate;
Diff:real;
begin
d1:=date;
d2:=StrToDate('2002-10-01');
Diff:=d1-d2;
showmessage(FloatToStr(Diff));end;