Раскрывающийся список с начала недели vb6

Question

У меня есть выпадающий список в форме vb6, мне было интересно, есть ли простой способ отобразить даты начала недели на следующие 4 недели. например если бы он работал сейчас, он бы имел

19/4/2009
26/4/2009
3/5/2009
05.10.2009

Answer 1

Вот простой метод, который будет делать то, что вы хотите.

   Dim i As Integer
   Dim myDate As Date

   myDate = DateAdd("d", -Weekday(Now), Now)

   For i = 1 To 4
      Combo1.AddItem FormatDateTime(DateAdd("d", i * 7, myDate), vbShortDate)
   Next i

Answer 2

Просто рассчитайте первый день недели, а затем добавьте 7 дней.