VBA-code

查询距离今天指定天数的日期是星期几,比如今天是星期五，那么往后数第3天应该是星期一。

''''''''''''
'算法介绍，
'比如向后查找20天，20除以7的余数是6，
'如果几天是星期5，那么本周还剩2天，本周已经历4天
'因为6大于2，所以用6减去7等于-1，
'所以查询结果为5-1=4，即为周四
'如果今天是周1，则查询结果为1+6=7，即为周日
''''''''''''''''