DatePart

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

---

从日期中获取某个时间间隔部分

语法

declare function DatePart ( byref interval as const string, byval date_serial as double, byval firstdayofweek as long = fbUseSystem, byval firstdayofyear as long = fbUseSystem ) as long

用法

#include "vbcompat.bi"
result = DatePart( interval, date_serial, first_dayofWeek [, first_week_of_year ] )

参数

interval

指示需要日期哪个部分的字符串

date_serial

要解析的日期序列

firstdayofweek

一周的第一天

firstdayofyear

一年的第一天

返回值

返回代表日期序列中 interval 的整数。

说明

interval 字符串指示需要日期的哪个部分，具体如下：

值	时间间隔
yyyy	年
q	季度（三个月）
m	月
w	星期几
ww	年中第几周
y	年中第几天
d	月中第几天
h	小时
n	分钟
s	秒

first_dayofweek 在需要 'w' 时间间隔时影响输出。

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

first_weekofyear 指定跨越年末和年初的那一周应归入哪一年（前一年或下一年）。在需要 'ww' 时间间隔时影响输出。

值	一年第一周	常量
0	本地设置	fbUseSystem
1	含1月1日的那一周	fbFirstJan1
2	在该年有4天的第一周	fbFirstFourDays
3	该年第一个完整周	fbFirstFullWeek

除非包含 vbcompat.bi 或 datetime.bi，否则编译器不会识别此函数。

示例

start GeSHi

#include "vbcompat.bi"

Dim d As Double

d = Now()

Print "Today is day " & DatePart( "y", d );
Print " in week " & DatePart( "ww", d );
Print " of the year " & DatePart( "yyyy", d )

end GeSHi

与 QB 的差异

• QB 中不存在。此函数出现在 Visual Basic 中。

另请参阅

• 日期序列

返回 目录