Visual Basic

Const MondayDayOfWeek As Int32 = 0

   Dim dtCurrent As DateTime = DateTime.Now

   dim currentDayOfWeek as Int32  =Ctype(dtCurrent.DayOfWeek , Int32)
   Dim TodayMondayDiff As Int32 = currentDayOfWeek - MondayDayOfWeek
   Dim tGetToMonday As New TimeSpan(TodayMondayDiff, 0, 0, 0)
   Dim dtt As DateTime = DateTime.Now
   dtt = dtt.Subtract(tGetToMonday)
   Do While (dtt.Year = dtCurrent.Year)
       ComboBox1.Items.Add(dtt.ToLongDateString())
       dtt = dtt.Add(New TimeSpan(7, 0, 0, 0))
   Loop

Const MondayDayOfWeek As Int32 = 0 ' Monday dayofweek = 0

     Dim dtStart As DateTime = New DateTime(DateTime.Now.Year, 1, 1)

     Dim currentDayOfWeek As Int32 = CType(dtStart.DayOfWeek, Int32)
     Dim TodayMondayDiff As Int32 = 0
     If (currentDayOfWeek > 0) Then
         TodayMondayDiff = currentDayOfWeek - MondayDayOfWeek
     End If

     Dim tGetToMonday As New TimeSpan(TodayMondayDiff, 0, 0, 0)


     Dim dtt As DateTime = dtStart
     dtt = dtt.Add(tGetToMonday)
     Do While (dtt.Year = dtStart.Year)
         ComboBox1.Items.Add(dtt.ToLongDateString())
         dtt = dtt.Add(New TimeSpan(7, 0, 0, 0))
     Loop

Do you want to know more?

Not getting the response you want from a question asked in an online forum: How to Ask Questions the Smart Way!