一个关于时间计算的问题？？？

Question

如何计算二个在edit.text中时间的的方法~！~！~！~
请各位指点~！~！~！

Answer 1

在二个edit.text中的数据都是时间~！~！~！
如何计算他们的时间差？？？？

Answer 2

计算什么呀，楼主同志
 strToDateTime(edit1.text)-strtodatetime(edit1.text)吗？

Answer 3

YearsBetween(StrToDate(Edit1.Text), StrToDate(Edit2.Text))  //年
MonthsBetween(StrToDate(Edit1.Text), StrToDate(Edit2.Text)) //月
DaysBetween(StrToDate(Edit1.Text), StrToDate(Edit2.Text))   //日我是朱七七，哈哈...

Answer 4

我的是我edit.text中的数据象12：12：12的时间格式~！~！~
strToDateTime好想不能直接调用~！~！！~！

Answer 5

Var Date1,Date2:TDateTime;date1:=StrtoDateTime('2004-01-01 '+Edit1.Text);
date2:=StrtoDateTime('2004-01-01 '+Edit2.Text);YearSpan(Date1,Date2);
MonthSpan(Date1,Date2);
DaySpan(Date1,Date2);
HourSpan(Date1,Date2);
MinuteSpan(Date1,Date2);
SecondSpan(Date1,Date2);

Answer 6

谢谢~！~！~
没想到Edit1.Text的调用是不用引好的~~~！~！~！
好惨哦~！~！~

Answer 7

转成Datetime，可以直接减。
strToDateTime(edit1.text)-strtodatetime(edit1.text)

Answer 8

strToDateTime(edit1.text)-strtodatetime(edit1.text)

Answer 9

procedure TForm1.Button3Click(Sender: TObject);
var
Date1,Date2,dtr:TDateTime;
min : double;
begin
date1:=StrtoDateTime(Edit1.Text);
date2:=StrtoDateTime(Edit2.Text);dtr :=date2-date1;min:=dtr*24*60*60;showmessage(floattostr(min));
end;如何在edit.text中显示，而不是showmessage

Answer 10

如何在edit.text中显示，而不是showmessage
hehe¬!¬!¬!¬