如何将 FieldGetText 与数字进行比较？

Question

我有一个存储货币数据的字段，名称为 pdcPrimasVAFVigor。

我可以使用 FieldGetText 方法获取有关 NotesUIDocument 的值，如下所示：

strPrimasVaf = uidoc.Fieldgettext("pdcPrimasVAFVigor")

然后我检查值和类型：

Msgbox "strPrimasVaf: " + Typename(strPrimasVaf)

此消息框检索：

strPrimasVaf: 122.00 € STRING

如果我想将 strPrimasVaf 与任何数字进行比较但比较不起作用，那么我尝试转换数据但我总是遇到下一个错误：

Type Mismatch in method CoerStrToNum...

但是，我尝试了什么？

之前我试过转换字符串值，这样比较：

Dim intPrimasVaf As Integer
intPrimasVaf = CInt(strPrimasVaf)    ' Error

Dim dblPrimasVaf As Double
dblPrimasVaf = CInt(strPrimasVaf)    ' Error

Dim curPrimasVaf As Currency
curPrimasVaf = CInt(strPrimasVaf)    ' Error

包括我尝试像这样更改格式：

Dim x As Variant
x = Format(strPrimasVaf, "General Number")

使用 FieldGetText 中的任何建议或解决方案？

Answer 1

我的建议：使用后端文档对象。添加

Dim doc as Notesdocument

Dim dblPrimasVaf As Double

Set doc=uidoc.document

dblPrimasVaf=doc.pdcPrimasVAFVigor(0)

无需转换。

Answer 2

使用以下内容从字符串中删除 €：

strPrimasVaf = uidoc.Fieldgettext("pdcPrimasVAFVigor")
strPrimasVaf=cdbl(fulltrim(join(split(strPrimasVaf,"€"),"")))

如何将 FieldGetText 与数字进行比较？

How to compare a FieldGetText with a number?

lotus-notes

lotusscript