ASP返回某年總共有多少天的代碼

代碼如下:
'返回某年總共有多少天
Function DayOfYear(ByVal y)
DayOfYear = DatePart("y",y&"-12-31")
End Function5
'例子：Response.Write DayOfYear(2012)


Asp DatePart 函數的語(yǔ)法詳解

DatePart(interval, date[, firstdayofweek[, firstweekofyear]])
DatePart 函數的語(yǔ)法有以下參數：

參數 描述
interval 必選。字符串表達式，表示要返回的時(shí)間間隔。有關(guān)數值，請參閱“設置”部分。
date 必選。要計算的日期表達式。
firstdayof week 可選。指定星期中的第一天的常數。如果沒(méi)有指定，則默認為星期日。有關(guān)數值，請參閱“設置”部分。
firstweekofyear 可選。指定一年中第一周的常數。如果沒(méi)有指定，則默認為 1 月 1 日所在的星期。有關(guān)數值，請參閱“設置”部分。


設置interval 參數可以有以下值：
設置 描述
yyyy 年
q 季度
m 月
y 一年的日數
d 日
w 一周的日數
ww 周
h 小時(shí)
m 分鐘
s 秒


firstdayofweek 參數可以有以下值：

常數 值 描述
vbUseSystem 0 使用區域語(yǔ)言支持 (NLS) API 設置。
vbSunday 1 星期日（默認）
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六

firstweekofyear 參數可以有以下值：

常數 值 描述
vbUseSystem 0 使用區域語(yǔ)言支持 (NLS) API 設置。
vbFirstJan1 1 由 1 月 1 日所在的星期開(kāi)始（默認）。
vbFirstFourDays 2 由在新年中至少有四天的第一周開(kāi)始。
vbFirstFullWeek 3 由在新的一年中第一個(gè)完整的周（不跨年度）開(kāi)始。

說(shuō)明
DatePart 函數用于計算日期并返回指定的時(shí)間間隔。例如使用 DatePart 計算某一天是星期幾或當前的時(shí)間。
firstdayofweek 參數會(huì )影響使用“w”和“ww”間隔符號的計算。

如果 date 是日期文字，則指定的年度會(huì )成為日期的固定部分。但是如果 date 被包含在引號 (" ") 中，并且省略年份，則在代碼中每次計算 date 表達式時(shí)，將插入當前年份。這樣就可以編寫(xiě)適用于不同年份的程序代碼。