IBM Lotus Symphony
|
يتم تعريف statement block واحدة أو أكثر تريد تنفيذها فقط اذا كان شرط معين 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.
تقوم عبارة If...Then statement بتنفيذ program blocks وفقا لشروط معينة. عند قيام Lotus® Symphony™ Basic باكتشاف عبارة If، يتم اختبار الشرط. اذا كان الشرط True، سيتم تنفيذ كل العبارات التالية حتى عبارة Else أو ElseIf التالية. اذا لم يتحقق الشرط، وكانت عبارة ElseIf تابعة، سيقوم Lotus Symphony Basic باختبار الشرط التالي وتنفيذ العبارات التالية اذا تحقق الشرط. اذا كان False، سيستمر البرنامج بتنفيذ عبارة ElseIf أو Else التالية. يتم تنفيذ العبارات التي تلي Else فقط اذا لم يكن أي من الشروط السابقة True. بعد تقييم كل الشروط، وتنفيذ العبارات المناظرة، سيستمر البرنامج بتنفيذ العبارة التي تلي EndIf.
يمكنك أيضا تحديد تداخل عبارات If...Then متعددة.
عبارات Else و ElseIf اختيارية.
![]() |
يمكنك استخدام GoTo و GoSub للقفز من If...Then block، لكن لا يمكن القفز داخل If...Then structure. |
يسمح لك المثال التالي أن تقوم بادخال تاريخ الانتهاء لمنتج، وتحدد ما اذا كان تاريخ الانتهاء قد انقضى.
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