Indhold

# Erklæringen If...Then...Else Statement

Definerer en eller flere erklæringsblokke, som du kun vil udføre, hvis en given betingelse eller udtryk er True (sand).

### Syntaks:

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

I stedet for End If kan du skrive EndIf.

If erklæringer kan afkortes til en linje ved brug af enkelterklærings-blokke.

      If condition Then statement [Else statement]

### Parametre:

Erklæringen If...Then udfører programblokke afhængigt af de givne betingelser. Når LibreOffice Basic møder en If-erklæring, prøves betingelsen. Hvis betingelsen er True (sand), udføres alle følgende erklæringer op til den næste Else- eller ElseIf-erklæring. Hvis betingelsen er False (falsk) og der følger en ElseIf-erklæring, tester LibreOffice Basic det næste udtryk og udfører de følgende erklæringer, hvis betingelsen er True. If False (sand), programmet fortsætter med enten den næste ElseIf- eller Else-erklæring. Erklæringer, der følger Else udføres kun, hvis ingen eller de forud testede betingelser var True (sande). Efter at alle betingelser er testet og de tilsvarende erklæringer er udført, fortsætter programmet med de erklæringer, der følger EndIf.

Du kan indlejre gentagne If...Then- sætninger.

Else og ElseIf- sætninger er valgfrie.

Du kan bruge GoTo og GoSub for at hoppe ud af en If...Then- blok, men ikke til at hoppe ind i en If...Then struktur.

### Eksempel:

Følgende eksempel lader dig indtaste udløbsdatoen på et produkt, og bestemmer om udløbsdatoen er overskredet.

    Sub ExampleIfThenDate
        Dim sInput As String
        Dim dInput As Date

      On Error Goto inputError
        sInput = InputBox("Angiv udløbsdatoen (ÅÅÅÅ-MM-DD)")
        dInput = DateValue(sInput)

        If dInput < Date() Then
            MsgBox "Udløbsdatoen er overskredet"
        ElseIf dInput > Date() Then
            MsgBox "Udløbsdatoen er endnu ikke passeret"
        Else
            MsgBox "Udløbsdatoen er i dag"
        End If

    inputError:
        If dInput = 0 Then MsgBox "Ugyldigt input"
    End Sub

Relaterede emner

erklæringen Select Case

Iif eller Switch-funktioner

Støt os venligst!