WEEKDAY

• 来源: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgWeekday
• 最后更新: 2016-03-13

---

从日期序列获取星期几的数字

语法

` declare function Weekday ( byval serial as double , byval firstdayofweek as long = fbusesystem ) as long

`

用法

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

示例

start GeSHi

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

end GeSHi

与 QB 的差异

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

参见

• 日期序列

返回 目录