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:                         

Text2

Nombre: TxtEdad

Text :                                                                     

Locked: True

Command1                                                      

Nombre: CmdAceptar                                     

Caption: &Aceptar                                                    

Command2

Nombre: CmdLimpiar

Caption: &Limpiar

Command3

Nombre: CmdSalir

Caption: &Salir

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 Form_Load( )

TxtEdad.Enabled = False

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: computacion@cecosama.edu.gt

3. En asunto escribe: Edad Personal Visual Basic

Puedes descargar el ejercicio en PDF aquí.

Imprimir el artículo