VBS教程:函数-DatePart 函数

时间:2022-06-01 22:01:52

DatePart 函数

返回给定日期的指定部分。

DatePart(interval, date[, firstdayofweek[, firstweekofyear]])

Arguments

interval

必选项。字符串表达式表示要返回的时间间隔。有关数值,请参阅“设置”部分。

Date

必选项。要计算的日期表达式。

firstdayof week

可选项。指定星期中的第一天的常数。如果没有指定,则默认为星期日。有关数值,请参阅“设置”部分。

Firstweekofyear

可选项。指定一年中第一周的常数。如果没有指定,则默认为 1 月 1 日所在的星期。有关数值,请参阅“设置”部分。

设置

interval 参数可以有以下值:

设置

描述

yyyy

q

季度

m

y

一年的日数

d

w

一周的日数

ww

h

小时

n

分钟

s

 

firstdayofweek 参数可以有以下值:

常数

描述

vbUseSystem

0

使用区域语言支持 (NLS) API 设置。

vbSunday

1

星期日(默认)

vbMonday

2

星期一

vbTuesday

3

星期二

vbWednesday

4

星期三

vbThursday

5

星期四

vbFriday

6

星期五

vbSaturday

7

星期六

 

firstweekofyear 参数可以有以下值:

常数

描述

vbUseSystem

0

使用区域语言支持 (NLS) API 设置。

vbFirstJan1

1

由 1 月 1 日所在的星期开始(默认)。

vbFirstFourDays

2

由在新年中至少有四天的第一周开始。

vbFirstFullWeek

3

由在新的一年中第一个完整的周(不跨年度)开始。

 

说明

DatePart 函数用于计算日期并返回指定的时间间隔。例如使用 DatePart 计算某一天是星期几或当前的时间。

firstdayofweek 参数会影响使用“w”和“ww”间隔符号的计算。

如果 date 是日期文字,则指定的年度会成为日期的固定部分。但是如果 date 被包含在引号 (" ") 中,并且省略年份,则在代码中每次计算 date 表达式时,将插入当前年份。这样就可以编写适用于不同年份的程序代码。.

下面的示例利用 DatePart 函数获得日期并显示该日所在的季节。

Function GetQuarter(TheDate)   GetQuarter = DatePart("q", TheDate)End Function