IBM Lotus Symphony
|
Definuje jeden alebo viac blokov príkazov, ktoré chcete vykonať iba za predpokladu, že daná podmienka má hodnotu true.
If podmienka=true Then Blok príkazov [ElseIf podmienka=true Then] Blok príkazov [Else] Blok príkazov EndIf Namiesto Else If môžete napísať ElseIf, namiesto End If môžete napísať EndIf.
Príkaz If...Then vykonáva bloky programu v závislosti na daných podmienkach. Keď Lotus® Symphony™ Basic zaznamená príkaz If, podmienka sa otestuje. Ak má táto podmienka hodnotu true, vykonajú sa všetky nasledujúce príkazy až po ďalší príkaz Else alebo ElseIf. Ak má podmienka hodnotu false a príkaz ElseIf, nasleduje po nej, Lotus Symphony Basic testuje ďalšiu podmienku a vykoná sa príkazy nasledujúce za ňou, ak má táto podmienka hodnotu true. Ak má podmienka hodnotu false, program pokračuje ďalším príkazom ElseIf alebo Else. Príkazy nasledujúce po Else sa vykonajú iba vtedy, ak žiadna z dovtedy testovaných podmienok nenadobudla hodnotu true. Po vyhodnotení všetkých podmienok a vykonaní príslušných príkazov program pokračuje s príkazom nasledujúcim po EndIf .
Viaceré príkazy If...Then môžete vnárať do seba.
Príkazy Else a ElseIf sú voliteľné.
![]() |
GoTo a GoSub môžete použiť na vyskočenie z bloku If...Then, ale nie na skočenie do štruktúry If...Then. |
Nasledujúci príklad vám umožní zadať dátum exspirácie produktu a určiť, či tento dátum už prešiel.
Sub Príklad_If Then Date
Dim sDate as String
Dim sToday ako typ String
sDate = InputBox("Zadajte dátum expirácie (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 "Dátum exspirácie už prešiel"
ElseIf sDate > sToday Then
MsgBox "Dátum exspirácie ešte neprešiel"
Else
MsgBox "Dátum expirácie nastal dnes"
End If
End Sub