以文本方式查看主题 -  ╋艺 镇╋  (http://wdystv.com/bbs/index.asp) --  ┣◇网站建设&Web语言  (http://wdystv.com/bbs/list.asp?boardid=4) ----  formatNumber()  (http://wdystv.com/bbs/dispbbs.asp?boardid=4&id=2221)

--  作者：admin --  发布时间：2010/9/3 17:06:27 --  formatNumber() FormatNumber 函数 　　返回表达式，此表达式已被格式化为数值。 　　FormatNumber( 　　expression [,NumDigitsAfterDecimal [,IncludeLeadingDigit [,UseParensForNegativeNumbers [,GroupDigits]]]] 　　) 　　Arguments 　　Expression 　　必选项。要被格式化的表达式。 　　NumDigitsAfterDecimal 　　可选项。指示小数点右侧显示位数的数值。默认值为 -1，指示使用的是计算机的区域设置. 　　IncludeLeadingDigit 　　可选项。三态常数，指示是否显示小数值小数点前面的零。有关数值，请参阅“设置”部分. 　　UseParensForNegativeNumbers 　　可选项。三态常数，指示是否将负值置于括号中。有关数值，请参阅“设置”部分. 　　GroupDigits 　　可选项。三态常数，指示是否使用计算机区域设置中指定的数字分组符号将数字分组。有关数值，请参阅“设置”部分。 　　设置 　　IncludeLeadingDigit、UseParensForNegativeNumbers 和 GroupDigits 参数可以有以下值： 　　常数 值 描述 　　TristateTrue -1 True 　　TristateFalse 0 False 　　TristateUseDefault -2 使用计算机区域设置中的设置。 　　说明 　　当省略一个或多个可选项参数时，由计算机区域设置提供被省略参数的值。 　　注意 所有设置信息均取自区域设置的“数字”附签。 　　下面例子利用 FormatNumber 函数把数值格式化为带四位小数点的数: 　　Function FormatNumberDemo 　　Dim MyAngle, MySecant, MyNumber 　　MyAngle = 1.3 \' 用弧度定义角。 　　MySecant = 1 / Cos(MyAngle) \' 计算正割值。 　　FormatNumberDemo = FormatNumber(MySecant,4) \' 把 MySecant 格式化为带四位小数点的数。 　　End Function