Question

所有以下内容都发生在If Statement

中

我有一个变量差，这是减去两个货币值的结果。

然后我有另一个变量Message，它看起来如下：

    If AssessedValue < ProposedValue Then
        Difference = Format(ProposedValue - AssessedValue, "Currency")
        Message = "Average value is " & Difference & " more than the current 
        appraised value. Do NOT recommend negotiations."
    Else
        Difference = Format(AssessedValue - ProposedValue, "Currency")
        Message = "Average value is " & Difference & " less than the current 
        appraised value. Recommend negotiations."
    End If

我的问题是，在显示的消息中，差异不显示为货币，而只显示未格式化的数字而不是货币（下面的消息示例）平均价值比当前评估价值高21587。不要建议谈判。

如何在此示例中将21587作为$ 21,587.00显示在邮件中？

提前感谢您对此问题的任何帮助。柯克

Answer 1

有几种方法可以解决您的问题：

在将Difference格式包含在字符串中之前使用"Currency"格式格式化Message = "Average value is " & Format(Difference, "Currency") & " more than the current appraised value. Do NOT recommend negotiations."，例如
```
Difference
```
将String声明为Currency而非数字类型。（我猜你已经宣布它当前是Dim Difference As String类型。）
```
Format(ProposedValue - AssessedValue, "Currency")
```
这将确保Difference的结果不会转换回数值，以便存储在ns3变量中。

如何将变量格式化为字符串

1 个答案: