如何将时间差转换为分钟(100分)

埋

埋名

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #1

已有两个TDate的变量如：date1 - date2，其中设date1 := 2002-12-13 8:00:00
date2 := 2002-12-13 8:30:00，如何将它们的差值转换为分钟数，即希望得到结果为30分钟

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #2

不知道有什么函数。
时间之间可以相减。
可以用DecodeDateTime分解日期时间后再计算。

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #3

procedure TForm1.Button3Click(Sender: TObject);
var
date1,date2:tdatetime;
d:integer;
begin
date1 :=strtodatetime('2002-12-13 8:00:00');
date2 :=strtodatetime('2002-12-13 8:30:00');

d:=round((date2-date1)*24*60);
showmessage(inttostr(d));

end;

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #4

(double(date2-date1))*24*60

 

B

bluedna

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #5

gz

 

雨

雨人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #6

同意影子,

 

卡

卡色

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #7

jsxjd和zw84611都行，对于任何情况都简单；
影子的方法如果，跨越一小时或一天，就要繁杂的多；

 

5

52free

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #8

date1 :=strtodatetime('2002-12-13 8:00:00');
跟踪看看其实就是个浮点数嘛
整数部分是日期，小数部分是时间
改几个时间跟踪跟踪，很快就明白啦

 

S

stlont

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-13

• #9

直接相减后得到差值 0.5，是小时，乘以60，得30分钟。

 

埋

埋名

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-16

• #10

非常非常感谢。