一千萬個為什麽

搜索

下拉列表中的周開始為vb6

我的vb6表格中有一個下拉框,我想知道是否有一種簡單的方法可以顯示接下來4周開始的一周的日期。例如如果它現在正在運行它會有

19/4/2009結果 26/4/2009結果 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

轉載註明原文: 下拉列表中的周開始為vb6