control if-then-else. vb.net

Fecha sábado, 12 de julio de 2014 | 7/12/2014 06:57:00 p. m.

Define uno o más bloques de instrucciones que sólo se desea ejecutar cuando una condición dada es cierta.

Parámetros:

La instrucción If...Then ejecuta bloques de programa cuando se dan ciertas condiciones.si se encuentra una sentencia If, se prueba la condición. Si resulta ser cierta, se ejecutan todas las instrucciones posteriores hasta que se encuentre una instrucción Else o ElseIf. Si la condición es falsa y a continuación hay una instrucción ElseIf, Lotus Symphony Basic comprueba la condición siguiente y ejecuta las instrucciones siguientes si la condición resulta ser cierta. Si resulta falsa el programa continúa con la siguiente instrucción ElseIf o Else. Las instrucciones que siguen a Else sólo se ejecutan si ninguna de las condiciones comprobadas anteriormente era cierta. Cuando se han evaluado todas las condiciones y se han ejecutado las instrucciones correspondientes, el programa continúa con la instrucción que sigue a EndIf.

Es posible anidar varias instrucciones If...Then.

Las instrucciones Else y ElseIf son opcionales.

Public Class Form1
 
    Sub NN() 'PROCEDIMIENTO NN 

        Dim sFecha As String

        Dim sHoy As String

        sFecha = InputBox("Escriba la fecha de caducidad (MM.DD.AAAA)")

        sFecha = Microsoft.VisualBasic.Right$(sFecha, 4) + Mid$(sFecha, 4, 2) + Microsoft.VisualBasic.Left(sFecha, 2)

        sHoy = Today

        sHoy = Microsoft.VisualBasic.Right$(sHoy, 4) + Mid$(sHoy, 4, 2) + Microsoft.VisualBasic.Left$(sHoy, 2)

        If sFecha < sHoy Then

            MsgBox("La fecha de caducidad ya ha pasado")

        ElseIf sFecha > sHoy Then

            MsgBox("La fecha de caducidad no ha pasado aún")

        Else

            MsgBox("La fecha de caducidad es hoy")

        End If

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Call NN() 'llama al procedimiento NN
    End Sub
End Class