日期相加就可以了。
var Date1,Date2 :TDateTime; Date1 := StrToDateTime('2001-11-06');
Date2 := Date1 + 25 ; //25天后的日期
var Date1,Date2 :TDateTime; Date1 := StrToDateTime('2001-11-06');
Date2 := Date1 + 25 ; //25天后的日期
解决方案 »
- 关于DBGRID控件几个初学问题
- 哀求《参透Delphi/Kylix》附书光盘
- OCX和DLL有什么区别?
- 请教斑竹等高手,图形怎样连同坐标系一起放大放小,为什么autocad中的图形无论怎么旋转缩放一点都不变形?就连取整误差都看不出来。
- 必须要用缓存更新输入数据,又要即时对输入数据进行合计(即是一边输单,下面显示合计)。该怎样做?
- 谁会用DELPHI实现OUTLOOK里的新增邮件时从通讯簿选择收发人啊?
- 关于团队!
- 一个奇怪的问题?
- 求CadoDraw4_C4.exe的Winzip解压密码!!恳请知道的朋友帮忙!!
- 一个delphi问题!
- 各位大虾,如何获取系统BOIS信息?
- 如何备份\恢复数据库?
var
iDate:TDateTime;
begin
iDate:=Date;
showMessage(DateToStr(iDate+25));
end;
看看结果。