摘要: 1 '返回某年总共有多少天2 Function DayOfYear(ByVal y)3 DayOfYear = DatePart("y",y&"-12-31")4 End Function5 '例子:Response.Write DayOfYear(2012) 阅读全文
posted @ 2012-03-15 11:51 edielei 阅读(144) 评论(0) 推荐(0) 编辑