formatcurrency() access 小数点后2位

2024年2月1日发(作者：)

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() 函数都是一个强大的工具，值得我们深入学习掌握。