向VBA Sub过程传递日期参数返回0值的问题排查与解决

问题原因 #

你在调用create_deltas时使用了Call create_deltas(d = d1)，这里的d = d1并非指定命名参数传参，而是一个赋值表达式：

1. 由于run_create_deltas过程中未声明变量d，VBA会自动创建一个变体类型的d并赋值为d1，这个赋值表达式的返回值是布尔值True（表示赋值操作成功）。
2. 当布尔值True传入Date类型参数时，VBA的隐式类型转换会将其转为数值-1，最终被解析为Date类型的默认0值（即00:00:00，对应1899年12月30日0点），导致异常结果。

注意：VBA中指定命名参数的正确语法是**参数名:=参数值**，而非参数名=参数值，后者会被当作表达式处理，而非传参逻辑。

解决方法 #

有两种简单的修正方式：

方式1：使用命名参数传参（推荐，可读性更高） #

修改调用语句，用:=明确指定参数名：

Sub run_create_deltas()
    Dim d1 As Date
    d1 = CDate("2022-10-06")
    Debug.Print d1 '输出06/10/2022
    Call create_deltas(d:=d1) '使用:=指定命名参数
End Sub

Sub create_deltas(Optional d As Date = "2023-03-10")
    Debug.Print d '现在会输出06/10/2022
End Sub

方式2：直接位置传值 #

由于d是create_deltas的第一个参数，可以直接传入变量值，甚至省略Call关键字：

Sub run_create_deltas()
    Dim d1 As Date
    d1 = CDate("2022-10-06")
    Debug.Print d1 '输出06/10/2022
    create_deltas d1 '直接传值
End Sub

Sub create_deltas(Optional d As Date = "2023-03-10")
    Debug.Print d '现在会输出06/10/2022
End Sub

额外建议：在所有VBA模块开头添加Option Explicit语句，强制变量声明，避免因未声明变量引发的隐式错误。

内容的提问来源于stack exchange，提问作者J.Doe