lotus-domino - NotesJSONNavigator 和 Appendelement 添加货币时的奇怪结果

Question

我有一个非常简单的代码和奇怪的结果（从我的角度来看）。

Dim s As New notessession
Dim jsonNav As NotesJSONNavigator
Dim c As Currency

Set jsonNav = s.Createjsonnavigator("")
Call jsonNav.Appendelement(4, "literal")

c = 4
Call jsonNav.Appendelement(c, "variable")

MsgBox jsonNav.Stringify()

结果看起来是错误的（除非 HCL 出于某种目的这样做）

{“文字”：4，“变量”：40000}

有谁知道是否可以使用“本机”方法将“货币”类型的变量添加到 JSON 并在 JSON 中得到它？

如果我切换到 type: 'Double' ，事情会很好地工作，所以我想知道为什么它会这样工作。

谢谢。

更新

我刚刚注意到 HCL 文档不包括 Currency。允许的类型是 String、Integer、Long、Double、Boolean。所以也许它是根据设计的： https ://help.hcltechsw.com/dom_designer/11.0.1/basic/H_APPENDELEMENT_METHOD_NJN.html 我已经改变了使用 Double 而不是 Currency 的解决方案，现在一切正常。

标签： lotus-dominolotusscript