计算出Datetimepicker1、2两个控件的时间差

Question

请问在一模块中使用了3个控件分别为:Datetimepicker1、Datetimepicker和Edit1。现在想计算出Datetimepicker1、2两个控件的时间差并显示在Edit1控件中（以‘分钟’或者‘小时’为单位显示），该如何写代码？

Answer 1

时间相减,结果是Double的
处理一下就是的,这些基础问题Google随时能找到答案的_____________________
http://lysoft.7u7.net

Answer 2

DateTimePicker1.DateTime-DateTimePicker2.DateTime
得出的结果 是多少天
乘24是小时
再乘60是分
再乘60是秒

Answer 3

user DateUtilsfunction YearsBetween(const ANow, AThen: TDateTime): Integer;
function MonthsBetween(const ANow, AThen: TDateTime): Integer;
function WeeksBetween(const ANow, AThen: TDateTime): Integer;
function DaysBetween(const ANow, AThen: TDateTime): Integer;
function HoursBetween(const ANow, AThen: TDateTime): Int64;
function MinutesBetween(const ANow, AThen: TDateTime): Int64;
function SecondsBetween(const ANow, AThen: TDateTime): Int64;
function MilliSecondsBetween(const ANow, AThen: TDateTime): Int64;

Answer 4

hellolongbin(一个人[终不似 少年游])  说的没有错
得到小时
Edit1.text:=inttostr(trunc((DateTimePicker1.DateTime-DateTimePicker2.DateTime)*24));
得到分钟
Edit1.text:=inttostr(trunc((DateTimePicker1.DateTime-DateTimePicker2.DateTime)*24*60));