十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
保留两位小数的一般方法是四舍五入法。
10余年的吉安网站建设经验,针对设计、前端、开发、售后、文案、推广等六对一服务,响应快,48小时及时工作处理。成都营销网站建设的优势是能够根据用户设备显示端的尺寸不同,自动调整吉安建站的显示方式,使网站能够适用不同显示终端,在浏览器中调整网站的宽度,无论在任何一种浏览器上浏览网站,都能展现优雅布局与设计,从而大程度地提升浏览体验。创新互联从事“吉安网站设计”,“吉安网站推广”以来,每个客户项目都认真落实执行。
保留两位小数,看千分位。是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
Dim TempStr As String
TempStr = "2.34567"
MsgBox IIf(Format(TempStr, "#.##") TempStr, Format(TempStr, "#.##") - 0.01, Format(TempStr, "#.##"))
这个不四舍五入,如果需要四舍五入~直接format就行了~
方法1:
先取10倍后小数,再取整,再与10求余数,得到小数点后一位
代码:
Dim a As Double
a = 3.1415926
MsgBox "小数点后一位为:" Str(Int(a * 10) Mod 10), 0, "提示"
方法2:
先将小数用Format转成只有一位小数字符,然后用Right取最后一位字符,得到小数点后一位
代码:
Dim a As Double
a = 3.1415926
MsgBox "小数点后一位为:" Right(Format(a, ".#"), 1), 0, "提示"
方法3:
先将小数放大1倍,再取整数,然后用Right取最后一位字符,得到小数点后一位
代码:
Dim a As Double
a = 3.1415926
MsgBox "小数点后一位为:" Right(Str(Int(a * 10)), 1), 0, "提示"
方法4:
将数先放大10倍,取整,减去取整后放大10倍的数,得到得到小数点后一位的值
代码:
Dim a As Double
a = 3.1415926
MsgBox "小数点后一位为:" Str(Int(a * 10) - Int(a) * 10), 0, "提示"