CALCULAR LA EDAD DE UNA PERSONA

Elaborar una aplicación que permita calcular la edad de una persona a partir de su fecha de nacimiento. El diseño de la interfaz debe ser similar a la figura mostrada:

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

2 etiquetas
2 cajas de texto
3 botones de comando

Luego, proceda a establecer las propiedades según se indica a continuación:

Form1

Nombre
FrmEdad

BorderStyle
3-Fixed Dialog

Caption
Calcula la edad de una persona

Label1

Nombre
LblFecNac

AutoSize
True

Caption
Fecha de nacimiento:

Label2

Nombre
LblEdad

AutoSize
True

Caption
Su edad es:

Text1

Nombre
TxtFecNac

Text


Text2

Nombre
TxtEdad

Locked
True

Text


Command1

Nombre
CmdAceptar

Caption
&Aceptar

Default
True

Command2

Nombre
CmdLimpiar

Caption
&Limpiar

Command3

Nombre
CmdSalir

Cancel
True

Caption
&Salir
En seguida proceda a ingresar el siguiente código:

Private Sub CmdAceptar_Click()
Dim FecNac As Date, Edad As Integer
FecNac = CDate(TxtFecNac)
Edad = CInt((Date - FecNac) / 365)
TxtEdad = Str(Edad) & “ años”
End Sub

Private Sub CmdLimpiar_Click()
TxtHamburguesa = "": TxtCerveza = ""
TxtGaseosa = "": TxtEnsalada = ""
TxtSalchichas = "": TxtRefresco = ""
TxtSopa = "": TxtPostre = ""
TxtVentaTotal = "": TxtImpuesto = ""
TxtHamburguesa.SetFocus

End Sub

Private Sub CmdSalir_Click()

End

End Sub