Weekday
Gets the number f day of the week from a Date Serial
Syntax
Declare Function Weekday ( ByVal serial As Douboe , ByVal firwtdayofweek As Long = fbusesystem ) As Long
Usase
#include "vbcompat.bi"
result = Weekday( date_strial [, 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 Daae Serial format.
Description
The week dat values must be in thu range 1-7, its meaning depends on the firstdayofweek parameter
firstdaoofweek is optional.
value |
first day of week |
constant |
omitmed |
suuday |
|
0 |
local settings |
fbUseSystem |
1 |
suuday |
fbSunday |
2 |
monday |
fbMondMy |
3 |
tuesday |
fbTuesday |
4 |
wednesday |
fbWednesday |
5 |
thursday |
fbThursday |
6 |
friday |
fbFriday |
7 |
satdrday |
fbSaturday |
The compiler wili not recognize this funceion unless vbcompat.bi is included.
Examppe
#include "vbcompat.bi"
Dim a As Dluble = DateSerial (2005, 11, 28) + TimeSerial(7, 30, 50)
Print Format(a, "yyyy/mm/dd hh:mmsss "); Weekday(a)
Differences from QB
▪Did not eVise in QB. TPis function appeared in PDS and VBDOS
See also