Fórum Calcular juros de mora ao mês - Alguém pode ajudar? #286697

Bom preciso cobrar 1¬ ao mês sobre os valores. Lembrando que só poderei cobrar o juros de mora após 30 dias do vencimento, levando em consideração o dia da data.

Exemplo:
Um aluguel que venceu em 10/05/2005 e hoje sendo 02/07/2005, terei de cobrar apenas 1¬:

10/05/2005 = 0¬
10/06/2005 = 1¬
10/07/2005 = 2¬
10/08/2005 = 3¬

O meu problema é que não estou conseguindo retornar o mes corretamente, levando em consideração ao dia.

Essa é a função que estou usando:
function nrMeses(data1, data2 : TDateTime): integer;
var
ano1, mes1, dia1, ano2, mes2, dia2 : word;
inResto, inMeses : Integer;
begin
DecodeDate(data1, ano1, mes1, dia1);
DecodeDate(data2, ano2, mes2, dia2);
result := ((ano2 - ano1) * 12) + (mes2 - mes1);
end;