IBM Lotus Symphony
|
Define uno o más bloques de instrucciones que sólo se desea ejecutar cuando una condición dada es cierta.
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.
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.
![]() |
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.
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