que nos sirve para calcular, la edad, los días vividos y las horas vividas, para este proyecto agreguemos a nuestro form1 los siguientes objetos:

·         4 label

·         4 textBox

·         2 Button   =  Calcular y Salir

La fecha de nacimiento tiene el formato siguiente:     12/04/1990

Codificación:

En el botón calcular damos doble clic e introducimos el código siguiente:

Private Sub BtnCalcular_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles BtnCalcular.Click

        Dim fnac As Date = Convert.ToDateTime(TextBox1.Text())

        Dim Edad As Int32

        Dim Diferencia As TimeSpan

        Diferencia = Today.Subtract(fnac)

        Edad = Fix(Diferencia.TotalDays / 365.25)

        TextBox2.Text() = Diferencia.TotalDays.ToString

        TextBox3.Text() = Diferencia.TotalHours.ToString

        TextBox4.Text() = Edad.ToString

En el textBox1 damos doble clic ye introducimos el codigo siguiente:

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles TextBox1.TextChanged

        If IsDate(TextBox1.Text) Then

            BtnCalcular.Enabled = True

        Else

            BtnCalcular.Enabled = False

        End If

    End Sub

End Class