Tengo que realizar una aplicación

Tengo que realizar una aplicación que permita calcular la edad a partir de la fecha de nacimiento debo ingresar la edad mediante un imputbox, y debo crear una función que reciba como argumento la fecha de nacimiento y devuelva la edad

1 Respuesta

Respuesta
1
Es algo muy sencillo
' Obtener la fecha actual
Hoy = Format(Date$, "dd/mm/yyyy")
' pedir fecha de naciemiento por inputbox
F_Nacimiento = InputBox("Ingresa tu fecha de nacimiento dd/mm/aaaa")
' Calcular edad
edad = Year(Hoy) - Year(F_Nacimiento)
' Mostrar la edad
MsgBox "tu edad es " & edad & " Años"

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas