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.

  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]

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

Š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