End Sub从挑最少的语句就看出来了,自己不动脑筋的,这么好的例子都不 去研究下,一下又回来报错!! 哎
写个通用函数 Private Sub Command1_Click() MsgBox GetAgoMonthFirstDay(Now, 6) End SubPrivate Function GetAgoMonthFirstDay(ByVal refDate As Date, ByVal difMonth As Integer) As Date Dim datTemp As Date
datTemp = DateAdd("m", -difMonth, refDate) GetAgoMonthFirstDay = Format(datTemp, "yyyy-mm-01") End Function
Dim tDt As Date
tDt = DateAdd("m", -6, dt)
SixMonthAgo = Format(tDt, "yyyy-mm-01")
End Function
Dim datTemp As Date
datTemp = DateAdd("m", -6, "2009-08-18")
MsgBox Year(datTemp) & "-" & Month(datTemp) & "-01"
End Sub
Dim datTemp As Date
datTemp = DateAdd("m", -6, "2009-08-18")
MsgBox Year(datTemp) & "-" & Month(datTemp) & "-01"
End Sub从挑最少的语句就看出来了,自己不动脑筋的,这么好的例子都不
去研究下,一下又回来报错!!
哎
Private Sub Command1_Click()
MsgBox GetAgoMonthFirstDay(Now, 6)
End SubPrivate Function GetAgoMonthFirstDay(ByVal refDate As Date, ByVal difMonth As Integer) As Date
Dim datTemp As Date
datTemp = DateAdd("m", -difMonth, refDate)
GetAgoMonthFirstDay = Format(datTemp, "yyyy-mm-01")
End Function