代码分析：
创新互联公司公司2013年成立，先为阿图什等服务建站，阿图什等地企业，进行企业商务咨询服务。为阿图什企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
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将会出现非预期的结果。
测试结果：见附图。
欢迎交流。
保留两位小数的一般方法是四舍五入法。
保留两位小数，看千分位。是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
'自定义一个函数：功能是给小数直接进一位
'num 要操作的小数
'n 保留几位小数，
Function getNumber(num As Double, n As Integer) As Double
Dim a As Double
a = Int(num * (10 ^ n)) / (10 ^ n)
If a = num Then
getNumber = a
Else
getNumber = a + 1 / (10 ^ n)
End If
End Function
-------------------------
调用一下：
Private Sub Command1_Click()
MsgBox (getNumber(3.1415926, 2))
End Sub
得到3.15
