Question

请问各位delphi中两个日期间相差的天数怎么求？

例如一个字符串型的时间值为2013年7月15日，我想求出距离今天有多少天？请问怎么实现呢？

Answer 1

q1076258771回答的正解。引用DateUtils单元后，调用 DaysBetween函数返回2个日期直接的间隔天数：

uses DateUtils

...

procedure TForm1.FormShow(Sender: TObject);
begin
DateTimePicker1.Date := strtodate('2013-07-15');
end;
procedure TForm1.btn3Click(Sender: TObject);
begin
Label2.Caption := inttostr(DaysBetween(DateTimePicker1.DateTime,DateTimePicker2.DateTime));
end;

Answer 2

DaysBetween
具体请参考
cnblog上 万一的delphi 中
YearsBetween、MonthsBetween ... YearSpan、MonthSpan ... 间隔时间

传送门http://www.cnblogs.com/del/archive/2009/05/20/1467513.html

Answer 3

date-StrToDate(‘2013-7-15’)
得到的结果就是天数

Answer 4

uses DateUtils
function DaysBetween(const ANow, AThen: TDateTime): Integer;

Answer 5

uses DateUtils;
DaysBetween()函数