获得上一个星期几的日期

作者:vkvi 来源:ITPOW(原创) 日期:2006-4-18
'在已经过去(包括今天)的日期中获得距现在最近的一个星期几的日期
'参数 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
相关文章