sytn.net
当前位置:首页 >> vB四舍五入保留两位小数 >>

vB四舍五入保留两位小数

vba.format(a,"#0.0")'一位小数vba.format(a,"#0.00")'二位小数

Format是格式化,按指定格式输出 Round是四舍五入,有浮点误差很正常

Option Explicit: Dim A Private Sub Text1_Change() A = Text1.Text: A = Format(A, "0.00") End Sub

dim s as string, pos as integer dim v as double, a as double, b as double s = "123.4567" '字符串的123.4567 v = val(s) '数值123.4567'根据字符串只截取三位小数,第四位不四舍五入 pos = instr(s, ".") a = val(left(s, pos + 3)) '从左边取到小数点位置+3个字符,转换为数值 b = int(v * 1000) / 1000 '把123.4567扩大1000倍后取整为123456.7再除1000 print a, b

假设那个数为a可以这样做a=int(a*100-0.5)/100

round(x,2)

乘100,加上0.5,取整,再除以100int(x*100+0.5)/100

a=12 print format(a,"0.00")

fix(x)函数与int(x)函数同为取整函数,但有所不同.当x为正时,两个取整函数都是删除x小数部分,返回其整数部分的值,不进行四舍五入;当x为负时,Int(x)返回小于或等于x的最大整数,fix(x)函数返回大于或等于x的最小整数.即fix函数指的是

vb自带函数: Round(数字,小数点后位数) 如:MsgBox Str$(Round("3.1415926", 2))

网站首页 | 网站地图
All rights reserved Powered by www.sytn.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com