YearsBetween、MonthsBetween ... YearSpan、MonthSpan ... 间隔时间

YearsBetween、MonthsBetween ... YearSpan、MonthSpan ... 间隔时间2012-01-11 博客园万一

DateUtils.YearsBetween（）;
DateUtils.MonthsBetween（）;
DateUtils.WeeksBetween（）;
DateUtils.DaysBetween（）;
DateUtils.HoursBetween（）;
DateUtils.MinutesBetween（）;
DateUtils.SecondsBetween（）;
DateUtils.MilliSecondsBetween（）;
DateUtils.YearSpan（）;
DateUtils.MonthSpan（）;
DateUtils.WeekSpan（）;
DateUtils.DaySpan（）;
DateUtils.HourSpan（）;
DateUtils.MinuteSpan（）;
DateUtils.SecondSpan（）;
DateUtils.MilliSecondSpan（）;

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class（TForm）
procedure FormCreate（Sender: TObject）;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses DateUtils;
procedure TForm1.FormCreate（Sender: TObject）;
var
t1,t2: TDateTime;
i: Int64;
d: Double;
begin
t1 := StrToDateTime（"2009-5-20 11:22:33"）;
t2 := StrToDateTime（"2020-9-21 22:33:44"）;
i := YearsBetween（t1, t2）;//11
i := MonthsBetween（t1, t2）; //136
i := WeeksBetween（t1, t2）;//591
i := DaysBetween（t1, t2）; //4142
i := HoursBetween（t1, t2）;//99419
i := MinutesBetween（t1, t2）;//5965151
i := SecondsBetween（t1, t2）;//357909071
i := MilliSecondsBetween（t1, t2）; //357909070999
i := YearsBetween（t2, t1）;//11, 参数无先后
{下面这个系列返回的时间间隔是 Double 类型的, 更精确}
d := YearSpan（t1, t2）;//11.3414540712855
d := MonthSpan（t1, t2）; //136.097448855426
d := WeekSpan（t1, t2）;//591.780871362434
d := DaySpan（t1, t2）; //4142.46609953704
d := HourSpan（t1, t2）;//99419.1863888889
d := MinuteSpan（t1, t2）;//5965151.18333333
d := SecondSpan（t1, t2）;//357909071
d := MilliSecondSpan（t1, t2）; //357909071000
end;
end.