DateAdd返回值不正確

Question

我知道這可能是一個簡單的問題，但我無法弄清楚這一點。當運行VBA的調試器時，第11行的第三個參數按預期顯示爲「9/13/2016」，但由於某些原因，start_d是「06/09/2016」？

我曾嘗試將start_d設置爲字符串和Date對象，兩者都產生相同的結果。我想要的只是start_d在當前日期前7天。

Sub addData(lastRow As Integer, lab() As String, c() As String, IP() As String, usage() As String, fName As String) 
Dim reportWeek As Integer 
Dim numWeeks As Integer 
Dim monthWeek As Integer 
Dim start_d As Date ' As String UPDATED 
Dim thisYear As String 
Dim thisMonth As String 
Dim thisDay As String 

' the reports run every monday 
start_d = DateAdd("d", -7, Date) 
'start_d = Format(start_d, "dd/mm/yyyy") UPDATED 

thisYear = year(start_d) 'year(CDate(start_d)) UPDATED 
thisMonth = month(start_d) 'month(CDate(start_d)) UPDATED 
thisDay = day(start_d) 'day(CDate(start_d)) UPDATED 

reportWeek = weekNum 
monthWeek = getWeekOfMonth(CDate(start_d)) 
numWeeks = weekCount(thisYear, thisMonth) 

Debug.Print reportWeek & monthWeek & numWeeks & thisYear & thisMonth & thisDay 
End Sub 

Answer 1

變化start_d到Date類型，你可以用Format和CDate轉換做掉：

Dim start_d As Date 

它給你：

Sub addData() 
Dim reportWeek As Integer 
Dim numWeeks As Integer 
Dim monthWeek As Integer 
Dim start_d As Date 
Dim thisYear As String 
Dim thisMonth As String 
Dim thisDay As String 

' the reports run every monday 
start_d = DateAdd("d", -7, Date) 

thisYear = Year(start_d) 
thisMonth = Month(start_d) 
thisDay = Day(start_d) 

reportWeek = WeekNum 
monthWeek = getWeekOfMonth(start_d) 
numWeeks = weekCount(thisYear, thisMonth) 

Debug.Print reportWeek & monthWeek & numWeeks & thisYear & thisMonth & thisDay 
End Sub 

編輯 看來你我們仍然有問題 - 讓我們嘗試一下Long目前日期：

Sub addData() 
Dim reportWeek As Integer 
Dim numWeeks As Integer 
Dim monthWeek As Integer 
Dim start_d As Date 
Dim thisYear As String 
Dim thisMonth As String 
Dim thisDay As String 

Dim today As Long 
today = Int(Now) 

' the reports run every monday 
start_d = DateAdd("d", -7, today) 

thisYear = Year(start_d) 
thisMonth = Month(start_d) 
thisDay = Day(start_d) 

reportWeek = WeekNum 
'monthWeek = getWeekOfMonth(start_d) 
'numWeeks = weekCount(thisYear, thisMonth) 

Debug.Print reportWeek & monthWeek & numWeeks & thisYear & thisMonth & thisDay 
End Sub