IBM Lotus Symphony
|
Definiert einen oder mehrere Anweisungsblöcke, die nur ausgeführt werden sollen, wenn eine bestimmte Bedingung erfüllt (True) ist.
If Bedingung=true Then Anweisungsblock [ElseIf Bedingung=true Then] Anweisungsblock [Else] Anweisungsblock EndIf Anstelle von "Else If" können Sie "ElseIf" und anstelle von "End If" können Sie "EndIf" schreiben.
Die Anweisung If...Then führt abhängig von der Erfüllung der angegebenen Bedingungen bestimmte Programmblöcke aus. Trifft Lotus® Symphony™ Basic auf eine If-Anweisung, wird zunächst die Erfüllung der Bedingung geprüft. Ist die Bedingung erfüllt (True), so werden alle nachfolgenden Anweisungen bis zur nächsten Else- oder ElseIf-Anweisung ausgeführt. Ist die Bedingung nicht erfüllt (False), und es folgt eine ElseIf-Anweisung, prüft Lotus Symphony Basic die nächste Bedingung und führt im Falle ihrer Erfüllung die ihr folgenden Anweisungen aus. Wenn die ElseIf-Bedingung nicht erfüllt ist (False), fährt das Programm bei der nächsten ElseIf-Anweisung (falls vorhanden) oder Else-Anweisung fort. Anweisungen im Else-Block werden nur ausgeführt, wenn keine der zuvor geprüften Bedingungen erfüllt (True) war. Sobald alle Bedingungen ausgewertet und die dazugehörigen Anweisungen ausgeführt sind, fährt das Programm mit der Anweisung nach dem EndIf fort.
Sie können mehrere If...Then-Anweisungen verschachteln.
Else und ElseIf-Statements brauchen nicht mit angegeben zu werden, sind also optional.
![]() |
Ihr Programm darf zwar mithilfe von GoTo und GoSub aus einer If...Then-Konstruktion herausspringen, jedoch nicht in eine If...Then-Struktur hineinspringen. |
Das folgende Beispiel lässt Sie das Verfallsdatum eines Produkts eingeben und bestimmt dann, ob es abgelaufen ist.
Sub ExampleIfThenDate
Dim sDate as String
Dim sToday as String
sDate = InputBox("Bitte geben Sie das Verfalldatum ein (TT.MM.JJJJ)")
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 "Das Verfalldatum ist abgelaufen"
ElseIf sDate > sToday Then
MsgBox "Das Verfalldatum ist noch nicht abgelaufen"
Else
MsgBox "Das Verfalldatum läuft heute ab"
End If
End Sub