Dim d As Date = Date.now msgbox(d) Dim gc As System.Globalization.GregorianCalendar = new System.Globalization.GregorianCalendar() Dim weekOfYear As Integer = gc.GetWeekOfYear(d,System.Globalization.CalendarWeekRule.FirstDay, DayOfWeek.Monday) msgbox(weekOfYear)
加好友 
发短信
Post By：2016/3/3 16:22:00 [只看该作者]
