function CaculateWeekDay(y,m,d)
if m=1 then
m = 13
y = y-1
end if
if m=2 then
m = 14
y = y -1
end if
week=(d+2*m+3*(m+1)/5+y+y/4-y/100+y/400) mod 7+1
weekstr=""
select case week
case 1
weekstr = "一"
case 2
weekstr = "二"
case 3
weekstr = "三"
case 4
weekstr = "四"
case 5
weekstr = "五"
case 6
weekstr = "六"
case 7
weekstr = "日"
end select
CaculateWeekDay = weekstr
end function
发表评论 取消回复