敬请帮忙,谁有日期求差的函数,寄来一用 用DaysBetween(const ANow, AThen: TDateTime): Integer; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 上面的函数是d6下的,如果你是d5下就这样用吧function dispersion (BeginDate,EndDate:String):Integer;begin result:=trunc(abs(strtodate(BeginDate)-strtodate(EndDate)));end; GPRS短信猫控件二次开发问题 有没有Delphi调试增强工具 怎么样把DBGrid中的小写字母先转化为大写字母再保存? 再问DBGrid中放入checkbox的问题... 求条SQL语句,ACCESS数据库。请各位大哥大姐进来看看!!!! 紧急求救! 能不能用delphi控制IIS打开和关闭??? 问题????困惑!!! 如何捕获TDBEdit里的出错事件 如何根据外部程序按纽的句柄屏蔽其鼠标单击? Tcheck.create(Aowner) 的位置怎么放,Aowner怎么用? 如果放在Tscrollbox中怎么设? 如何清空TreeView里面的内容?
如果你是d5下
就这样用吧function dispersion (BeginDate,EndDate:String):Integer;
begin result:=trunc(abs(strtodate(BeginDate)-strtodate(EndDate)));
end;