ARRAY

ARES 10/11/2014 18:18:38
#442397
Prezados, boa noite!

Estou precisando gerar números separados por virgula. exemplo:

Tenho os seguintes campos: número de parcela,intervalos, prazos, cujo valor será colocado pelo usuário.

O usuário irá informar o número de parcela (exemplo: 3) e o intervalo (exemplo: 30) preciso de um código que me traga no campo
prazos: 30,60,90.

sabem me dizer se é possível fazer isso?

Desde já agradeço
SINCLAIR 10/11/2014 20:40:43
#442398
Resposta escolhida
Olá, colega.

Segue o código. Fiz o mais simples possível, em detrimento inclusive de melhores práticas de programação, mas que ficasse legível para você.

Insira um command buttom em seu formulário e cole o seguinte código, em seguida clique no botão e o resultado será o que você precisa.

[ô]Dimensionar variáveis
Dim strLista As String
Dim intNumeroDeParcelas As Integer
Dim intIntervaloDeParcelas As Integer
Dim intContador As Integer

intNumeroDeParcelas = 3 [ô]Aqui é um exemplo, você deve fazer algo como inputbox para perguntar ao usuário
intIntervaloDeParcelas = 30 [ô]Aqui é um exemplo, você deve fazer algo como inputbox para perguntar ao usuário

[ô]Inicializar a variável com a lista resultante
strLista = [Ô][Ô]

[ô]Fazer loop para inserir as quantidades
For intContador = 1 To intNumeroDeParcelas

[ô]Inserir na lista resultante a quantidade de dias
strLista = strLista & IIf(intContador <> intNumeroDeParcelas, LTrim(RTrim(Str(intIntervaloDeParcelas * intContador))) & [Ô],[Ô], LTrim(RTrim(Str(intIntervaloDeParcelas * intContador))))

Next intContador

[ô]Exibir o conteúdo da lista
MsgBox (strLista)

[ô]Encerrar o aplicativo
End

Tudo de bom.
FFCOUTO 11/11/2014 09:23:47
#442404
Outra opção seria:

Private Sub Command1_Click()
[ô]Dimensionar variáveis
Dim resultado As String
Dim nroParcelas As Integer
Dim intervalo As Integer
Dim dados() As String
Dim i As Integer

nroParcelas = 3
intervalo = 30

[ô]Inicializa a matriz de dados
ReDim dados(1 to nroParcelas)

[ô]realiza a inserção das parcelas na matriz
For i = 1 To nroParcelas
dados(i) = CStr(i * intervalo)
Next

[ô]retorna o resultado da lista
resultado = Join(lista, [Ô],[Ô])

[ô]exibe o conteúdo da lista
MsgBox lista
End Sub

ARES 11/11/2014 09:56:48
#442409
Amigos, bom dia!

Funcionou perfeitamente! Muitíssimo obrigado.
MARCELO.TREZE 11/11/2014 10:10:52
#442411
OU SIMPLESMENTE

Dim Total As Double
Total = CDbl(txtParcelas.Text) * CDbl(txtIntervalo.Text)
For F = 0 To Total Step CDbl(txtIntervalo.Text)
txtVencimentos.Text = txtVencimentos.Text & IIf(f <> 0, f & [Ô],[Ô], [Ô][Ô])
Next F


depois apenas alguma formatação e pronto
Tópico encerrado , respostas não são mais permitidas