Fórum achar a quantidade de meses #205597

[b:c8b542fb5f]Como retornar quantidade de dias meses e anos entre duas datas[/b:c8b542fb5f]

Você pode usar a função IncMonth. Ela incrementa na data um mês.

procedure TForm1.Button1Click(Sender: TObject);
var
datatotainicial,datatotafinal:string;
mesini,mesfin,mes,anoini,anofin,ano,cont,cont1,I:integer;
begin
datatotainicial:=MaskEdit1.Text; //sendo 02/02/2004
datatotafinal:=MaskEdit2.Text;
mesini:=strtoint(copy (datatotainicial,4,2));
mesfin:=strtoint(copy (datatotafinal,4,2));
anoini:=strtoint(copy (datatotainicial,7,4));
anofin:=strtoint(copy (datatotafinal,7,4));
mes:=0;
ano:=0;
// um if para saber se o funcionário ficou mais de um ano na empresa
if anoini<anofin then
begin
// este for é para contar(cont) quantos anos e adicionar 12(cont1)x quantidade(cont) em mêses
for I:=anoini to anofin do
begin
cont:=cont+1;
cont1:=cont1+12;
end;
mesini:=12-mesini;
mes:=((mesini+mesfin+cont1)-24);
end;
// este if é para saber se ele ficou até um ano
if anoini=anofin then
begin
mesini:=12-mesini;
mesfin:=12-mesfin;
mes:=(mesini-mesfin);
end;
//vc deve verificar se a dataini é maior q a datafin
//estes if´s são para fazer consistência nas datas
if anoini > anofin then
begin
ShowMessage(´A data de admissão é maior q a data de demissão!´);
Abort;
end;
if (mesini < 0) or (mesfin > 13) then
begin
ShowMessage(´Mês de admissão invalido´);
Abort;
end;
if (mesini < 0) or (mesfin > 13) then
begin
ShowMessage(´Mês de demissão invalido´);
Abort;
end;
if anoini = anofin then
if mesini < mesfin then
begin
ShowMessage(´Mês de admissão é maior que o Mês de demissão ´);
Abort;
end;
ShowMessage(IntToStr(mes));
end;

Eu tenho uma sugestão que utiliza menos código...

Declare:

Uses
DateUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
D1, D2: TDateTime;
R : Integer;
begin
D1 := StrToDate(´10/01/2001´);
D2 := StrToDate(´23/04/2001´);
R := MonthsBetween(D1, D2);
Label1.Caption := Format(´Meses entre as dusa datas: ¬d´, [R]);
end;

O calculo é feito com base no dia do mês considerando que um mês tem 30 dias.

Espero ter ajudado.