Practica 2 – Calculo de Edad

Hola Compañeros !

A continuacion desarrollaremos un pequeño programa donde podremos saber cual es nuestra edad actual en años, meses y dias.

Module Module1

    Sub Main()

        Dim Fechadenacimiento, FechaActual, FechaProyectada As Date

        Dim AnoActual, MesActual, DiaActual, AnoNacimiento, MesNacimiento, DiaNacimiento As Integer

        Console.WriteLine(“Ingrese su Fecha de Nacimiento:”)

        Fechadenacimiento = Console.ReadLine()

        FechaActual = Date.Now()

        AnoNacimiento = Year(Fechadenacimiento)

        MesNacimiento = Month(Fechadenacimiento)

        DiaNacimiento = Day(Fechadenacimiento)

        AnoActual = Year(FechaActual)

        MesActual = Month(FechaActual)

        DiaActual = Day(FechaActual)

        If DiaActual < DiaNacimiento Then

            DiaActual = DiaActual + 30

            MesActual = MesActual – 1

        End If

        If MesActual < MesNacimiento Then

            MesActual = MesActual + 12

            AnoActual = AnoActual – 1

        End If

        Console.WriteLine(“Tu Tienes:”)

        Console.WriteLine(DiaActual – DiaNacimiento & ” Dias”)

        Console.WriteLine(MesActual – MesNacimiento & ” Meses”)

        Console.WriteLine(AnoActual – AnoNacimiento & ” Años”)

        Console.WriteLine(“De haber nacido”)

        Console.Read()

        Console.Clear()

    End Sub

End Module

A parte de asignar un valor a cada variable, lo mas importante en esta practica es la Sentencia If ya que es muy importante que la fecha actual no sea mayor a la fecha de nacimiento que nos proporcionen, ejemplo: si actualmente es 18 y la fecha de nacimiento es 12 debo utilizar la sentencia If para crear una operacion donde al 12 se le preste 1 mes en dias de parte del siguiente dato que seria el mes y asi se hace sucesivamente si es el mes actual es mayor, cualquier duda o comentario, puede escribirme.

Hasta la proxima…

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: