WeekDay Function
DateSerial āĻ āĻĨāĻŦāĻž DateValue āĻĢāĻžāĻāĻļāύ āĻĻā§āĻŦāĻžāϰāĻž āĻā§āĻĒāĻžāĻĻāĻŋāϤ āĻā§āϰāĻŽāĻŋāĻ āϤāĻžāϰāĻŋāĻ āϏāĻāĻā§āϝāĻž āĻĻā§āĻŦāĻžāϰāĻž āύāĻŋāϰā§āĻĻā§āĻļāĻŋāϤ āϏāĻĒā§āϤāĻžāĻšā§āϰ āĻā§āĻāĻŋāϰ āĻĻāĻŋāύ āϏāĻāĻļā§āϞāĻŋāώā§āĻ āϏāĻāĻā§āϝāĻž āĻĒā§āϰāĻĻāĻžāύ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤
āϏāĻŋāύāĻā§āϝāĻžāĻā§āϏ:
WeekDay (Number)
āĻĒā§āϰāĻĻāĻžāύ āĻŽāĻžāύ:
Integer
āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāĻāĻžāϰ:
āϏāĻāĻā§āϝāĻž: āϏāĻĒā§āϤāĻžāĻšā§āϰ (ā§§-ā§) āĻĻāĻŋāύ āĻšāĻŋāϏāĻžāĻŦ āĻāϰāĻžāϰ āĻāύā§āϝ āĻŦā§āϝāĻŦāĻšā§āϤ āĻā§āϰāĻŽāĻŋāĻ āϤāĻžāϰāĻŋāĻ āϏāĻāĻā§āϝāĻž āϧāĻžāϰāĻŖāĻāĻžāϰ⧠āĻāύāĻāĻŋāĻāĻžāϰ āĻāĻā§āϏāĻĒā§āϰā§āĻļāύāĨ¤
āĻāĻĒāύāĻŋ āĻāĻāĻāĻŋ āϤāĻžāϰāĻŋāĻ āϏāύā§āύāĻŋāĻŦā§āĻļ āĻāϰāĻžāύā§āϰ āϏāĻŽā§ āύāĻŋāĻā§āϰ āĻāĻĻāĻžāĻšāϰāĻŖāĻāĻŋ WeekDay āĻĢāĻžāĻāĻļāύ āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻāϰ⧠āϏāĻĒā§āϤāĻžāĻšā§āϰ āĻĻāĻŋāύ āύāĻŋāϰā§āϧāĻžāϰāĻŖ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤
āĻāĻĻāĻžāĻšāϰāĻŖ:
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