怎么算得一个比某个时间多N分钟的TDateTime

[DelisPhi]

比如，在2009-1-1 18:00:00.000 加15分钟，返回2009-1-1 18:15:00.000，依此类推。

[Frank.WU]

2009-1-1 18:00:00.000 := 2009-1-1 18:00:00.000 + 5分钟;{对，就这么简单，不过需要将类型转换一下}

[mingxuan0714]

tdatetime其实就是double,1表示1天，因此1分钟就是1/（24×60）
加N分钟就把时间加上N/（24×60）

[ron_xin]

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;

[ron_xin]

IncMinute( ) 就是分钟加减

[hongss]

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(DateTimeToStr(IncMinute(now,15)));
end;

[DelisPhi]

IncMinute啊，谢谢哦！