在线等－－－请问一个时间函数的问题

Question

为了计算安全运行天数，要求在两edit中输入两个时间，然后求出此时间段内的天数，请问用什么函数实现？最好给出代码。谢了

Answer 1

uses
  DateUtils;...function GetDaysBetween: Integer;
begin
  Result := DaysBetween(StrToDate(Edit1.Text), StrToDate(Edit2.Text));
end;

Answer 2

StrToDate(Edit1.Text)-StrToDate(Edit2.Text)就是天数

Answer 3

StrToDate(Edit1.Text)-StrToDate(Edit2.Text)就是天数

Answer 4

是啊，date相减就是天数。
在strtodate之前最好判断一下时间的分隔符，要输入时间最好还是用TDateTimePicker