Imports System
Imports System.Globalization

Class Sample
  Shared Sub Main()
    Dim d As New DateTime(2020, 12, 26)
    Dim ja As New CultureInfo("ja") ' 日本語のカルチャ

    ' 15日分の日付を変換する
    For day As Integer = 1 To 15
      Console.Write("{0} = ", d.ToString("D", ja)) ' DateTimeを日付のみ・長い形式(ja/日本語)で文字列化

      ' ISO週年・週番号・曜日番号に変換して表示する
      Console.WriteLine(
        "ISO週暦 {0}年 第{1}週 第{2}日",
        ISOWeek.GetYear(d),       ' DateTimeの日付を対応するISO週年に変換
        ISOWeek.GetWeekOfYear(d), ' DateTimeの日付を対応するISO週番号に変換
        GetISOWeekdayNumber(d)    ' DateTimeの日付を対応するISO曜日番号に変換
      )

      d = d.AddDays(1) ' 翌日のDateTimeを取得
    Next
  End Sub

  Shared Function GetISOWeekdayNumber(ByVal d As DateTime) As Integer
    Return If(d.DayOfWeek = DayOfWeek.Sunday, 7, CInt(d.DayOfWeek))
  End Function
End Class

2020年12月26日土曜日 = ISO週暦 2020年 第52週 第6日
2020年12月27日日曜日 = ISO週暦 2020年 第52週 第7日
2020年12月28日月曜日 = ISO週暦 2020年 第53週 第1日
2020年12月29日火曜日 = ISO週暦 2020年 第53週 第2日
2020年12月30日水曜日 = ISO週暦 2020年 第53週 第3日
2020年12月31日木曜日 = ISO週暦 2020年 第53週 第4日
2021年1月1日金曜日 = ISO週暦 2020年 第53週 第5日
2021年1月2日土曜日 = ISO週暦 2020年 第53週 第6日
2021年1月3日日曜日 = ISO週暦 2020年 第53週 第7日
2021年1月4日月曜日 = ISO週暦 2021年 第1週 第1日
2021年1月5日火曜日 = ISO週暦 2021年 第1週 第2日
2021年1月6日水曜日 = ISO週暦 2021年 第1週 第3日
2021年1月7日木曜日 = ISO週暦 2021年 第1週 第4日
2021年1月8日金曜日 = ISO週暦 2021年 第1週 第5日
2021年1月9日土曜日 = ISO週暦 2021年 第1週 第6日