<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form_Produc_Modi
    Inherits System.Windows.Forms.Form

    'Form reemplaza a Dispose para limpiar la lista de componentes.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    'Requerido por el Diseñador de Windows Forms
    Private components As System.ComponentModel.IContainer

    'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
    'Se puede modificar usando el Diseñador de Windows Forms.  
    'No lo modifique con el editor de código.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        components = New System.ComponentModel.Container
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.Text = "Form_Produc_Modi"
    End Sub
End Class

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