Weekday

Gets the number of day of the week from a ProPgDatesDate Serial

Syntax
	KeyPgDeclareDeclare KeyPgFunctionFunction Weekday ( KeyPgByvalByVal serial KeyPgAsAs KeyPgDoubleDouble , KeyPgByvalByVal firstdayofweek 
	KeyPgAsAs KeyPgLongLong = fbusesystem ) KeyPgAsAs KeyPgLong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 
	ProPgDates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 weekconstant   
			omittedsunday                      
			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
	* ProPgDatesDate Serials

