IBM Lotus Symphony
|
Definira enega ali več blokov stavkov, ki jih želite izvršiti samo v primeru, da je dani pogoj True.
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.
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.
![]() |
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.
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