请问怎样计算两个时间的分钟差值?????????????????????????????????????????????????????????????(100

A

autocar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-06

• #1

请问怎样计算两个时间的分钟差值?????????????????????????????????????????????????????????????(100分)<br />例如像在vb中的DateDiff函数

DateDiff("n", "10:12", "14:34")

结果返回 262 (分钟) , 10:12 与 14:34 相差 262 分钟
-----------------------------------------------------------

DateDiff("n", "2003-5-4 23:45", "2003-5-5 0:34")

结果返回 49 (分钟 ), 2003-5-4的 23:45 与 2003-5-5 的 0:34 相差 49分钟

----------------------------------------------------------------
请问在delphi 如何实现像上面两个程序的相同功能????

请给出详细的代码,感激不尽!!!!!

 

C

cnkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-06

• #2

DateTimeToFloat(DateTime1)*60*24 - DateTimeToFloat(DateTime2)*60*24

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-06

• #3

MinutesBetween(A, B);

 

轻

轻舞肥羊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-06

• #4

uses DateUtils

function MinutesBetween(const ANow, AThen: TDateTime): Int64;

 

Y

yczjs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-06

• #5

楼上两位一人50

 

C

Cardinal

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-06

• #6

MinutesBetween

 

左

左轻侯

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-06

• #7

这个问题dfw上已经讨论过很多遍了
在Delphi中，时间的表示方式与OLE 2标准一致，Tdatatime其实就是一个浮点数
整数部分表示天，小数部分表示时、分、秒
懂得这一点，就很容易完成任何的时间换算操作了

 

G

ggily

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-06

• #8

好！

 

S

skybuilder

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-06

• #9

procedure Diff(Time1,Time2: TDateTime;var M_Diff:WORD);
var
Time1_H,Time1_M,Time1_S,Time1_N:WORD;
Time2_H,Time2_M,Time2_S,Time2_N:WORD;
begin
DecodeTime(Time1,Time1_H,Time1_M,Time1_S,Time1_N);
DecodeTime(Time2,Time2_H,Time2_M,Time2_S,Time2_N);
M_Diff:=Time2_M-Time1_M;
end;

 

A

autocar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-07

• #10

多人接受答案了。