IBM Lotus Symphony


Instrucción If...Then...Else [Ejecución]

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

Sintaxis:

If condition=true Then Statement block [ElseIf condition=true Then] Statement block [Else] Statement block EndIf Instead of Else If you can write ElseIf, instead of End If you can write EndIf.

Parámetros:

La instrucción If...Then ejecuta bloques de programa cuando se dan ciertas condiciones. Cuando Lotus® Symphony™ Basic 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.

Icono de advertencia Puede utilizar GoTo y GoSub para salir de un bloque If...Then, pero no para entrar en una estructura If...Then.

El ejemplo siguiente permite especificar una fecha de caducidad de un producto y determina si ésta ya ha pasado.

Ejemplo:

Sub EjemploIfThenFecha

Dim sFecha as String

Dim sHoy As String

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

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

sHoy = Date$

sHoy = Right$(sHoy, 4) + Mid$(sHoy, 4, 2) + 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


Comentarios del producto | Documentación adicional | Marcas registradas