WeekDay Function

DateSerial āĻ…āĻĨāĻŦāĻž DateValue āĻĢāĻžāĻ‚āĻļāĻ¨ āĻĻā§āĻŦāĻžāĻ°āĻž āĻ‰ā§ŽāĻĒāĻžāĻĻāĻŋāĻ¤ āĻ•ā§āĻ°āĻŽāĻŋāĻ• āĻ¤āĻžāĻ°āĻŋāĻ– āĻ¸āĻ‚āĻ–ā§āĻ¯āĻž āĻĻā§āĻŦāĻžāĻ°āĻž āĻ¨āĻŋāĻ°ā§āĻĻā§‡āĻļāĻŋāĻ¤ āĻ¸āĻĒā§āĻ¤āĻžāĻšā§‡āĻ° āĻ›ā§āĻŸāĻŋāĻ° āĻĻāĻŋāĻ¨ āĻ¸āĻ‚āĻļā§āĻ˛āĻŋāĻˇā§āĻŸ āĻ¸āĻ‚āĻ–ā§āĻ¯āĻž āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻ•āĻ°ā§‡ āĻĨāĻžāĻ•ā§‡āĨ¤

āĻ¸āĻŋāĻ¨āĻŸā§āĻ¯āĻžāĻ•ā§āĻ¸:


WeekDay (Number)

āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻŽāĻžāĻ¨:

Integer

āĻĒā§āĻ¯āĻžāĻ°āĻžāĻŽāĻŋāĻŸāĻžāĻ°:

āĻ¸āĻ‚āĻ–ā§āĻ¯āĻž: āĻ¸āĻĒā§āĻ¤āĻžāĻšā§‡āĻ° (ā§§-ā§­) āĻĻāĻŋāĻ¨ āĻšāĻŋāĻ¸āĻžāĻŦ āĻ•āĻ°āĻžāĻ° āĻœāĻ¨ā§āĻ¯ āĻŦā§āĻ¯āĻŦāĻšā§ƒāĻ¤ āĻ•ā§āĻ°āĻŽāĻŋāĻ• āĻ¤āĻžāĻ°āĻŋāĻ– āĻ¸āĻ‚āĻ–ā§āĻ¯āĻž āĻ§āĻžāĻ°āĻŖāĻ•āĻžāĻ°ā§€ āĻ‡āĻ¨āĻŸāĻŋāĻœāĻžāĻ° āĻāĻ•ā§āĻ¸āĻĒā§āĻ°ā§‡āĻļāĻ¨āĨ¤

āĻ†āĻĒāĻ¨āĻŋ āĻāĻ•āĻŸāĻŋ āĻ¤āĻžāĻ°āĻŋāĻ– āĻ¸āĻ¨ā§āĻ¨āĻŋāĻŦā§‡āĻļ āĻ•āĻ°āĻžāĻ¨ā§‹āĻ° āĻ¸āĻŽā§Ÿ āĻ¨āĻŋāĻšā§‡āĻ° āĻ‰āĻĻāĻžāĻšāĻ°āĻŖāĻŸāĻŋ WeekDay āĻĢāĻžāĻ‚āĻļāĻ¨ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡ āĻ¸āĻĒā§āĻ¤āĻžāĻšā§‡āĻ° āĻĻāĻŋāĻ¨ āĻ¨āĻŋāĻ°ā§āĻ§āĻžāĻ°āĻŖ āĻ•āĻ°ā§‡ āĻĨāĻžāĻ•ā§‡āĨ¤

Error codes:

5 Invalid procedure call

āĻ‰āĻĻāĻžāĻšāĻ°āĻŖ:


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

Please support us!