Weekday

FreeBASIC

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.

valuefirst day of weekconstant
omittedsunday 
0local settingsfbUseSystem
1sundayfbSunday
2mondayfbMonday
3tuesdayfbTuesday
4wednesdayfbWednesday
5thursdayfbThursday
6fridayfbFriday
7saturdayfbSaturday


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