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 twebbrowser流程讲解及如何判断下载网页成功

Delphi ord chr byte等转换

Delphi xe5在zip文件中添加某个txt文件并写入文字

Delphi randomize 随机数

Delphi 通过idhttp实现登录验证

Delphi tdictionary 简单用法

Delphi 数组类型与数组指针的巧妙利用

winapi 字符及字符串函数(8): ischarupper - 是否是个大写字母

Delphi listbox1列表随机打乱

Delphi unicode转中文编码

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

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