获取VB中给定日期的年份周数

2 回答

• 2

  你可以使用Calendar.GetWeekOfYear .

  这是一个例子

  Dim dateNow = DateTime.Now
  Dim dfi = DateTimeFormatInfo.CurrentInfo
  Dim calendar = dfi.Calendar
  
  ' using Thursday because I can.
  Dim weekOfyear = calendar.GetWeekOfYear(
      dateNow, _
      dfi.CalendarWeekRule, _
      DayOfWeek.Thursday)
  

  回复于 2024-04-26T23:10:10+08:00
• 12

  像这样的东西应该做的伎俩：

  Private Function GetWeekNumber(ByVal startMonth As Integer, ByVal startDay As Integer, ByVal endDate As Date) As Integer
      Dim span As TimeSpan = endDate - New Date(endDate.Year, startMonth, startDay)
      Return (CInt(span.TotalDays) \ 7) + 1
  End Function
  

  回复于 2024-04-26T23:10:10+08:00