使用DateAdd VBA MSACCESS进行无效的过程调用或参数

Question

尝试创建一个功能，可以为不正确存储的日期添加100年来纠正它们，即5/10/2016存储在5/10/1916，需要转换为5/10/2016。我编写的函数在其中包含DateAdd的行中失败。

Function CORRECTDATE(INPUTDATE As Date) As Date

    If IsDate(INPUTDATE) Then

        If INPUTDATE >= #1/1/1900# Then
          CORRECTDATE = DateAdd(yyyy, 100, INPUTDATE)
        Else
          CORRECTDATE = INPUTDATE
        End If

    Else
        CORRECTDATE = Null
    End If

End Function

Answer 1

yyyy周围需要引号：

CORRECTDATE = DateAdd("yyyy", 100, INPUTDATE)