IBM Lotus Symphony


Stavek If...Then...Else [izvajalno okolje]

Definira enega ali več blokov stavkov, ki jih želite izvršiti samo v primeru, da je dani pogoj True.

Skladnja:

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.

Parametri:

Stavek If...Then izvede blok programa odvisno od podanih pogojev. Ko Lotus® Symphony™ Basic naleti na stavek If, se preveri pogoj. Če je pogoj true, se izvedejo vsi sledeči stavki do naslednjega stavka Else ali ElseIf. Če je pogoj False in sledi stavek ElseIf, Lotus Symphony Basic preveri naslednji pogoj in izvrši naslednji stavek, če je njegov pogoj True. Če je pogoj False, program nadaljuje ali z naslednjim stavkom ElseIf ali pa s stavkom Else. Stavki, ki sledijo Else, se izvedejo samo v primeru, da noben od prej testiranih pogojev ni bil True. Ko so ocenjeni vsi pogoji in izvršene ustrezne izjave, program nadaljuje z izjavo, ki sledi EndIf.

Ugnezdite lahko več stavkov If...Then.

Stavki Else in ElseIf so neobvezni.

Ikona opozorila S pomočjo GoTo in GoSub lahko skočite iz bloka If...Then, ne pa v strukturo If...Then.

Naslednji primer vam omogoča, da vnesete datum poteka uporabnosti za izdelek in določite, ali je datum uporabnosti že potekel.

Primer:

Sub ExampleIfThenDate

Dim sDate as String

Dim sToday as String

sDate = InputBox("Enter the expiration date (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 "The expiration date has passed"

ElseIf sDate > sToday Then

MsgBox "The expiration date has not yet passed"

Else

MsgBox "The expiration date is today"

End If

End Sub


Povratne informacije o izdelku | Dodatna dokumentacija | Blagovne znamke