CSng 函数

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

CSng(expression)

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

说明

通常，可以使用子类型转换函数书写代码，以显示某些操作的结果应被表示为特定的数据类型，而不是默认类型。例如，在出现货币或整数运算的情况下，使用 CDbl 或 CSng 强制执行双精度或单精度运算。

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

如果 expression 在 Single 子类型允许的范围之外，则发生错误。

下面的示例利用 CSng 函数把值转换为 Single:

Dim MyDouble1, MyDouble2, MySingle1, MySingle2  ‘ MyDouble1, MyDouble2 是双精度值。MyDouble1 = 75.3421115: MyDouble2 = 75.3421555MySingle1 = CSng(MyDouble1)  ‘ MySingle1 包含 75.34211 。MySingle2 = CSng(MyDouble2)  ‘ MySingle2 包含 75.34216 。

VBS教程：函数-CSng 函数

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