Inhoud

# Instructie If...Then...Else

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

### Syntaxis:

      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]

### Parameters:

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 beoordelen 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.

### Voorbeeld:

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

Verwante onderwerpen

Select Case instructie

Functies Iif en Switch

Help ons, alstublieft!