Para hacer calculo de una persona es necesario tener la fecha de nacimiento y la fecha final que puede ser la fecha actual o fecha menor pero mayor que la fecha de nacimiento si no obtendra un valor negativo.
En el formulario necesitaremos lo siguiente.
Codigo:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Dim date1 As Date = CDate(Me.DateTimePicker1.Value)
Dim date2 As Date = CDate(Me.DateTimePicker2.Value)
If date2.Year < date1.Year Then
Me.LabelResult.Text = "Rango de fechas es invalido"
ElseIf date2.Month < date1.Month Then
Me.LabelResult.Text = "Rango de fechas es invalido"
Else
Me.LabelResult.Text = "Su edad actual es: " & CStr(date2.Year - date1.Year) & " Años y " & CStr(date2.Month - date1.Month) & " meses"
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "Error")
End Try
End Sub
Imagen:
En este ejemplo calculamos la edad actual de Años viviendo y tambien los meses, el porque calcular los meses? La respuesta seria supongase que esta trabajando en un hospital y un bebe es recien nacido y lleva su archivo en que mes nacio, y usted desea saber cuantos meses lleva de nacido asta la fecha actual, lo mas confiable es contar con un calculador de edades y con sus meses respectivos.
