VBA：显示错误的日期格式

Question

我用vba代码以特定格式显示日期，如下所示

If Not IsNull(Data.getAttribute("recorded"))) Then
    Range("BG3") = Format((Data.getAttribute("recorded")), "dd / mmm / yyyy")
End If

此代码实际上可以在我的本地使用。但在服务器中它的格式为'02 .14.2013'。

由于日期格式错误，我遇到了一些问题。

可能是什么原因造成的？ 有人请帮助我。

Answer 1

尝试在Range语句之前添加以下内容：

Range("BG3").NumberFormat = "@" 'set to display as text

Answer 2

我的建议是尝试：

If Not IsNull(Data.getAttribute("recorded"))) Then
    Range("BG3").Value2 = Format((Data.getAttribute("recorded")), "dd / mmm / yyyy")
End If

如果那还是个问题

If Not IsNull(Data.getAttribute("recorded"))) Then
    Range("BG3").Value = Data.getAttribute("recorded")
    Range("BG3").NumberFormat = "dd / mmm / yyyy"
End If

但是我仍然坚持在某个地方设置一个具有战略意义的断点并逐步完成代码，以确保数字以不正确的格式显示在单元格中，而不是稍后重置。