重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
保留两位小数的一般方法是四舍五入法。
建网站原本是网站策划师、网络程序员、网页设计师等,应用各种网络程序开发技术和网页设计技术配合操作的协同工作。创新互联专业提供网站设计制作、网站设计,网页设计,网站制作(企业站、响应式网站、电商门户网站)等服务,从网站深度策划、搜索引擎友好度优化到用户体验的提升,我们力求做到极致!
保留两位小数,看千分位。是4或比4小舍去;是5或比5大舍去以后向前一位进1。
如:3.425保留两位小数就是3.43
3.421保留两位小数就是3.42
又如: 3.4263保留两位小数就是3.43
3.4233保留两位小数就是3.42
再如:3.4保留两位小数就是3.40
VB用Format 函数即可实现。
Format 函数,返回 Variant (String),其中含有一个表达式,它是根据格式表达式中的指令来格式化的。
Print Format(3.1415926, "#.##")
*#:表示一个数字位。#的个数决定了显示区段的长度。如果要显示的数值的位数小于格式字符串指定的区段长度,则该数值靠区段的左端显示。如果要显示的数值的位数大于指定的区段长度,则数值照原样显示。 要显示多位,只需要设置数字位数即可,例如:
Print format(3.14159262654321,”#.#######”)
显示:3.1415926
VB中有专门用来四舍五入的函数
Round 函数:返回按指定位数进行四舍五入的数值。
语法:Round(expression[, numdecimalplaces])
参数:expression(必选项)-被四舍五入的数值表达式 ;numdecimalplaces(可选项)-数字表明小数点右边有多少位进行四舍五入,如果省略则 Round 函数返回整数。
下面的示例利用 Round 函数将数值四舍五入到两位小数:
Dim MyVar, pi
pi = 3.14159
MyVar = Round(pi, 2) 'MyVar contains 3.14。
private sub text1_change()
text1.text=format(val(text1.text),"0.00")
end sub
代码分析:
Math.Floor:返回小于或等于指定数字的最大整数。
Fix:返回数字的整数部分。
Math.Floor 和 Fix 函数都移除 Number 的小数部分并返回得到的整数值。
Math.Floor 和 Fix 函数之间的区别在于:如果 Number 为负,则 Math.Floor 返回小于或等于 Number 的第一个负整数,而 Fix 返回大于或等于 Number 的第一个负整数。例如,Math.Floor 将 -8.4 转换成 -9,而 Fix 将 -8.4 转换成 -8。
你的要求:如果你的要求是直接舍去,那么应当采用Fix方法,考虑到时负数的情况,那么采用Math.Floor将会出现非预期的结果。
测试结果:见附图。
欢迎交流。
举个例子
Dim a As Decimal = 1.999
Dim b As Decimal = Math.Round(a, 2)
结果为b = 2.00
四舍五入保留两位