请教，我想求两个日期之间一共有多少个月，比如1955-6-10，到2004-4-1日之间一共有多少个月

Question

请教，我想求两个日期之间一共有多少个月，比如1955-6-10，到2004-4-1日之间一共有多少个月，该怎么做，最好有原代码，我比较急啊
开发语言，DELPHI7
环境，win2000

Answer 1

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

Answer 2

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

Answer 3

能不能写详细点啊，我还刚学DELPHI

Answer 4

i:integer;
i:=MonthsBetween(strtodatetime('1955-6-10'),strtodatetime('2004-4-1'));
showmessage(inttostr(i))

Answer 5

uses DateUtils;
Edit3.Text:=IntToStr(MonthsBetween(StrToDate(Edit1.Text),StrToDate(Edit2.Text)));
日期格式是这样的'yyyy-mm-dd'

Answer 6

记得在uses中加入DateUtils单元，
MonthsBetween(strtodatetime(begindate),strtodatetime(enddate));

Answer 7

在uses中加入DateUtils单元，var
i:integer;
begin
  i:=MonthsBetween(strtodatetime('1955-6-10'),strtodatetime('2004-4-1'));
  showmessage(inttostr(i));
end;

Answer 8

怎么获取DateTimePicker1的值啊，我用的是DateTimePicker1

Answer 9

看来楼主还在学步。
按楼上各位的说法就是
先声明
Var
   Date1,Date2:TDateTime;使用时：
 Date1:= DateTimePicker1.date;
 Date2:= DateTimePicker2.date;
  
i:=MonthsBetween(Date1,Date2);