NotesJSONNavigator 和 Appendelement 添加货币时出现奇怪的结果

问题描述

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

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 出于某种目的这样做）

{"literal":4,"variable":40000}

有人知道是否可以使用“本机”方法将“货币”类型的变量添加到 JSON 中并按 JSON 格式获取它？

如果我切换到类型：'Double'，事情会很好，所以我想知道为什么会这样。

谢谢。

更新

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

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）