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