Fecha con texto?

[Ardillita]

Hola amigos , bueno mi consulta es que nesesito ingresar la fecha de tal manera que cuando la ingreso en numeros el mes lo cambie a texto.

[GeoAvila]

lo vas a tener que hacer a pie.. con esto me refiero que vas a tener que hacer un case dentro de una función

function meses(mesInt as integer) as string
select case mesI
case 1
meses = "Enero"
case 2
meses = "Febrero"
end select
end function

y en el evento lost_focus del texto pones esto.

TxtMeses.Text = meses(TxtMeses.Text)

[piojoman]

No se si entendi bien... esto es lo que necesitas????

Private Sub Command1_Click()
Dim MesA As Byte, MesB As Byte, Mes As Byte
MesA = Mid(Text1.Text, 3, 1) 'Se fija si el dia es de una cifra
Select Case MesA
Case "/", "-" 'En el caso de que los dias sean de dos cifras
MesA = Mid(Text1.Text, 4, 1)
MesB = Mid(Text1.Text, 5, 1) 'se fija si el mes de una cifra o dos
Case Is > 1, Is < 12 'si los dias son de una cifra
MesB = Mid(Text1.Text, 4, 1)
End Select

If MesB = "/" Then
Mes = MesA
Else
Mes = MesA * 10 + MesB 'Arma el numero para despues buscar la conversion
End If
'--------------- Opcion Numero 1 (es mas legible) ---------------------
Dim Meses As Variant
Meses = Array("Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre")

If (Mes >= 1) And (Mes <= 12) Then
Label1.Caption = Meses(Mes - 1)
End If
End Sub
'--------------- Opcion Numero 2 ---------------------
Select Case Text1.Text
Case 1
Label1.Caption = "Enero"
Case 2
Label1.Caption = "Febrero"
Case 3
Label1.Caption = "Marzo"
Case 4
Label1.Caption = "Abril"
Case 5
Label1.Caption = "Mayo"
Case 6
Label1.Caption = "Junio"
Case 7
Label1.Caption = "Julio"
Case 8
Label1.Caption = "Agosto"
Case 9
Label1.Caption = "Septiembre"
Case 10
Label1.Caption = "Octubre"
Case 11
Label1.Caption = "Noviembre"
Case 12
Label1.Caption = "Diciembre"
End Select


bye!!!!

[Ardillita]

ok boy a ber

[Ardillita]

no no me funciono nada