ARRAY COM DATA

MARCELO.TREZE 11/11/2014 10:15:18
#442412

agora num entendi?

SINCLAIR 11/11/2014 10:37:34
#442415 Resposta escolhida

Prezado,

Segue o código:

On Error Resume Next

[ô]Dimensionar variáveis
Dim intContador As Integer
Dim intNumeroDeParcelas As Integer
Dim strDataInicial As String
Dim strListaDeDatas As String
Dim strListaDeDias As String

[ô]Fixar valores, mas poderiam ser solicitados ao usuário
intNumeroDeParcelas = 3
strDataInicial = [Ô]01/01/2014[Ô]

[ô]Redimensionar um array para conter a quantidade de índices informados pelo usuário
ReDim strEmDatas(intNumeroDeParcelas - 1) As String
ReDim strEmDias(intNumeroDeParcelas - 1) As String

[ô]A primeira data será a data inicial e a primeira diferença em dias será entre a data atual e a data atual
strEmDatas(0) = DateAdd([Ô]m[Ô], 1, strDataInicial)
strEmDias(0) = DateDiff([Ô]d[Ô], strDataInicial, CDate(strEmDatas(0)))

[ô]Fazer For/Next para que sejam calculadas as datas
For intContador = 1 To (intNumeroDeParcelas - 1)

[ô]Colocar a data em variável
strEmDatas(intContador) = DateAdd([Ô]m[Ô], 1, strEmDatas(intContador - 1))

[ô]Calcular a diferença em dias
strEmDias(intContador) = DateDiff([Ô]d[Ô], CDate(strDataInicial), strEmDatas(intContador))

Next intContador

[ô]Juntar as datas em uma variável
strListaDeDatas = Join(strEmDatas, [Ô],[Ô])
strListaDeDias = Join(strEmDias, [Ô],[Ô])

[ô]Exibir conteúdo
MsgBox (strListaDeDatas)
MsgBox (strListaDeDias)

[ô]Encerrar o programa
End

Tudo de bom.

ARES 11/11/2014 12:24:02
#442425

fantástico!!!!!

Muitíssimo obrigado.