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