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 unigui服务器部署

Delphi 下载一个jpg图片保存为bmp图片

Delphi中使用词霸2005的动态库xdictgrb.dll实现屏幕取词

Delphi xe5、6、7在android或者ios上使用ansistring和ansichar

Delphi 生成随机字符串

怀念一下这些经常不记得的Delphi代码

Delphi获取我的文档路径

Delphi 取windows登录用户名

delph i判断ip地址是否正确

Delphi 让scrollbox响应鼠标的滚动消息

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

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