Fórum Quantidade de Meses #220104

var
  mes1,mes2,dia,ano:word;
  diferenca: real;
begin
  decodedate(data1,ano,mes1,dia); //menor data
  decodedate(data2,ano,mes2,dia); //maior data
  diferenca := mes2-mes1;
  showmessage(´A diferença dos meses é de ´+floattostr(diferenca)+´ meses´);
end;

function MesEntreDatas(DataInicial, DataFinal: TDateTime): integer; 
var 
Dias, Meses, Anos: integer; 
DiaIni, DiaFim, MesIni, MesFim, AnoIni, AnoFim: word; 
begin 
if DataInicial > DataFinal then 
  begin 
    DecodeDate(DataFinal, AnoIni, MesIni, DiaIni); 
    DecodeDate(DataInicial, AnoFim, MesFim, DiaFim); 
  end 
else 
  begin 
    DecodeDate(DataInicial, AnoIni, MesIni, DiaIni); 
    DecodeDate(DataFinal, AnoFim, MesFim, DiaFim); 
  end; 
Dias := DiaFim - DiaIni; 
Meses := MesFim - MesIni; 
Anos := AnoFim - AnoIni; 
  if Dias < 0 then Dec(Meses); 
Result := Meses + (Anos * 12); 
end;