access-sql和VBA:将当前月份和年份(2017年2月)和当前月份和去年(2016年2月)相加

Function AddMonthsAndYears() As Date
    Dim currentMonth As Integer
    Dim currentYear As Integer
    Dim lastYear As Integer
    
    currentMonth = Month(Date)
    currentYear = Year(Date)
    lastYear = currentYear - 1
    
    ' 获取当前月份和年份的日期
    Dim currentDate As Date
    currentDate = DateSerial(currentYear, currentMonth, 1)
    
    ' 获取去年同月份的日期
    Dim lastYearDate As Date
    lastYearDate = DateAdd("yyyy", -1, currentDate)
    
    ' 相加操作
    Dim resultDate As Date
    resultDate = DateAdd("m", currentMonth, lastYearDate)
    
    AddMonthsAndYears = resultDate
End Function

SELECT DATEADD('m', MONTH(NOW()), DATEADD('yyyy', -1, NOW())) AS ResultDate;