Lotus Symphony 1.2


WeekDay 函數 [執行時期]

傳回與由 DateSerial 或 DateValue 函數產生的工作日 (以順序日期數表示) 相對應的數字。

語法:

WeekDay(Number)

回覆值:

Integer

參數:

以下範例使用 WeekDay 函數確定輸入的日期是星期幾。

錯誤代碼

錯誤代碼

5 無效的程序呼叫

範例:

Sub ExampleWeekDay

Dim sDay As String

REM 傳回並顯示輸入的日期是星期幾

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


其他文件 | 商標