Meses
Hola, amigo me gustaría si es que me puedes ayudar, necesito hacer lo siguiente, al ingresar en un textbox una fecha quiero que me diga a que mes me corresponde en palabras por ejemplo 31-12-2002 tendría que salir en otro textbox Diciembre, ojalas me puedas ayudar amigo.
De ante Mano Muchas Gracias
De ante Mano Muchas Gracias
Respuesta de diogenesgil
1
Existen mucha forma pero a mi me gusta así.
1-Crear una function como esta
Function mesletra(Mes As Long) As String
Select Case Mes
Case 1
mesletra = "Enero"
Case 2
mesletra = "Febrero"
Case 3
mesletra = "Marzo"
'ETC
End Select
End Function
2-Luego usar una function de visual para buscar el mes (Month) y desde una lugar usarla de esta forma Ej.
Private Sub Command1_Click()
MsgBox mesletra(Month(Text1.Text))
End Sub
Este Ej. fue hecho en visual Exclusivo para ti.
1-Crear una function como esta
Function mesletra(Mes As Long) As String
Select Case Mes
Case 1
mesletra = "Enero"
Case 2
mesletra = "Febrero"
Case 3
mesletra = "Marzo"
'ETC
End Select
End Function
2-Luego usar una function de visual para buscar el mes (Month) y desde una lugar usarla de esta forma Ej.
Private Sub Command1_Click()
MsgBox mesletra(Month(Text1.Text))
End Sub
Este Ej. fue hecho en visual Exclusivo para ti.
