'在已经过去(包括今天)的日期中获得距现在最近的一个星期几的日期
'参数 nWeekday 表示星期几,1 表示星期天,2 表示星期一,3 表示星期二……
function GetPrevWeekday(nWeekday)
dim dt
dt = Date()
dim wd '今天是星期几
wd = Weekday(dt)
if wd > nWeekday then
dt = DateAdd("d", -(wd-nWeekday), dt)
elseif wd < nWeekday then
dt = DateAdd("d", -(wd+7-nWeekday), dt)
end if
GetPrevWeekday = dt
end function