Calcular juros de mora ao mês - Alguém pode ajudar?
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;
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;
Walfrido
Curtidas 0
Respostas
Edilcimar
02/07/2005
baseie-se no mes comercial, assim datafinal-datainicial = X dias, então x/30 é igual a quantidade de meses, caso não vá cobrar juros por fração de mes coloque trunc(x/30), assim despreza a parte decimal, depois é só multiplicar este valor pelo valor do juro mensal
GOSTEI 0
Walfrido
02/07/2005
deu certo!!! Usei uma função postada aqui no forum...
GOSTEI 0
Jats
02/07/2005
deu certo!!! Usei uma função postada aqui no forum...
Qual? Coloca ai prá nós!!!
GOSTEI 0