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

VisualBasic实现某一天的下上一个星期几是那一天,第1张

VisualBasic实现某一天的下上一个星期几是那一天,第2张

参数:你信吗?这个模块写起来比其他任何方法都快几十倍!参数如下:
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星期五)

位律师回复
DABAN RP主题是一个优秀的主题,极致后台体验,无插件,集成会员系统
白度搜_经验知识百科全书 » VisualBasic实现某一天的下上一个星期几是那一天

0条评论

发表评论

提供最优质的资源集合

立即查看 了解详情