菜鸟问题：怎样在当前时间减去一秒，或者一分钟？？

Question

AddMinutes
AddSenconds//增加数量设为－1

Answer 1

var
d:TDateTime;
Hour, Min, Sec, MSec: Word;begin
d:=now();
DecodeTime(d, Hour, Min, Sec, MSec);
Min:=Min+1;
d:=EncodeTime(Hour, Min, Sec, MSec);
ShowMessage(DateTimetoStr(d));
end;

Answer 2

uses DateUtils; //for Delphi6procedure TForm1.Button1Click(Sender: TObject);
var
  T: TDateTime;
  S: string;
begin
  T := Now;
  S := '';
  S := S + '当前时间为：' + DateTimeToStr(T) + #13#10;
  S := S + '减去一秒为：' + DateTimeToStr(IncMinute(T, -1)) + #13#10;
  S := S + '减去一分为：' + DateTimeToStr(IncHour(T, -1)) + #13#10;
  ShowMessage(S);
end;

Answer 3

把时间当作实数处理有以下规则：整数部分为天数
           小数部分 *24*60*60 为秒数减一秒： TDateTime - 1/(24*60*60)
减一分： TDateTime - 1/(24*60)

Answer 4

把时间当作实数处理有以下规则：整数部分为天数
           小数部分 *24*60*60 为秒数减一秒： TDateTime - 1/(24*60*60)
减一分： TDateTime - 1/(24*60)

Answer 5

d:=now();
DecodeTime(d, Hour, Min, Sec, MSec);
Min:=Min+1;
d:=EncodeTime(Hour, Min, Sec, MSec);
我用interbase5.6好像有2K问题,假设是2002.6.21.10:20:20,减去一秒后就到了99年,该怎么办??interbase5.6只有tdate类型,没有ttime类型数据

Answer 6

好象也可以这样：
  Now - StrToDateTime('00:00:01');

Answer 7

最简单:
Decday()
dec..........................
incday             自己看看帮助?

Answer 8

没想到这么多高手关注啊! 
    在 Delphi 中 TDateTime 类型其实就是 Double, 一天等于 1, 其他如年月日时分秒就按照相当于天的倍数或者分数来计算它的值.