Y大叔的筆記

Function GetStartEndDayByWeek(ByVal byweek As String) As String Dim intYear As Integer = Convert.ToInt32(byweek.Substring(0, 4)) Dim intWeek As Integer = Convert.ToInt32(byweek.Substring(4, 2)) Dim intTempWeek = 1 Dim strStartDate As String = "" Dim strEndDate As String = "" Dim strResult As String = "" Dim dtTempDay As DateTime = Convert.ToDateTime(intYear.ToString & "/1/1") Dim myCI As CultureInfo = New CultureInfo("zh-TW") Dim myCal As System.Globalization.Calendar = myCI.Calendar Dim myCWR As CalendarWeekRule = myCI.DateTimeFormat.CalendarWeekRule Dim myFirstDOW As DayOfWeek = DayOfWeek.Saturday intTempWeek = myCal.GetWeekOfYear(dtTempDay, myCWR, myFirstDOW) While intTempWeek <= intWeek If intTempWeek = intWeek Then If strStartDate.ToString.Trim = "" Then strStartDate = dtTempDay.ToShortDateString strEndDate = dtTempDay.AddDays(7).ToShortDateString End If End If dtTempDay = dtTempDay.AddDays(1) intTempWeek = myCal.GetWeekOfYear(dtTempDay, myCWR, myFirstDOW) End While strResult = strStartDate & "," & strEndDate Return strResult End Function