一个下拉列表，其中包含VB6中每周开始日期的列表

Posted 2021-04-21

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

19/4/20092009年4月26日2009年3月5日2009年10月5日

答案

这里是一个简单的方法，可以完成您想要的操作。

   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

另一答案

简单地计算一周的第一天，然后加上7天。