VisualBasic实现某一天的下上一个星期几是那一天

参数:你信吗？这个模块写起来比其他任何方法都快几十倍！参数如下:
1:基准日是哪一天？
2:(可选)您要查找星期几？如果未指定，默认值为星期六
3:(可选)是向前看(过去)还是向后看(未来)？
如果未指定，默认值是在将来查找。

程序代码
公共函数特定周(byval d为date，可选byval星期几为VB星期几= VB星期六，可选get next为boolean = true)作为date
特定周=(((d-星期几+get next)\ 7)-get next)* 7+星期几
end函数
也许你想知道程序为什么这样写？

你知道吗？在VB中，它的所有日期函数的基址(day 0)都是1899年12月30日(星期六)，第一天是1899年12月31日(星期日)，所以VB的WeekDay函数算法实际上是(Date-1) Mod 7+1。

返回值
日期

示例:
我想知道第二天是哪一天？
上星期一:特定工作日(现在，VB星期一，false)
下星期六:特定工作日(现在)
下星期五，2000年9月9日:特定工作日(“09/09/2000”，VB星期五)