FECHA EN LETRAS

Escribir un aplicación que acepte fechas como tres números (dd, mm, aaaa) y las visualice del modo usual. A manera de ejemplo considere lo siguiente:

Para el desarrollo de esta aplicación, proceda a ubicar los siguientes controles en el formulario:

4 etiquetas
3 cajas de texto
1 marco
3 botones de comando

En seguida proceda a establecer las propiedades según se indica:

Form1

Nombre
FrmFecha

BorderStyle
3-Fixed Dialog

Caption
Fecha en letras

Label1

Nombre
LblDia

AutoSize
True

Caption
Día:

Label2

Nombre
LblMes

AutoSize
True

Caption
Mes:

Label3

Nombre
LblAnno

AutoSize
True

Caption
Año:

Label4

Nombre
LblFecha

AutoSize
True

Caption


Text1

Nombre
TxtDia

Text


Text2

Nombre
TxtMes

Text


Text3

Nombre
TxtAnno

Text


Command1

Nombre
CmdAceptar

Caption
&Aceptar

Default
True

Command2

Nombre
CmdLimpiar

Caption
&Limpiar

Command3

Nombre
CmdSalir

Caption
&Salir

Una vez establecidas las propiedades de la interfaz proceda a ingresar el siguiente código:

Private Sub CmdAceptar_Click()
Dim CadMes As String, Mes As Integer
Mes = Val(TxtMes)
Select Case Mes
Case 1: CadMes = “Enero”
Case 2: CadMes = “Febrero”
Case 3: CadMes = “Marzo”
Case 4: CadMes = “Abril”
Case 5: CadMes = “Mayo”
Case 6: CadMes = “Junio”
Case 7: CadMes = “Julio”
Case 8: CadMes = “Agosto”
Case 9: CadMes = “Setiembre”
Case 10: CadMes = “Octubre”
Case 11: CadMes = “Noviembre”
Case 12: CadMes = “Diciembre”
Case Else
MsgBox “Error de datos...”, vbCritical, “Mensaje”
Call CmdLimpiar_Click
Exit Sub
End Select
LblFecha = TxtDia & “ de ” & CadMes & “ de ” & TxtAnno
End Sub

Private Sub CmdLimpiar_Click()
TxtDia = “” : TxtMes = “” : TxtAnno = “”
TxtDia.SetFocus
End Sub

Private Sub CmdSalir_Click()
If MsgBox(“¿Desea terminar la aplicación?”, _
vbQuestion + vbYesNo, “Pregunta”) = vbYes Then
End
Else: Call CmdLimpiar_Click
End If
End Sub