关于日期的问题

Question

我在编程的时候，用到一个函数，想取得两个日期间的时间差。比如说，取一个远期的日期，如2008年6月12日，让它与系统当前的日期比较，取出两者之间的时间差，也就是2008/06/12与系统当日之间差多少天！！如何实现？？望大侠们不吝赐教!

Answer 1

Edit1.Text := FloatToStr(StrToDate('2008-06-12') - Date())

Answer 2

uses 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;function Today: TDateTime;//系统当日

Answer 3

Trunc(StrToDate('2008-06-12') - Now);

Answer 4

uses
  DateUtils;
...
Edit1.Text := IntToStr(DaysBetween(StrToDate('2004-10-01'), Date()))

Answer 5

daysbetween(datetime1, datetime2) : int;

Answer 6

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