主题：[求助]求某一日期位于第几周

 灵活控制，就这样写代码

Dim d As Date = Date.Today
Dim start As Date = new Date(d.Year, 1, 1)
start = start.AddDays(1-start.DayOfWeek)
Dim w As Integer = Math.Ceiling(((d- start).TotalDays + 1) / 7)
msgbox(w)