Weekday
Gets the number of day of the week from a Date Serial
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
`firstdayofweek`
the first day of the week
Return Value
Returns the week day number from a variable containing a date in Date Serial format.
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

The compiler will not recognize this function unless `vbcompat.bi` is included.
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)
`
Differences from QB

- Did not exist in QB. This function appeared in PDS and VBDOS

See also

- Date Serials