如何求当前系统时间往前推1小时或2小时的时间呢 ( 积分: 50 )

B

bdabc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-28

• #1

各位专家,我现在想知道如何求当前系统时间往前推1小时或2小时的时间呢?例如:2007年8月28号9点35前一小时的时间,其中当前时间取系统时间，1小时是变化的,可以选为2或3小时等等.
谢谢!

 

A

ANiDelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-28

• #2

uses
DateUtils;

function IncHour(const AValue: TDateTime; const ANumberOfHours: Int64 = 1): TDateTime;

向前一小时
MyTime := IncHour(Now, -1);

 

B

bdabc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-08-28

• #3

谢谢，希望以后在能得到您的帮助！