SEPARAR AS PARCELAS

NICOLLAS2 14/01/2011 13:12:45
#362260
Galera, ate pesquisei, mas nao achei ...

seguinte, quando finalizo uma compra no sistema
o usuario informa num textbox o parcelamento
ex.: 30/60/90/120/150

ele informa exatamente dessa forma.

como faco para separar os numeros para poder calcular as datas de vencimento?
eu estava usando o mid, para identificar, as se o usuario colocar assim: 6/15/130
ele ja se perde.
preciso trazer assim
30
60
90
120
150
MITSUEDA 14/01/2011 13:29:36
#362261 Resposta escolhida
Tente usar a função Split(string, [Ô]/[Ô])
MITSUEDA 14/01/2011 13:33:22
#362262
Veja uma função simples:

Sub teste()
Dim myVar As Variant
Dim i As Integer
myVar = Split([Ô]6/15/130[Ô], [Ô]/[Ô])
For i = LBound(myVar) To UBound(myVar)
MsgBox myVar(i)
Next
End Sub

Abraço
JONATHANSTECKER 14/01/2011 13:33:36
#362263 
Dim i As Integer
Dim Parcelas As Variant

Parcelas = Split([Ô]30/60/90/120/150[Ô], [Ô]/[Ô])

For i = LBound(Parcelas) To UBound(Parcelas)
  MsgBox(Parcelas(i))
Next
MITSUEDA 14/01/2011 13:35:13
#362264
Jonathan,

A mesma rotina no mesmo tempo, kakakaka
FEDERHEN 14/01/2011 13:36:15
#362265
Array1 = Split(Text1.Text, [Ô]/[Ô])
For i = 0 To UBound(Array1)
MsgBox Array1(i)
Next i
JONATHANSTECKER 14/01/2011 13:50:03
#362269
[txt-color=#0000f0]MITSUEDA[/txt-color]

Na verdade postasse a mesma rotina 14 segundos antes. rsrsrs
Tópico encerrado , respostas não são mais permitidas
Voltar