Module
Contents
Index 🔎︎

# 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