怎樣利用一個查詢求出每月最後一天的庫存量？

zwmrp

怎樣利用一個查詢求出每月最後一天的庫存量？[em06]

zwmrp

不好意思忘了传附件，请高手们帮我改改！

huanghai

'? firstDayOfMonth("2003-2-4")
'  2003-2-1

'? lastDayOfMonth("2003-2-4")
'  2003-2-28

'? DaysInMonth("2003-2-4")
'  28

Function firstDayOfMonth(myDate As Date) As Date
    firstDayOfMonth = CDate(Format(myDate, "yyyy-m-1"))
End Function

Function lastDayOfMonth(myDate As Date) As Date
    lastDayOfMonth = DateAdd("d", -1, DateAdd("M", 1, firstDayOfMonth(myDate)))
End Function

Function DaysInMonth(myDate As Date) As Integer
    DaysInMonth = DateDiff("d", firstDayOfMonth(myDate), lastDayOfMonth(myDate)) + 1
End Function