ARRAY
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
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
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.
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.
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
Amigos, bom dia!
Funcionou perfeitamente! MuitÃssimo obrigado.
Funcionou perfeitamente! MuitÃssimo obrigado.
OU SIMPLESMENTE
depois apenas alguma formatação e pronto
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