uses DateUtils;var
days :integer ;
begin
days := DaysBetween(date2, date1) ;
//days即为相差天数
end ;
解决方案 »
- delphi Image画面点击停止后 如何清除该图像 然后在本页面显示另外一个图像?如何用代码来实现?
- 关于多线程
- delphi 能写像c#一样的数据层操作类吗?
- 使用indy里的idtcpserver和idtcpclient传送多个文件的问题
- DBGRID中如何把某一列变为可以有下拉框的功能???
- strtodatedef 函数的问题
- 怎么能给一个让一个label显示 ''%'' (用代码)
- 为什么actionlist编辑器的第二栏action的名字有的不能显示完整?
- 求一个文件名加密解密算法,谢谢!
- 一个学过OOA/OOD, UML,Design Pattern, C++, JAVA(一点点),DEPHIL的家伙,该如何继续前进呢?
- 任务栏上的托盘怎样强制刷新?简单的很
- 我想问一问,哪里有关于MIME的资料。一会儿给分。谢谢
t1,t2:TDateTime;
t3:integer;
begin
t1:=date+2;
t2:=date-2;
t3:=trunc(double(t1)-double(t2));
end;