delphi 日期加减

本文整理自网络，侵删。

 
function AddDays(const DateTime: TDateTime; const Days: Integer): TDateTime;
begin
  Result := DateTime + Days;
end;

function SubtractDays(const DateTime: TDateTime; const Days: Integer): TDateTime;
begin
  Result := DateTime - Days;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
caption:=datetimetostr(AddDays(date,1)); //加1天
caption:=datetimetostr(SubtractDays(date,1));  //减1天
end;
 

相关阅读 >>

Delphi 命令行程序调用单元函数

Delphi取得桌面工作区域的大小

Delphi memo1 光标跟随鼠标移动

Delphi 检查输入的ip地址串是否合法

Delphi vcl 的 tpagecontrol 控件，实现对页签的拖动

Delphi 程序嵌入桌面效果的实现

Delphi 抓屏技巧二三例

Delphi 提取字符串中所有数字

Delphi 获取windows任务栏的高度

Delphi xe6 android 查看电池信息

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 日期加减