说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

如何加减时间

编辑:说三道四文库 发布时间:2018-02-21 11:23
HTML文档下载 WORD文档下载 PDF文档下载
2003-4-9 15:27:16减掉30分钟,应该如何表示
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;
delphi对日期时间封装的真的很好用,i like it
uses DateUtils

IncMinute(strtodatetime('2003-4-9 15:27:16'),-30)
呵呵,我找楼上这个东西没找到;日期,分,。。都可以用INC;;什么的来处理。
据说不是可以直接加减吗
procedure TForm1.Button1Click(Sender: TObject);
var
  t:TdateTime;
begin
  t:=strtodatetime('2003-4-9 15:27:16')-30/60/24;
end;
DateUtils是DELPHI6以后新加的单元封装了很多日期相关的函数,搂住可以去看看 的。
而且他的方法也是比较简单的,建议你看看
呵呵,我不会啊,所以搬了写东西过来
Returns a date/time value shifted by a specified number of minutes.

Unit

DateUtils

Category

datetime routines

Delphi syntax:

function IncMinute(const AValue: TDateTime; const ANumberOfMinutes: Int64 = 1): TDateTime;
__int64 ANumberOfMinutes = 0x000000001);

Description

IncMinute 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.
procedure TForm1.Button1Click(Sender: TObject);
var
  t1,t2:TdateTime;
begin
  t1:=strtodatetime('2003-4-9 15:27:16');
  t2:=t1-30*60;//最小单位是秒,用分钟比较苦难就干脆用秒好了。
end;
浮点数,
1代表一天。
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘