PEGANDO OS NUMEROS DO ANO

SOUZA 18/03/2011 11:55:15
#368432
pessoal como faço pra pegar os numeros do ano separados tipo

2011

2
0
1
1
PERCIFILHO 18/03/2011 12:22:38
#368435
Poderia usar:

Mid(ano,1,1) = 2
Mid(ano,2,1) = 0
Mid(ano,3,1) = 0
Mid(ano,4,1) = 1

Seria isso?
HIDDEN 18/03/2011 12:43:04
#368437 
        Dim Digitos(1 To 4)
        Dim Ano As String
        Dim K As Integer
        
        Ano = [Ô]2011[Ô]
        
        For K = 1 To Len(Ano)
            Digitos(K) = Mid(Ano, K, 1)
        Next
        
        MsgBox Digitos(1)
SOUZA 18/03/2011 21:57:01
#368491
hiden desculpe minha iguinirancia mas nao intendi bem o q vc quis passar ele retornou o numero 2 do 2011 mas e os outros pois eu preciso desmendar ele todo
TECLA 18/03/2011 22:06:45
#368492 Resposta escolhida
Para obter os 4 números, é só recuperar informando o ÍNDICE do ARRAY que varia de 1 a 4.

MsgBox Digitos(1)
MsgBox Digitos(2)
MsgBox Digitos(3)
MsgBox Digitos(4)


ou

For K=1 To Len(Ano)
    MsgBox Digitos(K)
Next


Se resolveu o problema, não esqueça de ENCERRAR O TÓPICO.
SOUZA 18/03/2011 22:28:49
#368494
Ok, entendi agora valeu!
Tópico encerrado , respostas não são mais permitidas
Voltar