Weekday
Gets the number of day of the week from a Date Serial
Declare Function Weekday ( ByVal serial As Double , ByVal firstdayofweek As Long = fbusesystem ) As Long
#include "vbcompat.bi"
result = Weekday( date_serial [, firstdayofweek ] )
date_serial
The week day values must be in the range 1-7, its meaning depends on the firstdayofweek parameter
firstdayofweek is optional.
The compiler will not recognize this function unless vbcompat.bi is included.
Syntax
Declare Function Weekday ( ByVal serial As Double , ByVal firstdayofweek As Long = fbusesystem ) As Long
Usage
#include "vbcompat.bi"
result = Weekday( date_serial [, firstdayofweek ] )
Parameters
date_serial
the date
firstdayofweekthe first day of the week
Return Value
Description
The week day values must be in the range 1-7, its meaning depends on the firstdayofweek parameter
firstdayofweek is optional.
value | first day of week | constant |
omitted | sunday | |
0 | local settings | fbUseSystem |
1 | sunday | fbSunday |
2 | monday | fbMonday |
3 | tuesday | fbTuesday |
4 | wednesday | fbWednesday |
5 | thursday | fbThursday |
6 | friday | fbFriday |
7 | saturday | fbSaturday |
Example
#include "vbcompat.bi"
Dim a As Double = DateSerial (2005, 11, 28) + TimeSerial(7, 30, 50)
Print Format(a, "yyyy/mm/dd hh:mm:ss "); Weekday(a)
Dim a As Double = DateSerial (2005, 11, 28) + TimeSerial(7, 30, 50)
Print Format(a, "yyyy/mm/dd hh:mm:ss "); Weekday(a)
Differences from QB
- Did not exist in QB. This function appeared in PDS and VBDOS
See also