当前时间减一小时,如何做

[linweifeng]

当前时间减一小时,如何做,请高手指教

[laiqinghe]

now-1/24

[ron_xin]

ShowMessage(DateTimeToStr(IncHour(now,-1)) );

[ron_xin]

注意 uses DateUtils;

[linweifeng]

我用的是delphi5

[ron_xin]

//自己写函数
function IncHour(const AValue: TDateTime;
const ANumberOfHours: Int64): TDateTime;
begin
Result := ((AValue * 24) + ANumberOfHours) / 24;
end;


ShowMessage(DateTimeToStr(IncHour(now,-1)) );

[jaeger520]

up

[ffwin]

now()-1/24

[wudi_1982]

function IncHour(const AValue: TDateTime;
const ANumberOfHours: Int64): TDateTime;
begin
Result := ((AValue * HoursPerDay) + ANumberOfHours) / HoursPerDay;
end;

procedure TForm1.Button1Click(Sender: TObject);

begin
showmessage( FormatDateTime('hh:mm:ss', IncHour(Now,-1)))
end;