IBM Lotus Symphony
|
Берілген шарт мәні "True" болса орындау керек бір немесе бірнеше нұсқау блоктарын анықтайды.
Егер шарт=true болса, Сонда Нұсқау блогы [ElseIf condition=true Then] Нұсқау блогы [Else] EndIf Нұсқау блогы Басқаның орнына "End If" мәнінің орнына "ElseIf" мәнін жазу мүмкін болса, онда "EndIf" мәнін де жазуға болады.
If...Then нұсқауы берілген шартқа байланысты бағдарлама блогын іске асырады. Lotus® Symphony™ Basic бағдарламасы If нұсқауын тапса, шарт тексеріледі. Шарт "True" болса, келесі Else немесе ElseIf нұсқауына дейінгі келесі барлық нұсқаулар орындалады. Егер шарт "False" болса және одан кейін ElseIf нұсқауы берілсе, Lotus Symphony Basic бағдарламасы келесі шартты тексеріп, шарт "True" болғанда келесі нұсқауларды орындайды. "False" болған жағдайда, бағдарлама келесі ElseIf немесе Else нұсқауының біреуімен жалғастырады. Else-тен кейінгі нұсқаулар бұрын тексерілген шарттардың ешқайсы "True" болмаса ғана орындалады. Барлық шарттар бағаланып, сәйкес нұсқаулар орындалғаннан кейін, бағдарлама EndIf-тен кейінгі нұсқаумен жалғастырады.
Бірнеше If...Then нұсқауларын енгізуге болады.
Else және ElseIf нұсқаулары міндетті емес.
![]() |
GoTo және GoSub нұсқауларын If...Then блогынан шығу үшін пайдалануға болады, алайда If...Then құрылымына кіру үшін қолдану мүмкін емес. |
Келесі мысалы өнімнің жарамдылық мерзімінің аяқталу уақытын енгізуге және оның біткенін анықтауға мүмкіндік береді.
Қосымша ExampleIfThenDate
sDate ұяшығын жол ретінде қайтару
sToday ұяшығын жол ретінде қайтару
sDate = InputBox("Жарамдылық мерзімінің аяқталу уақытын енгізіңіз (АА.КК.ЖЖЖЖ)")
sDate = Right$(sDate, 4) + Mid$(sDate, 4, 2) + Left$(sDate, 2)
sToday = Date$
sToday = Right$(sToday, 4)+ Mid$(sToday, 4, 2) + Left$(sToday, 2)
sDate < sToday болса, онда
MsgBox "Жарамдылық мерзімі аяқталды"
ElseIf sDate > sToday Then
MsgBox "Жарамдылық мерзімі аяқталған жоқ"
Басқа
MsgBox "Жарамдылық мерзімі бүгін аяқталады"
Болса аяқтаңыз
Аяқталу ішкі элементі