date1,date2:TDatetime;
s1,s2:string;month,i1,i2:integer;
datetostring(s1,'yyyy-mm-dd',date1);
datetostring(s2,'yyyy-mm-dd',date2);
i1:=12*strtoint(copy(s1,1,4))+strtoint(copy(s1,6,2));
i2:=12*strtoint(copy(s2,1,4))+strtoint(copy(s2,6,2));
month:=abs(i1-i2);
s1,s2:string;month,i1,i2:integer;
datetostring(s1,'yyyy-mm-dd',date1);
datetostring(s2,'yyyy-mm-dd',date2);
i1:=12*strtoint(copy(s1,1,4))+strtoint(copy(s1,6,2));
i2:=12*strtoint(copy(s2,1,4))+strtoint(copy(s2,6,2));
month:=abs(i1-i2);