请问在DELPHI中如何取的两个时间段的差值呢?

[wellshddelphi]

比如有两个时间段:
datetimepicker1中显示时间 2002/03/05 15:23:34
datetimepicker2中显示时间 2003/03/12 8:20:58
请问有什么办法可以获得这两个时间的时间差呢?

[wellshddelphi]

楼上的,依你的方法是行不通的,
datetimepicker1.DateTime-datatimepicker2.DateTime
比如:
datetimepicker1 的值为 2003-8-30时
datetimepicker1 的值为 2003-8-25时
返回值显示为:1900-1-3
我也不知道他这个结果是怎么得来的.哎.

[okgxs]

dts:=dm.cds_input.FieldByName('呼叫时间').AsDateTime;
dte:=now;
dtr :=dte-dts;
min :=dtr*24*60*60; //秒 (strtoint(waitaccept)/1000))

[okgxs]

关键是！min :=dtr*24*60*60; //多少秒

[okgxs]

今天刚刚多了一个“三角库头”就来帮你了

[tongki]

var
sjc:integer;

sjc:=datetimepicker1.DateTime-datatimepicker2.DateTime;

[xx9yk]

oh! datetimepicker1.DataTime 是TDataTime類.
According to HelpFile, we got....
type TDateTime = type Double;
The integral part of a TDateTime value is the number of days that have passed since 12/30/1899.
The fractional part of a TDateTime value is fraction of a 24 hour day that has elapsed.
Hence, Trunc(datetimepicker1.DateTime-datatimepicker2.DateTime) got 4 or 5 according to the Time Part!
Good Luck!

[xx9yk]

see also constance part of SysUtils.pas
-----------------------
{ Units of time }
HoursPerDay = 24;
MinsPerDay = HoursPerDay * 60;
SecsPerDay = MinsPerDay * 60;
MSecsPerDay = SecsPerDay * 1000;

{ Days between 1/1/0001 and 12/31/1899 }
DateDelta = 693594;

{ Days between TDateTime basis (12/31/1899) and Unix time_t basis (1/1/1970) }
UnixDateDelta = 25569;

[wellshddelphi]

干脆问一下:在DELPHI解决这种问题

[wellshddelphi]

在DELPHI中没有解决该问题的函数吗?

[aiunong]

gz

[xx9yk]

the unit of result of datetimepicker1.date-datatimepicker2.date will be N.NN.. days.
Good luck!

[xx9yk]

more clear for
datetimepicker1.DateTime-datatimepicker2.DateTime

[xx9yk]

function DateTimeDiff(dtp1,dtp2:TDateTimePicker):double; //多少天含時間差
begin
result:=dtp1.DateTime-dtp2.DateTime;
end;
function DateDiff(dtp1,dtp2:TDateTimePicker):integer; //多少天
begin
result:=dtp1.DateTime-dtp2.DateTime;
end;

譬如:
datetimepicker1 的值为 2003-8-30 12:00时
datetimepicker2 的值为 2003-8-25 18:00时
DateTimeDiff(datetimepicker1 ,datetimepicker2) 返回4.75
DateDiff(datetimepicker1 ,datetimepicker2) 返回4
就這樣 所以Delphi中沒必要搞個函數了,
還有trunc(dtp1.DateTime,dtp2.DateTime) 返回4
Good luck