给日期算出当周剩余几天，

1. Function gday(rq)
   
2. 
   
3.     For i = Weekday(rq, 2) To 7 '规定2为星期一
   
4.         ts = 7 - i
   
5.         If i = Weekday(rq, 2) Then
   
6.             gday = ts
   
7.             Exit For
   
8.         End If
   
9.     Next
   
10. End Function

复制代码

写代码时用到的，有错请指出。

运行结果：response.Write gday(date())