1 '返回某年总共有多少天2 Function DayOfYear(ByVal y)3 DayOfYear = DatePart("y",y&"-12-31")4 End Function5 '例子:Response.Write DayOfYear(2012)