Función para obtener la edad a partir de la fecha de nacimiento:
Public Shared Function Edad(ByVal FechaNacimiento As DateTime) As Double
Dim dblEdad As Double = DateTime.Now.Subtract(FechaNacimiento).TotalDays / 365.25
Return dblEdad
End Function

Regístrate y recibe un email semanal con los últimos trucos informáticos. Pulsa aquí!!

Este truco ha recibido 20 votaciones| Nota media: 7Selecciona tu Puntuación: