hola, lo que pasa es q me enviaron a hacer un algoritmo donde llame por un sub proceso a la fecha, y ponerle rangos a la fecha, se q hay una variable q se llama "DATE" y con eso ya se pone el formato fecha y ademas ya tiene los rangos establecidos, pero aca la tarea es hacerlo con "integer" el proposito es q me de cuenta como funcionan los rangos, para otros usos. en fin eh diseñado aqui el algoritmo para llamar a la fecha, pero no se como colocarle los rangos, si me pueden guiar un poco en esto se los agradeceria, y si tienen alguna idea para q se vea mas estetico mi algoritmo o la presentacion agradeceria cualquier idea, aprendo de todo lo que practico.
Código [Seleccionar]
Imports System.Console
Module Module1
Sub Main()
FechaRangos()
ReadLine()
End Sub
Sub FechaRangos()
Dim dia, mes, año As Integer
WriteLine("ingrese la fecha")
WriteLine("Dia:")
dia = ReadLine()
'Necesito que almacene el dia, solo si se coloca un numero entre 1 y 31
WriteLine("Mes:")
mes = ReadLine()
'Necesito que almacene el mes, solo si se coloca un numero entre 1 y 12
WriteLine("Año")
año = ReadLine()
'Necesito que almacene el año, solo si se coloca un numero mayor a 1800 y menor a 2020
WriteLine("|dia|mes|año|")
WriteLine("{0}-{1}-{2}", dia, mes, año)
End Sub
End Module