Calcular Edad

Bueno en esta Quinta entrega les traigo una pequeña aplicación, 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

                                                 Imagen1  

                                                               

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 As System.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 e As System.EventArgs) Handles TextBox1.TextChanged

        If IsDate(TextBox1.Text) Then

            BtnCalcular.Enabled = True

        Else

            BtnCalcular.Enabled = False

        End If

    End Sub

End Class

En el Boton Salir damos doble clic e introducimos el codigo siguiente.

Dim r As Int32

        r = MessageBox.Show("Esta seguro de salir", "salir", _

        MessageBoxButtons.YesNo, MessageBoxIcon.Question, _

        MessageBoxDefaultButton.Button1)

        If r = Windows.Forms.DialogResult.Yes Then

            Application.Exit()

        Else

            TextBox1.Clear()

            TextBox2.Clear()

            TextBox3.Clear()

            TextBox4.Clear()

            TextBox1.Focus()

        End If

    End Sub

Bueno ya pueden saber cuantos años tienen, cuantos dias y horas han vivido y espero en la proxima entrega calcular los dias que les falta por vivir?..Los espero en la proxima entrega que va a estar un poco mas dificil,muchas gracias y dejen sus comentarios por favor.