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 获取listview1鼠标所在位置的行名称

Delphi 递归搜索文件夹子目录

Delphi 对txt文件的操作

Delphi 24位真彩色图形转化为ico文件

Delphi checklistbox 用法

Delphi createmutex建立互斥对象，并且给互斥对象起一个唯一的名字

Delphi操作ini配置文件

Delphi byte数组根据utf8 转换为string

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

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