IBM Lotus Symphony


Príkaz If...Then...Else [Runtime]

Definuje jeden alebo viac blokov príkazov, ktoré chcete vykonať iba za predpokladu, že daná podmienka má hodnotu true.

Syntax:

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.

Parametre:

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

Ikona upozornenia 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.

Príklad:

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


Spätná väzba na produkt | Ďalšia dokumentácia | Ochranné známky