用
DaysBetween(const ANow, AThen: TDateTime): Integer;
DaysBetween(const ANow, AThen: TDateTime): Integer;
解决方案 »
- 如何将edit中两个内容代入sql语句的问题还是没有解决
- delphi高手进来看看啊,有关图像缩放的问题!!!!
- 怎样找到指定的目录
- 文件删除问题
- 请大家帮忙!!!
- 怎样获取TAdoDataSet中数据项的数据类型?
- 一个基于FORM的程序,如何在某个Form里实现MDI
- Invalid variant type conversion 是什么错误
- 请教: 如何找到 菜单 的 双亲?
- bde+mdb+dao、ado+mdb+dao、diamond+mdb哪种方案好?分发如何?
- Tcheck.create(Aowner) 的位置怎么放,Aowner怎么用? 如果放在Tscrollbox中怎么设?
- 如何清空TreeView里面的内容?
如果你是d5下
就这样用吧function dispersion (BeginDate,EndDate:String):Integer;
begin result:=trunc(abs(strtodate(BeginDate)-strtodate(EndDate)));
end;