Estou com um Trabalho da Facul...
sobre pagamentos de 30 em 30 dias.
me passaram o seguinte Algoritimo.

1. Criar um titulo a receber do cliente com a data igual a data da criação da ficha + 10 dias

2. Entendendo o cálculo das datas


Inicio


data = data_inicio_contrato
mes = mes_da_data
ano = ano_da_data
dia = dia_da_data
parcelas = qdt_parcelas
x = 1



Enquanto x <= parcelas faça

Se mes > 12 entao
mes = 1
ano = ano + 1
fim se

Se mes = 2 e dia > 28
datanova = string(28) + "/" + string(mes) + "/" + string(ano)
Else
datanova = string(dia) + "/" + string(mes) + "/" + string(ano)
Endif

x = x + 1
mes = mes + 1

Fim Enquanto


Fim

se alguem poder me ajudar agradeço