如何在报表生成器中动态格式化货币字段？

Posted 2023-02-23

【中文标题】如何在报表生成器中动态格式化货币字段？

【英文标题】：How can I dynamically format currency fields in report builder?

【发布时间】：2015-08-28 16:51:37

【问题描述】：

我有一份报告，我想在其中显示可以用多种不同货币表示的各种金额。我的查询为我提供了每个值的货币符号和三个字母的国家/地区代码（例如 GBP 或 USD），但我没有国家/地区 ISO 代码。

如何格式化值表达式以使用正确的货币符号？

我不能简单地将货币符号放在值的前面，因为有些值可能是负数，所以我希望减号出现在货币符号之前。

【参考方案1】：

我整理了一些自定义代码来执行此操作：

Public Function Currency(ByVal s As String,ByVal a As Double) As String
 Dim r As String
  If a < 0 Then
      r = "(" + s + FORMAT(-1*a,"#,0.00") + ")"
  ElseIf a = 0
      r = "-"
  Else
      r = s + FORMAT(a,"#,0.00")
End If
Return r
End Function

这里我将货币符号传递为s，将金额传递为a