某一天的下 (上) 一个星期几是那一天？

来源：百度文库编辑：神马文学网时间：2024/07/06 21:14:28

31、某一天的下 (上) 一个星期几是那一天？
参数 : 您相信吗？这个模组的写法比用任何其他的方法快几十倍！参数如下：
1：以那一天为基准日？
2：(Optional) 要找的是星期几？若不指定，预设值为星期六
3：(Optional) 要往前 (过去) 找或往后 (未来) 找？
若不指定，预设值为往后 (未来) 找
程序码
Public Function SpecificWeekday(ByVal D As Date, Optional ByVal WhatDay As VbDayOfWeek = vbSaturday,
Optional GetNext As Boolean = True) As Date
SpecificWeekday = (((D - WhatDay + GetNext) \ 7) - GetNext) * 7 + WhatDay
End Function
或许您想知道程序为什么这样写？
您知道吗？在 VB 中，其所有日期函数的基准日 (第0天) 是 1899年12月30日 (星期六)，第一天就是 1899年12月31日
(星期日)，所以 VB 的 WeekDay 函数算法其实就是 (Date - 1) Mod 7 + 1。
返回值
日期
实例 :
我想知道以下日子各是那一天？
上个星期一：SpecificWeekday(Now, vbMonday, False)
下个星期六：SpecificWeekday(Now)
2000年9月9日的下一个星期五：SpecificWeekday("09/09/2000", vbFriday)

某一天的下 (上) 一个星期几是那一天？求任何一天是星期几的公式计算任何一天是星期几算法. 计算任何一天是星期几算法. 计算任何一天是星期几算法. 计算任何一天是星期几计算任何一天是星期几--算法. 计算某年的第一天是星期几的公式！ -- 编程爱好者论坛存档帖计算任何一天是星期几算法(99) 生活常识：计算任何一天是星期几算法. 一个非常简洁的程序计算2000～2099年任一天是星期几【恢复】 (www.ourde... 是星期几求第一天是星期3的月份让系统托盘上显示星期几的方法看看你是星期几出生的孩子星期几出生的女生是你最佳恋人星期几出生的男生是最佳恋人计算任何年月日是星期几的公式计算星期几的公式星期几的速算方法星期几的速算方法！年月日星期几的计算方法！星期几出生的孩子未来一个星期想找到某一位非洲领导人得去北京找