2024年3月12日发(作者：)

formatcurrency() access 小数点

后2位

FormatCurrency() Access 小数点后2位

如果你是一个 Access 开发者或者 Office 用户，你

一定知道 FormatCurrency() 函数。它是一个内置函数，

能够将数字类型的数据格式化成货币格式，并以人们习惯

的方式来显示货币金额。本文将深入探讨

FormatCurrency() 函数，并且讨论如何保留小数点后 2

位。

什么是 FormatCurrency() 函数

FormatCurrency() 函数是一种用于格式化货币数据的

函数。它的语法非常简单，只有一个必需参数 - 数值。语

法如下：

FormatCurrency(Number, [NumDigitsAfterDecimal],

[IncludeLeadingDigit],

[UseParensForNegativeNumbers], [GroupDigits])

其中，Number 表示要进行格式化的货币数字；

NumDigitsAfterDecimal 是可选的，它表示小数点后的位

数；IncludeLeadingDigit 是可选的，它表示数字是否在

货币符号前面；UseParensForNegativeNumbers 是可选

的，它表示负数是否要用括号括起来；GroupDigits 也是

可选的，它表示数字是否要进行分组。

FormatCurrency() 函数不仅在 Access 中可用，它也

是一个通用的 VBScript 函数，可以在其他 Office 应用

程序中使用。虽然它的可选参数很多，但是常常只用到

Number 这一个参数。使用 FormatCurrency() 函数非常容

易，下面是一个例子：

Dim myNumber As Currency myNumber = 12345.67

FormatCurrency(myNumber)

该代码段将输出 $12,345.67。

保留小数点后 2 位

很多时候我们在使用 FormatCurrency() 函数时，希

望货币值的小数点后能保留 2 位。比如说，我们希望输出

$1,234.56，而不是 $1,234.567。那么该怎么办呢？

解决这个问题，最简单的方法是在调用

FormatCurrency() 函数之前，先将货币值的小数点后截取

到 2 位。下面是一种简单的 VBScript 方法：

Dim myNumber As Currency myNumber = 1234.567

Dim myFormattedNumber As String myFormattedNumber =

FormatCurrency(FormatNumber(myNumber, 2))

该代码片段中使用了 FormatNumber() 函数来截取数

字的小数点后 2 位。然后再将该数字传入

FormatCurrency() 函数中进行格式化。这样做可以确保输

出的货币值小数点后只有 2 位，即便原始数据中小数点后

的位数多于 2 位。

我们也可以单独使用 FormatNumber() 函数来格式化

货币值然后再显示。下面是一个例子：

Dim myNumber As Currency myNumber = 1234.567

Dim myFormattedNumber As String myFormattedNumber =

FormatNumber(myNumber, 2)

MsgBox "$" & myFormattedNumber

该代码片段中使用了 MsgBox 函数来显示格式化后的

货币值。在格式化前，使用了 FormatNumber 函数将货币

值的小数点后保留到 2 位。使用此方法也可以确保在任何

情况下，输出值都会在小数点后保留 2 位。

使用其他自定义函数

除了上述方法外，还可以使用其他自定义函数来实现

保留小数点后 2 位的功能。下面是一个例子：

Function FormatCurrencyTwo(ByVal num As

Currency) As String Dim str As String str =

FormatNumber(num, 2) If Right(str, 1) = "."

Then str = Left(str, Len(str) - 1) End

If FormatCurrencyTwo = FormatCurrency(str) End

Function

该函数接受一个 Currency 值并返回一个字符串，表

示格式化的货币值。它使用了 FormatNumber() 函数，并

检查结果是否以 "." 结尾。如果是，那么就将 "." 去

掉，再传入 FormatCurrency() 函数进行格式化。

最后

本文介绍了 FormatCurrency() 函数及其用途，并详

细讨论了保留小数点后 2 位的方法。使用格式化功能可以

提高程序的易读性，并且确保输出的货币值符合人们的货

币习惯。无论是 Access 还是其他 Office 应用程序，

FormatCurrency() 函数都是一个强大的工具，值得我们深

入学习掌握。