Imports System

Imports System.Globalization

​

Public Module Module1 ' Inicio del módulo

​

    private dim locale as CultureInfo = New CultureInfo("es-ES") ' Vamos a utilizar este locale para obtener las fechas en castellano

​

    ' Punto de entrada del programa

    Public Sub Main()

        Dim nombre as String = Prompt("Nombre")                                             ' Solicitar y almacenar el nombre

        Dim fechaNacimiento as Date = PromptDate("Fecha de nacimiento")                     ' Solicitar la fecha de nacimiento

        Dim edad as Integer = CalcularEdad(fechaNacimiento, Date.Today)                     ' Calcular la edad que tendría el sujeto a día de hoy

        Console.WriteLine(

            "Hola {0}, si naciste el {1}, tu edad es de {2} años.",

            nombre, fechaNacimiento.ToString("D", locale), edad)                            ' Enfrentar al sujeto con la cruda realidad

    End Sub ' Fin de la función

​

    private Function Prompt(query as String) as String ' Solicitar un valor por consola

        Console.WriteLine("Introduce tu " + query + ": ")                                   ' Mostrar un mensaje indicando el valor que se solicita

        return Console.ReadLine()                                                           ' Devolver el valor introducido

    End Function ' Fin de la función

​

    private function PromptDate(query as String) as Date  ' Solicitar una edad por consola

        while true                                                                          ' Mientras no se obtenga una fecha

            Dim val as String = Prompt(query)                                               ' Solicitar una fecha

            Dim result as Date                                                              ' Aquí se guardará el resultado

            if Date.TryParseExact(val, "d/M/yyyy",

                    locale, DateTimeStyles.None, result) then                               ' Si el valor introducido se puede interpretar como fecha

                return result                                                               ' Devolver la fecha introducida

            else                                                                            ' En caso contrario

                Console.WriteLine("La fecha indicada no corresponde al formato dia/mes/año o no es una fecha válida")

                                                                                            ' Indicar el formato en que se debe introducir la fecha

            end if                                                                          ' Fin del condicional, volver a repetir

        end while                                                                           ' Fin del bucle

    end Function ' Fin de la función

​

    private function CalcularEdad(fechaNacimiento as Date, fechaReferencia as Date) as Integer  ' Calcular la edad entre las dos fechas dadas

        Dim edad as Integer = fechaReferencia.Year - fechaNacimiento.Year                   ' Calcular la edad como diferencia entre el año actual y el año de nacimiento

        if fechaNacimiento > fechaReferencia.AddYears(-edad) then                           ' Si aún no se han cumplido años este año

            edad -= 1                                                                       ' Ajustar la edad

        end if                                                                              ' Fin del condicional

        return edad                                                                         ' Devolver la edad calculada

    end Function ' Fin de la función

End Module ' Fin del módulo

​