Question

delphi 求两个时间差

如 edit1内的内容为“12：10：01”（这个是时间是从数据库中读取的）
edit2内容是用时钟读取的如“12：20：01”
我的要求就是求出他们的分差或秒差（分差更好）
例：
edit2.text-edit1.text=10
这个10怎么能够得到
请高手告诉我一下
这个我只要他们之间的差
说明一下，EDIT1中的数据是不变的
EDIT2.TEXT-EDIT1.TEXT(这个是不能用的)
我要的是详细的代码
因为我是小白

Answer 1

用以下方法就可以了，已测试：
procedure TForm1.Button1Click(Sender: TObject);
var
TimeStamp : TTimeStamp;
time1, time2 : TDateTime;
timeDiff : integer;
begin
time1 := strToTime(edit1.text); // 转换成时间格式
time2 := strToTime(edit2.text);
TimeStamp := DateTimeToTimeStamp(time2 - time1); // 算出相差值
Dec(TimeStamp.Date, TTimeStamp(DateTimeToTimeStamp(0)).Date);
timeDiff := (TimeStamp.Date*24*60*60)+(TimeStamp.Time div 1000);
timeDiff := round(timeDiff/60); // 转换成分钟
showmessage('Diff in min = '+inttostr(timeDiff)); // 显示
end;

Answer 2

bdatetime:=date+' '+edit1.text;
edatetime:=date+' '+edit2.text;

expiretime:=edatetime-bdatetime; //这个值是相差的天数
expiretime*24 是相差的小时数
expiretime*24*60 是相差的分钟数
expiretime*24*60*60 是相差的秒数

Answer 3

bdatetime:=date+' '+edit1.text;
edatetime:=date+' '+edit2.text;

Answer 4

uses
DateUtils;

DaysBetween
hoursBetween
SecondsBetween
MinutesBetween