VB6 中包含一周开始日期列表的下拉菜单

Question

我的 VB6 表单中有一个下拉框，我想知道是否有一种简单的方法可以让它显示从接下来 4 周开始的一周的日期。 例如，如果它现在正在运行，它就会，

2009年4月19日
2009年4月26日
2009年3月5日
10/5/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 天即可。