WeekDay Function
DateSerial λλ DateValue ν¨μλ₯Ό μ¬μ©νμ¬ μμ±ν μ°μ λ μ§ λ²νΈκ° λνλ΄λ μμΌμ ν΄λΉνλ μ«μλ₯Ό ꡬν©λλ€.
ꡬ문:
WeekDay (Number)
λ°ν κ°:
Integer
λ§€κ° λ³μ:
Number: μμΌ(1-7)μ κ³μ°νλ λ° μ¬μ©λλ μ°μ λ μ§ λ²νΈλ₯Ό ν¬ν¨νλ μ μ μμ λλ€.
λ€μμ λ μ§λ₯Ό μ λ ₯ν λ WeekDay ν¨μλ₯Ό μ¬μ©νμ¬ μμΌμ νμΈνλ μμ λλ€.
μ:
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