entendi sua funçãozinha agora onde vou adaptar ela no meu código acima?

vc não tem uma parte onde geram as datas? então...é nesta parte ..

gera a primeira data ...verifica ...se for valida ...permanece...se invalida passa para a data posterior...é isso só

 

blz deu pra entender,

voltando na parte de juros, o q é "Em dias"

 

J = (((dp - dv(em dias) / 30) * T / 100) * P)

é a diferença "Em dias" entre as datas de pagamento e data de vencimento

 

Kra eu num to conseguindo resolver meu problema com essa função de data.

olha só meu codigo, ja to ficando louco e nda funciona.

 

Dim j As Currency
Dim P As Currency
Dim dv As Date
Dim dp As Date

T = txtJuros 'taxa de juros mensal em %;

P = TxtSaldoDevedor / txtParcelas 'valor da parcela ;

dv = txtVencimento.Text 'data vencimento ;

dp = txtPagamento.Text ' data de pagamento

dias = CDate(dp) - CDate(dv)

j = (((dp - dv(dias) / 30) * T / 100) * P)

txtMoraMulta = j