保留两位小数的一般方法是四舍五入法。
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, "提示"