===========================================================
VBScript得到本周的周末日期函数
===========================================================
'得到本周的周末日期
Function weekOfDay(Monthday) if Weekday(cdate(Monthday),2) <7 then weekOfDay = cstr(DateAdd("d",6-weekOfDay(cdate(Monthday),2),cdate(Monthday))) else weekOfDay = cstr(DateAdd("d",6,cdate(Monthday))) end if
End function
Function weekOfDay(Monthday) if Weekday(cdate(Monthday),2) <7 then weekOfDay = cstr(DateAdd("d",6-weekOfDay(cdate(Monthday),2),cdate(Monthday))) else weekOfDay = cstr(DateAdd("d",6,cdate(Monthday))) end if
End function