If...Then...Else Statement
Define unu o más bloques d'instrucciones que namái se deseya executar cuando una condición dada ye cierta.
Sintaxis:
If condition=true Then Bloque de declaración [ElseIf condition=true Then] Bloque de declaración [Else] Bloque de declaración EndIf
En llugar de Else If pue escribir ElseIf, en llugar de End If pue escribir EndIf.
Parámetros:
La instrucción If...Then executa bloques de programa cuando se dan ciertes condiciones. Cuando LibreOffice Basic atopa una instrucción If, la condición compruébase. Si resulta ser cierta, execútense toles instrucciones posteriores hasta que s'atope una instrucción Else o ElseIf. Si la condición ye falsa y de siguío hai una instrucción ElseIf, LibreOffice Basic comprueba la condición siguiente y executa les instrucciones siguientes si la condición resulta ser cierta. Si resulta falsa'l programa sigue cola siguiente instrucción ElseIf o Else. Les instrucciones que siguen a Else namái s'executen si nenguna de les condiciones comprobaes enantes yera cierta. Cuando s'evaluaron toles condiciones y executáronse les instrucciones correspondientes, el programa sigue cola instrucción que sigue a EndIf.
Ye posible añerar delles instrucciones If...Then.
Les instrucciones Else y ElseIf son opcionales.
Pue usase GoTo y GoSub pa salir d'un bloque If...Then, pero non pa saltar dientro d'una estructura If...Then.
L'exemplu siguiente dexa introducir una fecha de caducidá d'un productu y determina si ésta yá pasó.
Exemplu:
Sub ExampleIfThenDate
Dim sDate As String
Dim sToday As String
sFecha = InputBox("Escriba la data de caducidá (MM.DD.AAAA)")
sDate = Right$(sDate, 4) + Mid$(sDate, 4, 2) + Left$(sDate, 2)
sToday = Date$
sToday = Right$(sToday, 4)+ Mid$(sToday, 4, 2) + Left$(sToday, 2)
If sDate < sToday Then
MsgBox "La fecha de caducidá yá pasó"
ElseIf sDate > sToday Then
MsgBox "La fecha de caducidá nun pasó entá"
Else
MsgBox "La fecha de caducidá ye güei"
End If
End Sub