如何計算相差的天數,謝謝!
解决方案 »
- 关于TTCpclient和TTCpServer的使用
- 如何用Delphi编写 查杀、免疫 蠕虫病毒的程序(源码)
- 怎样让进程运行在窗口里面
- 一个程序里面如何在状态栏显示多个窗口?
- 谁能推荐一些用delphi连接sql案例资料
- 用ado做查询,想实现像查询分析器(按文本方式显示查询结果)那样把结果集保存在文本文件里面。
- 以下代码有问题?请指教
- 如何在listview中显示图标?
- delphi fortran 混合编程
- 关于LISTVIEW控件中数据的定位问题!!!!(奇怪的现象,只有在vsReport下,才管用。其他的模式就不行了,为什么?请高手指教!!)
- 关于数组和指针的问题.
- 关于线程的问题,望高手指点!
理解?不要用DateToStr之类的去看直接当Double型来操作
以下是Dllphi7中的定义function DaysBetween(const ANow, AThen: TDateTime): Integer;
begin
Result := Trunc(DaySpan(ANow, AThen));
end;function DaySpan(const ANow, AThen: TDateTime): Double;
begin
Result := SpanOfNowAndThen(ANow, AThen);
end;function SpanOfNowAndThen(const ANow, AThen: TDateTime): TDateTime;
begin
if ANow < AThen then
Result := AThen - ANow
else
Result := ANow - AThen;
end;