IBM Lotus Symphony


If...Then...Else Statement [Runtime]

يتم تعريف 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


التعليق التقييمي عن البرنامج | المزيد من المطبوعات الفنية | العلامات التجارية