主题：根据日期计算第几周

参考代码

Dim d As Date = "2018-07-28"
Dim start As Date = "2018-07-20" '起始日期
Dim w As Integer = Math.Ceiling(((d-start).TotalDays + 1) / 7)
msgbox(w)