Bom Dia a Todos

 

Em primeiro gostaria de parabenizar aos participantes deste forum, pois todas as perguntas que fiz foram respondidas e de muita serventia

 

Gostaria de saber como faço para calcular o periodo entre datas por exemplo, tenho uma data de vencimento e uma data de pagamento onde calculo juros, mas se coloco a data do pagamento antes do vencimento ele calcula assim mesmo, e se coloco o ano diferente ele nao compara as datas

 

Bom e o seguinte, imagine qeu tenho os campos

 

dt_vencimento

dt_pagamento

quero calcular juros por atraso de pagamento

como faço isso

 

Att: Aginaldo

Experimenta essa função que eu fiz para calculo de juros simples.

 

Public Sub CalculaJuros()
Static Taxa As Currency
Static Dias As Integer
Static Principal As Currency
Static Resultado As Currency

Taxa = TX(5).Text
Dias = TX(6).Text
Principal = TX(4).Text
Resultado = Taxa * 12 * Principal * Dias / 36000 + Principal
TX(0).Text = Format(Resultado, "currency")
End Sub