% Function GetD() N=Now() Y=Year(N) MM=month(N) D=day(N) GetD=Y&"年"&MM&"月"&D&"日" End Function Function GetWeek() select case Weekday(Date) case "1" GetWeek="星期日" case "2" GetWeek="星期一" case "3" GetWeek="星期二" case "4" GetWeek="星期三" case "5" GetWeek="星期四" case "6" GetWeek="星期五" case "7" GetWeek="星期六" case else GetWeek="星期日" end select End Function %>
![]() |
![]() |
|