delphi 有这样的函数吗?

Question

比如: 当前日期为:2005-03-17 18:20:30
现在我想对日期中的小时加上8小时, DELPHI
提供这样的函数吗??

Answer 1

将就一下：
var
s:string;
begin
 s:=datetimetostr(now);
 showmessage(datetimetostr(strtodatetime(s)+1/3));now is 2000-01-01 02:00:00
it would show:  2000-01-01 10:00:00参考TDateTime type.24小时=1，所以 8小时=1/3

Answer 2

uses DateUtils;...var
  AThen: TDateTime;
begin
  AThen := IncHour(Now, 8);
  ShowMessage(FormatDateTime('yyyy-mm-dd hh:mm:ss', AThen))
end;

Answer 3

USES DateUtils;showmessage(datetimetostr(incHour(now,2)));

Answer 4

其中1指的是1天24小时，可以加小数
procedure TForm1.Button1Click(Sender: TObject);
begin
    edit1.Text:=DatetimeToStr(StrToDateTime('2005-11-12 20:00:00')-1/3)
end;