Instructie If...Then...Else

Definieert een of meerdere statement blokken die u alleen wilt uitvoeren als er aan een gegeven conditie of expressie is voldaan, True.

  If condition Then 
      statements
  [{ElseIf} condition Then
      statements]
  [Else 
      statements]
  {EndIf|End If}

In plaats van EndIf kunt u EndIf schrijven.

If instructies kunnen tot een regel worden verkort wanneer het blok maar een instructie bevat.

  If condition Then statement [Else statement]

De instructie If...Then voert een blok met instructies uit afhankelijk van de conditie. Als er in LibreOffice Basic een instructie If gebruikt wordt, dan wordt de conditie getest. Als de conditie True is, dan worden alle volgende instructies tot de volgende Else of ElseIf uitgevoerd. Als de conditie False is, en er is een ElseIf instructie dan wordt door LibreOffice Basic die volgende expressie getest en de volgende instructies uitgevoerd als de condition is True. Bij False wordt er vervolgd met de volgende ElseIf of Else. Instructies na Else worden alleen uitgevoerd als geen van de eerder geteste conditie True waren. Na het evalueren van alle conditie en de bijbehorende instructies zijn uitgevoerd, gaat het programma verder met de instructie na de EndIf.

Er kunnen meerdere If...Then-instructies worden genest.

Else- en ElseIf-instructies zijn optioneel.

U kunt wel GoTo en GoSub gebruiken om uit een If...Then blok te springen, maar niet om een If...Then structuur binnen te springen.

In het volgende voorbeeld kunt u de vervaldatum van een product invoeren, het resultaat geeft aan of de vervaldatum is gepasseerd.

Sub ExampleIfThenDate
    Dim sInput As String
    Dim dInput As Date
 
  Bij fout Ga naar invoerFout
    sInput = InputBox("Voer de vervaldatum in (YYYY-MM-DD)")
    dInput = DateValue(sInput)
 
    If dInput < Date() Then
        MsgBox "De vervaldatum is gepasseerd."
    ElseIf dInput > Date() Then
        MsgBox "De vervaldatum is nog niet gepasseerd."
    Else
        MsgBox "De vervaldatum is vandaag."
    End If
 
inputError:
    If dInput = 0 Dan MsgBox "Ongeldige invoer"
End Sub