VB.NETで日付をyywwに変換する方法とその逆を変換する方法はありますか？

Question

誰もがどのように土曜日に、次にyyww（weekyear）にVB.NETで任意の日付を変換する方法を知っていますか？ その逆、つまりyywwは土曜日ですか？あなたの週は日曜日に開始すると仮定すると、

Answer 1

Dim d As DateTime = #1/20/2009# 
    d = d.AddDays(DayOfWeek.Saturday - d.DayOfWeek) 
    Dim myCal As New System.Globalization.GregorianCalendar 
    Dim wkOFyr As Integer = myCal.GetWeekOfYear(d, _ 
               Globalization.CalendarWeekRule.FirstDay, _ 
               DayOfWeek.Sunday) 
    Dim s As String 
    s = d.ToString("yy") & wkOFyr.ToString.PadLeft(2, "0"c) 

Answer 2

は、おそらく現在の週の土曜日を取得するには、このような何かを行うことができます：

Dim daysToAdd As Integer = DayOfWeek.Saturday - yourDate.DayOfWeek 
Dim dateSaturday as Date = yourDate.AddDays(daysToAdd) 

でも、私はそれをテストしていません。 はその後、あなたのような何かをすることによって、weekyearを得ることができる：

Dim weekYear As Integer = CInt(Math.Ceiling(dateSaturday.DayOfYear/7)) 

あなたはweekyearに対応土曜日を見つけることができ、逆のロジックを使用します。