DATA EXTENSO

GUTO 06/02/2007 11:25:57
#202131
Blz pessoal , gostaria de saber de voces , se alguem sabe como pegar um valor de um txt , que tem um data, tipo 20/01/07, e colocar esse valor por extenso , tipo VINTE DO UM DE DOIS MIL E SETE, porque eu consegui mas fica com o dia da semana por extenso tambem, eu só gostaria do dia mes e ano, alguem sabe fazer isso, eu faço assim, mas nao funciona, como eu disse fica com o dia da semana tambem

Extenso = Format(rspromissoria("Data_Entrada"), "Long Date")
USUARIO.EXCLUIDOS 06/02/2007 11:47:29
#202140
cara, nao sei se vai te ajudar, mas, tenta assim 

Private Sub Command1_Click()
Select Case Text1
    Case Is = 1
    MsgBox "Janeiro"
    Case Is = 2
    MsgBox "Fevereiro"
    Case Is = 3
    MsgBox "Março"
    Case Is = 4
    MsgBox "Abril"
    Case Is = 5
    MsgBox "Maio"
    Case Is = 6
    MsgBox "Junho"
    Case Is = 7
    MsgBox "Julho"
    Case Is = 8
    MsgBox "Agosto"
    Case Is = 9
    MsgBox "Setembro"
    Case Is = 10
    MsgBox "Outubro"
    Case Is = 11
    MsgBox "Novembro"
    Case Is = 12
    MsgBox "Dezembro"
End Select
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar