用什么函数算两个日期之间有多少个月？

Question

比如2002-08和2004-09之间有多少个月，用什么函数计算？如果没有现成的函数，怎么写？

Answer 1

MonthsBetween(Time1,time2); //月

Answer 2

uses DateUtils;YearsBetween();  //年
MonthsBetween(); //月
DaysBetween;     //日
HoursBetwen();   //时
MinutesBetween();//分 
SecondsBetween();//秒
倒!uses DateUtils;
procedure TForm1.Button1Click(Sender: TObject);
var
  time1,time2:TDateTime;
begin
  time1 := strtodatetime('2004-09-01 20:20:05');
  time2 := strtodatetime('2004-09-07 15:27:02');
  ShowMessage(IntToStr(MinutesBetween(time1, time2)));
end;