Dim d As Date = "2015-9-6" Dim w As Integer = d.DayOfWeek '算出今天是星期几 Dim dt As Date = d.AddDays(-w) '获取本周的第一天 Dim m As Double If dt.Month <> d.Month Then m = 1 Else m = dt.Day / 7 If m = int(m) Then m = m + 1 Else m = m + 2 End If End If msgbox(math.Floor(m))
加好友 
发短信
Post By：2015/9/29 9:50:00 [显示全部帖子]
