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에 해당하는 토요일을 찾을 수있는 반대 논리를 사용.