如何加减时间

Question

2003-4-9 15:27:16减掉30分钟，应该如何表示

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  t1,t2:TdateTime;
begin
  t1:=strtodatetime('2003-4-9 15:27:16');
  t2:=strtotime('00:30:00');
  showmessage(datetimetostr(t1-t2));
end;

Answer 2

delphi对日期时间封装的真的很好用，i like it

Answer 3

uses DateUtilsIncMinute(strtodatetime('2003-4-9 15:27:16'),-30)

Answer 4

呵呵，我找楼上这个东西没找到；日期，分，。。都可以用INC；；什么的来处理。

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
var
  t:TdateTime;
begin
  t:=strtodatetime('2003-4-9 15:27:16')-30/60/24;
end;

Answer 6

DateUtils是DELPHI6以后新加的单元封装了很多日期相关的函数，搂住可以去看看 的。

Answer 7

呵呵，我不会啊，所以搬了写东西过来
Returns a date/time value shifted by a specified number of minutes.UnitDateUtilsCategorydatetime routinesDelphi syntax:function IncMinute(const AValue: TDateTime; const ANumberOfMinutes: Int64 = 1): TDateTime;
__int64 ANumberOfMinutes = 0x000000001);DescriptionIncMinute returns the value of the AValue parameter, incremented by ANumberOfMinutes minutes. ANumberOfMinutes can be negative, to return a date and time N minutes prior to AValue.

Answer 8

procedure TForm1.Button1Click(Sender: TObject);
var
  t1,t2:TdateTime;
begin
  t1:=strtodatetime('2003-4-9 15:27:16');
  t2:=t1-30*60;//最小单位是秒，用分钟比较苦难就干脆用秒好了。
end;