CCur 函数

返回表达式，此表达式已被转换为 Currency 子类型的 Variant。

CCur(expression)

expression 参数是任意有效的表达式。

说明

通常，您可以使用子类型数据转换函数书写代码，以显示某些操作的结果应当被表达为特定的数据类型，而非默认的数据类型。例如在整数运算的情况下，使用 CCur 函数强制进行货币计算。

CCur 函数用于进行从其他数据类型到 Currency 子类型的国际公认的格式转换。例如，对十进制分隔符和千位分隔符的识别取决于系统的区域设置。

下面的示例使用 CCur 函数将一个表达式转换成 Currency 类型:

Dim MyDouble, MyCurrMyDouble = 543.214588          ‘ MyDouble 是双精度的。MyCurr = CCur(MyDouble * 2)    ‘把 MyDouble * 2 (1086.429176) 的结果转换为 Currency (1086.4292)。

要求

VBS教程：函数-CCur 函数

原文：http://www.jb51.net/article/4645.htm