日期计算,如 2006-12-29 17:00:00 - 2006-12-29 20:30:18 怎么得到经过了多少分钟

[lxj_com2006]

日期计算,

如 2006-12-29 17:00:00 - 2006-12-29 20:30:18 怎么得到经过了多少分钟

[wudi_1982]

procedure TForm1.Button3Click(Sender: TObject);
var
t1,t2 : TDateTime;
begin
t1 := StrToDateTime('2006-12-13 00:00:00');
t2 := StrToDateTime('2006-12-13 01:50:00');
caption := IntToStr(round( MinuteSpan(t1,t2) ))
end;

[ron_xin]

procedure TForm1.Button1Click(Sender: TObject);
var t1,t2 :TDateTime;
begin
t1:=StrToDateTime('2006-12-29 17:00:01');
t2:=StrToDateTime('2006-12-29 17:30:01');
ShowMessage(inttostr(MinutesBetween(t1,t2)));
end;

[柯本]

也凑个热闹:
procedure TForm1.Button1Click(Sender: TObject);
var t1,t2 :TDateTime;
begin
t1:=StrToDateTime('2006-12-13 00:00:00');
t2:=StrToDateTime('2006-12-13 01:50:00');
ShowMessage(inttostr(Round((t2-t1)*1440 )));
end;
///t2-t1就为两者相差的天数(double),将它化为分就可以了

[lihuasoft]

lihuasoft(学习低调做人) 的更好些!
-------------------------------------
一分没得

[winxkm]

直接使用minutesBetween这个函数就可以了，这个函数是在DateUtils单元下， ！
procedure TForm1.Button1Click(Sender: TObject);
var
D1,D2:TDateTime;
begin
D1:=StrToDateTime('2006-11-29 17:00:00');
D2:=StrToDateTime('2006-12-29 20:30:18');
showmessage(intToStr(Abs(minutesBetween(D1,D2))))
end;

[lxj_com2006]

那我怎么把时间加20分钟呢?

比如: now + 20分钟 = newtime

[lihuasoft]

uses dateUtils;

...

NewDateTime := incMinute(now,20);

[wudi_1982]

procedure TForm1.Button1Click(Sender: TObject);
var
d : TDateTime;
begin
d := StrToDateTime('2006-11-11 00:00:00');
d := d+20/1440;
ShowMessage(DateTimeToStr(d));
end;

[lxj_com2006]

多谢,多谢,搞定了,我自己用了办法:

d := d+20/60/24;

和 wudi_1982(闲半年了，要挣点钱过年了！) 方法一样;

lihuasoft(学习低调做人) 的更好些!

马上结贴.给分了.

[yangcen22]

lihuasoft(学习低调做人) 的更好些!
-------------------------------------
一分没得

-------------------------------------
低调 低调 ~~~=.=