If...Then...Else Statement

M√§√§ratleb √ľhe v√Ķi mitu lause sisu, mille soovid k√§ivitada, kui vastav tingimus on T√ēENE.

S√ľntaks:


If condition=true Then Statement block [ElseIf condition=true Then] Statement block [Else] Statement block EndIf

Instead of Else If you can write ElseIf, instead of End If you can write EndIf.

Parameetrid:

Lause If...Then k√§ivitab programmiplokid vastavalt sisestatud tingimusele. Kui LibreOffice Basic tuvastab lause If, siis kontrollitakse tingimust. Kui tingimus on t√Ķene, siis k√§ivitatakse k√Ķik j√§rgnevad laused kuni j√§rgmise lauseni Else v√Ķi ElseIf. Kui tingimus on v√§√§r ja j√§rgneb lause ElseIf, testib LibreOffice Basic j√§rgmist tingimust ja juhul, kui tingimus on t√Ķene, k√§ivitab j√§rgmised laused. Kui tingimus on v√§√§r, j√§tkab programm j√§rgmise lausega ElseIf v√Ķi Else. Lausele Else j√§rgnevad laused k√§ivitatakse ainult siis, kui √ľkski varem kontrollitud tingimusest pole t√Ķene. P√§rast tingimuste anal√ľ√ľsimist ja vastavate lausete k√§ivitamist j√§tkab programm lausele EndIf j√§rgneva lausega.

Soovi korra saab pesastada mitu If...Then lauset.

Else ja ElseIf laused pole kohustuslikud.

Hoiatav ikoon

Lausete GoTo ja GoSub abil saad lause If...Then sisust väljuda, kuid ei saa plokki If...Then siseneda.


Järgmises näites kirjeldatakse toote aegumiskuupäeva sisestamist ja aegumiskuupäeva möödumise kindlaksmääramist.

Näide:


Sub ExampleIfThenDate
Dim sDate As String
Dim sToday As String
    sDate = InputBox("Sisesta aegumiskuupäev (MM.DD.YYYY)")
    sDate = Right$(sDate, 4) + Mid$(sDate, 4, 2) + Left$(sDate, 2)
    sToday = Date$
    sToday = Right$(sToday, 4)+ Mid$(sToday, 4, 2) + Left$(sToday, 2)
    If sDate < sToday Then
        MsgBox "Aegumiskuupäev on möödas"
    ElseIf sDate > sToday Then
        MsgBox "Aegumiskuupäev pole veel möödas"
    Else
        MsgBox "Aegumiskuupäev on täna"
    End If
End Sub

Palun toeta meid!