delphi日期函数、日期加减

最新推荐文章于 2024-05-15 15:42:09 发布

qin_yaping

最新推荐文章于 2024-05-15 15:42:09 发布

阅读量4.5k

点赞数

分类专栏： DELPHI学习

DELPHI学习专栏收录该内容

31 篇文章 1 订阅

订阅专栏

Delphi里有现成的函数可以实现日期加减，是在DateUtils单元里的。

function IncYear(const AValue: TDateTime;

const ANumberOfYears: Integer = 1): TDateTime;

// function IncMonth is in SysUtils

function IncWeek(const AValue: TDateTime;

const ANumberOfWeeks: Integer = 1): TDateTime;

function IncDay(const AValue: TDateTime;

const ANumberOfDays: Integer = 1): TDateTime;

function IncHour(const AValue: TDateTime;

const ANumberOfHours: Int64 = 1): TDateTime;

function IncMinute(const AValue: TDateTime;

const ANumberOfMinutes: Int64 = 1): TDateTime;

function IncSecond(const AValue: TDateTime;

const ANumberOfSeconds: Int64 = 1): TDateTime;

function IncMilliSecond(const AValue: TDateTime;

const ANumberOfMilliSeconds: Int64 = 1): TDateTime;