Edad Personal en Visual Basic

A continuación elaboraremos un programa que permita calcular la edad de una persona a partir de su fecha de nacimiento. El diseño del formulario debe ser igual a la figura mostrada.

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

- 2 etiquetas

- 2 cajas de texto

- 3 botones de comando

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

Form1

Nombre: FrmEdad

BorderStyle: 3-Fixed Dialog

Caption: Cálcula la edad de una persona

Label1                                                                 

Nombre: LblFecNac                                        

AutoSize: True                                                  

Caption: Fecha de nacimiento:                    

Font: Arial, negrita, 14                             

Label2

Nombre: LblEdad

Autosize: True

Caption: Su edad es:

Font: Arial, negrita, 14

Text1                                                                  

Nombre: TxtFecNac                                        

Text:

Font: Arial, negrita, 14                         

Text2

Nombre: TxtEdad

Text :                                                                     

Locked: True

Font: Arial, negrita, 14

Command1                                                      

Nombre: CmdAceptar                                     

Caption: &Aceptar

Font: Arial, 14                                                    

Command2

Nombre: CmdLimpiar

Caption: &Limpiar

Font: Arial, 14

Command3

Nombre: CmdSalir

Caption: &Salir

Font: Arial, 14

En seguida se procede a ingresar el siguiente código:

Private Sub CmdAceptar_Click()

'Declaración de variables

Dim FecNac As Date, Edad As Integer

'Calculo de la edad

FecNac = CDate(TxtFecNac)

Edad = CInt((Date - FecNac) / 365)

TxtEdad = Str(Edad) & " años"

End Sub

Private Sub CmdLimpiar_Click()

TxtFecNac = ""

TxtEdad = ""

End Sub

Private Sub CmdSalir_Click()

End

End Sub

Instrucciones para guardar y enviar tu archivo:

1. Guarda tu archivo con el nombre de EdadPersonal

2. Envía tu archivo al correo: correo@bydalonline.com

3. En asunto escribe: Edad Personal Visual Basic

Puedes descargar el ejercicio en PDF aquí.

Imprimir el artículo

• Tweet