Calculo da quantidade de dias em atraso:

Ola a todos da lista

Já fiz que ao digitar o mês e ano, calculasse a data do vencimento que caíra sempre na 1º segunda feira do mês.
Agora queria que através de cada passada de mês calculasse automaticamente a quantidade de dias em atraso através da Data do vencimento.

Por exemplo:

Data do vencimento := 07/07/2003

Suponhamos que eu não paguei está mensalidade nesta data de vencimento e queria que a cada dia 7 de cada mês por exemplo, calculasse a qtd de meses em atrazo e depois multiplicasse pelos juros confrome a formula a baixo :

Tot_pagar := vl_mensalidade + multa + (qtd_meses_atraso * juros)

E tenho os seguintes banco de dados.
mes\ano A-4*
data_venc D
cod_socio I
nome_socio A-50
dt_pag D
vl_mensalidade $
qtd_meses_atrazo I
juros N
multa N
resíduo $
tot_pagar $
valor_pago $