将数值转换为货币型

时　间:2016-09-17 09:02:50
作　者:杨雪   ID：42182  城市：南京
摘　要:在VBA编程中，可以使用FormatCurrency()函数将指定的数值转换为货币型
正　文:

在VBA编程中，可以使用FormatCurrency()函数将指定的数值转换为货币型，语法格式为：

FormatCurrency([数值])

FormatCurrency()函数在转化数值为货币型时，会根据货币的类型保留一定的小数位数，比如转化为人民币类型，就会自动保留俩位小数。

FormatCurrency()函数转化出的货币的类型，与系统当前设置有关，可在“区域和语言选项”对话框的“货币”文本框设置具体的样式。

    过程源代码：

Sub 货币()
  Dim X  As Double
  X = InputBox("请输入欲转化为货币的数值：")
  MsgBox X & "转化的货币值为：" & FormatCurrency(X) _
  , , "FormatCurrency()函数"

End Sub