procedure TForm1.Button2Click(Sender: TObject);
var
date1,date2,date3,date4:String;
i,j:Integer;
begin
date1:='2009-12-01';
date2:='2010-02-01';
date3:='2010-01-01';
date4:='2010-03-01';
i:=MonthsBetween(StrToDateTime(date1),StrToDateTime(date2));
j:=MonthsBetween(StrToDateTime(date3),StrToDateTime(date4));
ShowMessage(IntToStr(i));
ShowMessage(IntToStr(j));
end;
为什么显示的i是2,而j是1呢,按道理的的话不是都应该是2啊。
var
date1,date2,date3,date4:String;
i,j:Integer;
begin
date1:='2009-12-01';
date2:='2010-02-01';
date3:='2010-01-01';
date4:='2010-03-01';
i:=MonthsBetween(StrToDateTime(date1),StrToDateTime(date2));
j:=MonthsBetween(StrToDateTime(date3),StrToDateTime(date4));
ShowMessage(IntToStr(i));
ShowMessage(IntToStr(j));
end;
为什么显示的i是2,而j是1呢,按道理的的话不是都应该是2啊。
DateTime就是一个Double值