VERIFICANDO MESES
Irenko o problema é simples, não tente reinventar a roda, as funções poderiam resolver seu problemas colega porém o ideal seria você fazer isso sem estas funções, e como seria isso? simplesmente criando as demais parcelas se baseando no primeiro pagamento, alguns criam uma tabela temporaria, outros criam uma tabela de pagamentos parcelados, o que torna tudo mais fácil.
Sim, de fato pode fazer de uma forma mais simples, sem funções tantas, como o colega Marcelo-Treze falou.
é que as funções que tenho aqui servem para outras coisas, além da criação da própria data.
Se você vai lançar em um Grid, talvez tabela (diretamente ou em uma temporária), mas de qualquer forma creio que a lógica que precisa é esta, conforme passei antes,
Tenta ai, Irenko. Se não for exatamente isto ou se for precisando de mais coisas, deixa no post que todos vamos nos ajudando.
Tudo de bom.
é que as funções que tenho aqui servem para outras coisas, além da criação da própria data.
Se você vai lançar em um Grid, talvez tabela (diretamente ou em uma temporária), mas de qualquer forma creio que a lógica que precisa é esta, conforme passei antes,
Citação:Dim strDataInicial As String
Dim intMeses As Integer
[ô]Define a data inicial
strDataInicial = [Ô]30/01/2014[Ô]
[ô]Percorre quantidade de meses e soma N meses na data inicial
For intMeses = 1 To 3
MsgBox (DateAdd([Ô]m[Ô], intMeses, strDataInicial))
Next intMeses
O retorno seria
28/02/2014
30/03/2014
30/04/2014
Tenta ai, Irenko. Se não for exatamente isto ou se for precisando de mais coisas, deixa no post que todos vamos nos ajudando.
Tudo de bom.
Tópico encerrado , respostas não são mais permitidas