[Resolvido]Calculos de juros tendo como base data

Oi boa tarde.....
Por favor alguém pode me ajudar...estou querendo calcular juros aparte de data especifica
muito obrigado...




Private Sub Comando19_Click()
Dim TheDate As Date ' Declare variables.
Dim Msg
TheDate = InputBox("Data de Vencimento")
Msg = "São : " & DateDiff("d", Now, TheDate) * 0.41 + ([Mensalidade])
MsgBox Msg

End Sub

funcionou....parcialmente vamos supor que vc coloque a data 10/01/11 como data do vencimento...teria que retorna -24 dias de atraso vezes o juro de 0.41 o resultado seria 9,84 + mensalidade , se a mensalidade fosse R$20,00 ficaria R$ 29,84 na estrutura tem um campo mensalidade mas o resultado é R$ 10,6, estou no formulário


Editado pelo Moderador Dilson - Data/hora: Qui Fev 03, 2011 4:09 pm Motivação: uso inadequado de letras maiúsculas

Olá Sabino, seja bem vindo ao forum. Em primeiro lugar, peço que procure não escrever com letras maiúsculas. Isso vai contra as regras de etiqueta para Internet, significando que você está gritando com o pessoal do forum. Tambem ajuda bastante escrever de maneira mais formal, para facilitar as buscas de outros membros que precisarem da mesma informação, principalmente.
Quanto à sua dúvida, dê uma olhadinha no Procurar, pesquisando por juro, eu mesmo ajudei uma amiga do forum com um exemplo sobre isso. Caso não consiga resolver a questão, ou ainda reste alguma dúvida, volte a posta que procuraremos esclarecer da melhor forma possível.
Abraços da moderação do forum.

Amigo desculpa amigo nunca usei esses espaços é a primeira vez....e tambem sou newper

Tudo bem. Sem problemas. Eu deletei o outro tópico aonde você estava tratando desse mesmo assunto e passei esse para a seção certa, a de Formulários. Caso queira editar o texto do seu post, pode fazê-lo aqui mesmo, clicando em Editar.

Amigo formate na tabela o campo juro:

Número>Duplo>Percentagem>2 casas decimais

TheDate deve ser o seu campo e deve estar formatado para data abreviada

Oi migos consegui fazer o calculo....

muito obrigado....

Obrigado pelo retorno o fórum agradece