VBScript中怎么验证一个数小数点后只能为两位(货币)

[dykoo]

VBScript中怎么验证一个数小数点后只能为两位(货币)

即提交过来的一个字段为金额，

怎么验证这个金额变量小数点后有几位？

[超级大笨狼]

Visual Basic Scripting Edition

FormatCurrency 函数
请参阅
FormatDateTime 函数 | FormatNumber 函数 | FormatPercent 函数
要求
版本2
返回表达式，此表达式已被格式化为货币值（使用系统控制面板中定义的货币符号）。

FormatCurrency(
expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit [,UseParensForNegativeNumbers [,GroupDigits]]]]
)
参数
Expression
必选项。要被格式化的表达式。
NumDigitsAfterDecimal
可选项。指示小数点右侧显示位数的数值。默认值为 -1，指示使用的是计算机的区域设置。
IncludeLeadingDigit
可选项。三态常数，指示是否显示小数值小数点前面的零。有关数值，请参阅“设置”部分。
UseParensForNegativeNumbers
可选项。三态常数，指示是否将负值置于括号中。有关数值，请参阅“设置”部分。
GroupDigits
可选项。三态常数，指示是否使用计算机区域设置中指定的数字分组符号将数字分组。有关数值，请参阅“设置”部分。
设置
IncludeLeadingDigit、UseParensForNegativeNumbers 和 GroupDigits 参数可以有以下值：

常数 值 描述
TristateTrue -1 True
TristateFalse 0 False
TristateUseDefault -2 使用计算机区域设置中的设置。

说明
当省略一个或多个可选项参数时，由计算机区域设置提供被省略参数的值。与货币值相关的货币符号的位置由系统的区域设置决定。

注意 除“显示起始的零”设置来自区域设置的“数字”附签外，所有其他设置信息均取自区域设置的“货币”附签。
下面例子利用 FormatCurrency 函数把 expression 格式化为 currency 并且赋值给 MyCurrency:

Dim MyCurrency
MyCurrency = FormatCurrency(1000) 'MyCurrency 包含 $1000.00 。
要求
版本2

请参阅
FormatDateTime 函数 | FormatNumber 函数 | FormatPercent 函数



--------------------------------------------------------------------------------

© 2001 Microsoft Corporation. 保留所有权利。

[yjy001]

关注中！！！！！！

[miller530]

"^\d+?\.\d{2}$"

[超级大笨狼]

x=123.4546
msgbox len(split(cstr(x),".")(1))
我就是传说中江湖上失散多年赫赫有名的vbs教父！

[ronanlin]

<script language="JavaScript" type="text/JavaScript">
var rePrice = /^[0-9]{1,}\.?[0-9]{0,2}$/;
function check()
{
if (form1.Price.value!=""){
if (!rePrice.test(form1.Price.value)){
alert("价格格式不对!");
form1.Price.focus();
return false;
}
}
</script>