Weekday
 
从日期序列号获取星期几

语法

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
一周的第一天

返回值

从包含日期序列号格式的日期的变量返回周日数。

说明


周日值必须在1-7范围内，其含义取决于firstdayofweek 参数

firstdayofweek 是可选的。

值一周的第一天不变
省略星期日 
0本地设置fbUseSystem
1星期日fbSunday
2星期一fbMonday
3星期二fbTuesday
4星期三fbWednesday
5星期四fbThursday
6星期五fbFriday
7星期六fbSaturday


除非包含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差别

  • 在QB中不存在该函数出现在PDS和VBDOS中

参考