Turinys

# If...Then...Else sakinys

Apibrėžia vieną ar daugiau sakinių blokų, kuriuos norite vykdyti tik tuo atveju, jei tam tikros sąlygos ar reiškinio reikšmė yra True.

### Sintaksė:

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

Instead of End If you can write EndIf.

If sakinius galima sutrumpinti iki vienos eilutės, naudojant atskirus sakinių blokus.

      If condition Then statement [Else statement]

### Parametrai:

If...Then sakinys vykdo programos blokus priklausomai nuo nurodytų sąlygų. Kai „LibreOffice Basic“ susiduria su If sakiniu, vykdoma sąlyga. Jei sąlyga yra True, visi vienas po kito einatys sakiniai yra vykdomi iki tol, kol sutinkamas Else arba ElseIf sakinys. Jei sąlyga lygi False ir yra ElseIf sakinio dalis, tai „LibreOffice Basic“ tikrina tikrina tolesnį reiškinį ir vykdo tolesnius sakinius, jei sąlyga yra True. Jei sąlyga yra False, tai programa tęsia darba arba nuo ElseIf, arba nuo Else sakinio. Sakiniai, einantys po Else, vykdomi tik tada, jei anksčiau testuotos sąlygos buvo True. Įvertinus visas sąlygas ir įvykdžius atitinkamus sakinius, programa toliau vykdo sakinius, einančius po EndIf.

Sakinius If...Then galite įdėti vieną į kitą daug kartų.

Else ir ElseIf sakinių dalys yra neprivalomos, pasirinktinės.

Galite naudoti GoTo ir GoSub norėdami peršokti If...Then bloką, tačiau negalima šokti į struktūros If...Then vidų.

### Pavyzdys:

Šis pavyzdys leidžia įvesti produkto galiojimo datą ir nustatyti, ar galiojimo laikas praėjo.

    Sub ExampleIfThenDate
        Dim sInput As String
        Dim dInput As Date

      On Error Goto inputError
        sInput = InputBox("Enter the expiration date (YYYY-MM-DD)")
        dInput = DateValue(sInput)

        If dInput < Date() Then
            MsgBox "Galiojimo laikas praėjo"
        ElseIf dInput > Date() Then
            MsgBox "Galiojimo laikas dar nepraėjo"
        Else
            MsgBox "Galiojimas baigsis šiandien"
        End If

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

Susijusios temos

Pasirinkti Case sakinį

Iif arba Switch funkcijos

Paremkite mus!