Declare Function Weekday ( ByVal serial As Double , ByVal firstdayofweek As Integer = fbusesystem ) As Integer

#include "vbcompat.bi"
result = Weekday( date_serial [, firstdayofweek ] )

date_serial
firstdayofweek

Возвращает номер дня недели из переменной, содержащей дату в формате Date Serial.

Значение дня недели должны быть в диапазоне 1-7, его значение зависит от параметра firstdayofweek

firstdayofweek опциональный параметр.

Компилятор не распознает эту функцию, если не включен файл vbcompat.bi.

#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)

• Не существует в QB. Эта функция появилась в PDS и VBDOS
  
  

• Date Serials