IBM Lotus Symphony
|
يتم ارجاع الرقم المناظر لليوم من الأسبوع الممثل بواسطة قيمة التاريخ المتسلسلة التي تم تكوينها باستخدام وظيفة DateSerial أو DateValue.
WeekDay (Number)
رقم صحيح
Number: تعبير رقمي يحتوي على قيمة التاريخ المتسلسلة التي يتم استخدامها لاحتساب اليوم من الأسبوع.
يحدد المثال التالي اليوم من الأسبوع باستخدام وظيفة WeekDay function عند ادخال تاريخ.
Sub ExampleWeekDay
Dim sDay As String
REM Return and display the day of the week
Select Case WeekDay( Now )
case 1
sDay="Sunday"
case 2
sDay="Monday"
case 3
sDay="Tuesday"
case 4
sDay="Wednesday"
case 5
sDay="Thursday"
case 6
sDay="Friday"
case 7
sDay="Saturday"
End Select
msgbox "" + sDay,64,"Today is"
End Sub