Dim result As Integer = 0
Dim iStr As String = String.Empty
Dim need2CountDay As DayOfWeek = DayOfWeek.Thursday
Dim FromDate As New Date(2015, 1, 1)
Dim ToDate As New Date(2015, 1, 30)
Dim startADay As DayOfWeek = FromDate.DayOfWeek
Dim totalDayRange As Integer = (ToDate - FromDate).TotalDays 'หาจำนวนวันทั้งหมดในช่วง
'เลื่อนวันแรกด้วยวันที่อยากได้กับวันแรก งงมั้ย
Dim AdjustDay As Integer = (7 + need2CountDay - startADay) Mod 7
Dim oddDay As Integer = totalDayRange Mod 7 'เศษวันของสัปดาห์ที่เหลือจากช่วงวันทั้งหมด
result = (totalDayRange) / 7
Dim AddWeek = IIf(oddDay > AdjustDay, 1, 0)
result = result + AddWeek
Dim cultureInfo = New CultureInfo("th-TH")
Dim dateTimeInfo = cultureInfo.DateTimeFormat
iStr = String.Format("วัน «{0}» ทั้งหมด จาก «{1}» ถึง «{2}» มี «{3}» วัน นะแจ๊ะ" _
, dateTimeInfo.GetDayName(need2CountDay) _
, FromDate.ToString("ddd d/MMM/yy", cultureInfo) _
, ToDate.ToString("ddd d/MMM/yy", cultureInfo), result.ToString())
Response.Write(iStr)