以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  按照上周日到本周六算一个周期，如何获取当天是本月第几周期呢？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=148830)
--  作者：nuonuo384
--  发布时间：2020/4/16 11:30:00
--  按照上周日到本周六算一个周期，如何获取当天是本月第几周期呢？
老师 ：
 
请问 ： 如果获取当天是本月第几周期？ 上周日- 本周六 算一个周期

比如 2020年的   3.29-4.4 算3 月的第五个周期  ，  4.5-4.11 算4月的第一个周期
 
谢谢老师解疑！！
--  作者：有点蓝
--  发布时间：2020/4/16 11:41:00
--  
Dim d As Date = "2020-03-29"
Dim start As Date = "2020-03-01" \'起始日期
Dim w As Integer = 0
If start.DayOfWeek >= 1 AndAlso  start.DayOfWeek <= 6 Then
    start = start.AddDays(start.DayOfWeek+1)
End If
If d >= start Then
    w = Math.Ceiling(((d-start).TotalDays + 1) / 7)
End If
msgbox(w)