Lotusscript评估服务器日期

Question

如何在lotusscript中确定服务器的日期？我到处找了找，找不到用lotusscript实现这一点的方法。即使是一些接近可用的解决方案在lotusscript中也被证明太长了，而在@formula中，您可以只使用evaluate。我下面的代码出了什么问题？

Dim serverDate, macro$
macro$="@Date(@Now([ServerTime];"devsvr/acme"))"
serverDate=Evaluate(macro$)
Msgbox serverDate

我似乎无法让serverDate工作。总是会出现"类型不匹配"等错误。我需要它来与代码中的其他日期进行比较。我试着用以下每一项更改最后一行，但仍然无效：

MsgBox CStr(Format(serverDate, "Short Date"))
MsgBox Format(serverDate, "Short Date")
MsgBox CStr(serverDate)

Answer 1

上面的代码有两个错误。首先，您没有正确引用宏的值。您应该将内引号加倍，或者使用以下表示法：

macro$=|@Date(@Now([ServerTime];"devsvr/acme"))|

第二个问题是公式语言是面向列表的，LotusScript的Evaluate语句将列表作为数组返回，即使列表中只有一个值。所以你需要这个：

Msgbox serverDate(0)