calcular_edad

ESTE ES UN PROGRAMA REALIZADO EN: VISUAL BASIC 6.0(VB)

Que sirve para calcular la edad de un persona ingresando la fecha el mes y el año.

Ejemplo=26/03/1992 así.

Boton"CALCULAR"

Dim fn As Date 'fecha de nacimiento
Dim ed As Integer 'edad
fn = CDate(Text1.Text) '26/03/1992
ed = Int(Date - fn) / 365 'realizadopor:jefferson alvarado
Label3.Caption = Str(ed) & " años "
Text1 = "" 
Text1.SetFocus 

Boton "SALIR"

Unload Me