Hi Bharadwaj,
Try this... week dropdown in the form of [week#] [week start date] [week end date]
Public
Function findWeek(ByVal year As String) As ArrayList
Dim sDate As Date = CDate("01/01/" & year.Trim)
Dim arr As New ArrayList()
Dim yr As Integer = sDate.Year
Dim days As Integer = sDate.DayOfWeek()
sDate = sDate.AddDays(-days + 1)
Dim week As Integer = 1
While sDate.Year <> yr + 1
Dim strDate As String = ("[" & week.ToString() & "] [") & Convert.ToString(((sDate.Day & "-") & (sDate.[Date].ToString("dd-MMM-yyyy").Split("-"))(1) & "-") & sDate.Year) & "]"
sDate = sDate.AddDays(6)
strDate = (strDate &
" to " & "[") & Convert.ToString(((sDate.Day & "-") & (sDate.ToString("dd-MMM-yyyy").Split("-"))(1) & "-") & sDate.Year) & "]"
arr.Add(strDate)
sDate = sDate.AddDays(1)
week += 1
End While
Return arr
End Function