Question

刚开始学习VBA，在我的一课中，我开始学习日期。我写了以下代码：

Sub Aula11 () 

Dim data1 as date

Dim data2 as date

Dim diferençadatas as long

Data1 = Date 

Data2 = #2/8/2018#

diferençadatas = data1 – data2 

MsgBox = “Passaram” & diferençadatas & “dias desde o dia 8 de Fevereiro de 2018”

End Sub

当我点击run时，我收到以下消息：子例程行（第1行）上的“编译错误：分配左侧的函数调用必须返回Variant或Object”。

我不明白这是怎么回事，我之前使用过日期函数，并且第一行是相同的。对不起，我的问题很愚蠢，只是尝试学习与我习惯于：D

截然不同的东西

Answer 1

作为一名学习者，请考虑不要使用字母名称与英文字母的26个标准字母不同的变量名称。因此，diferencadatas可能很容易变成diferençadatas。

作为第二个最佳实践-请用英语命名变量。因此，不会说葡萄牙语的同事也可以轻松接管您的代码。

这行得通：

Sub Aula11()

    Dim data1 As Date
    Dim data2 As Date
    Dim diferencadatas As Long

    data1 = Date
    data2 = #2/8/2018#
    diferencadatas = data1 - data2
    MsgBox ("Passaram" & diferencadatas & "dias desde o dia 8 Fevereiro de 2018")

End Sub

VBA学习者-左侧的函数调用

1 个答案: