delphi时间处理，急、急、急高分相送！！！

Question

用delphi脚本如何取得当前机器时间向前推移6个小时。

Answer 1

http://218.56.11.178:8020/web/index.aspx-> 下载基地->例程-经典应用->得到n小时前的时间/时间差计算大全

Answer 2

http://218.56.11.178:8009/Browers.aspx?FID=336

Answer 3

http://218.56.11.178:8009/Browers.aspx?FID=336

Answer 4

Now - 0.25 
搞定！！！

Answer 5

Now - 0.25注：6小时为0.25个一天————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

Answer 6

procedure TForm1.Button1Click(Sender: TObject);
var
  Present: TDateTime;
  Year, Month, Day, Hour, Min, Sec, MSec: Word;
 begin
  Present:= Now;
  DecodeTime(Present, Hour, Min, Sec, MSec);
  PreSent:= EncodeTime(Hour+6,Min,Sec, MSec);
  //这里的PreSent就是你想要的结果
  showmessage(TimeToStr(Present));//你试试
end;

Answer 7

strtodatetime('2003-10-10 21:22:22')-6/24;

Answer 8

Delphi中的时间日期格式在Delphi中TDateTime是一个Double型的数据！！！
整数部分表示12/30/1899到现在的天数，小数部分表示目前这一天已逝去的比例！！！
例如0.1表示的是凌晨2:24（1/10天），所以6个小时正好是1/4天，所以Now-0.25就是向前6小时！！！

Answer 9

Label2.Caption :=datetimetostr(now-0.25);

Answer 10

function IncHour(const AValue:TDateTime;const ANumberOfHours:Int64=1):TDateTime;
引用单元：
ANumberOfHours参数给定的增加或减少（负数）的小时数修改AValue参数表示的植。