复制代码 代码如下:

'返回某年总共有多少天

Function DayOfYear(ByVal y)

DayOfYear = DatePart("y",y&"-12-31")

End Function5

'例子：Response.Write DayOfYear(2012)

Asp DatePart 函数的语法详解

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

DatePart 函数的语法有以下参数：

参数 描述

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

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

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

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

设置interval 参数可以有以下值：

设置 描述

yyyy 年

q 季度

m 月

y 一年的日数

d 日

w 一周的日数

ww 周

h 小时

m 分钟

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 表达式时，将插入当前年份。这样就可以编写适用于不同年份的程序代码。