我不要四舍五入取整，而且整数部分大于8位数，怎么做呀？？？？？？？？？

Question

各位大虾：
请看我的代码：dim ValuesValues=999999999/8 '其结果是：124999999.875当clng(values)时，结果是： 125000000 
问题：
我想要的数据是124999999,怎么做啊！菜鸟在此先谢谢了！！！！

Answer 1

Dim Values    Values = 999999999 / 8 '其结果是：124999999.875
    MsgBox Fix(Values)

Answer 2

Private Sub Command1_Click()
Dim II As Double
Dim JJ As String
Dim KK As SingleII = 999999999 / 8
JJ = CStr(Int(II))
KK = II
MsgBox CStr(II) + vbCrLf + JJ + vbCrLf + CStr(JJ) + vbCrLf + CStr(Round(II))End Sub运行结果是：
124999999.875
124999999
124999999
125000000