怎样去掉小数点后面的数怎样去掉小数点后
一。使用Int、Fix 函数
Private Sub Form_Load()
Text1 = Int(15013。742)
End Sub
Int、Fix 函数
返回参数的整数部分。
语法
Int(number)
Fix(number)
必要的 number 参数是 Double 或任何有效的数值表达式。如果 number 包含 Null，则返回 Null。
说明
Int 和 Fix 都会删除 number 的小数部份而返回剩下的整数。
Int 和 Fix 的不同之处在于，如果 number 为负数，则 Int 返回小于或等于 number 的第一个负整数，而 Fix 则会返回大于...全部
一。使用Int、Fix 函数
Private Sub Form_Load()
Text1 = Int(15013。742)
End Sub
Int、Fix 函数
返回参数的整数部分。
语法
Int(number)
Fix(number)
必要的 number 参数是 Double 或任何有效的数值表达式。如果 number 包含 Null，则返回 Null。
说明
Int 和 Fix 都会删除 number 的小数部份而返回剩下的整数。
Int 和 Fix 的不同之处在于，如果 number 为负数，则 Int 返回小于或等于 number 的第一个负整数，而 Fix 则会返回大于或等于 number 的第一个负整数。例如，Int 将 -8。
4 转换成 -9，而 Fix 将 -8。4 转换成 -8。
二。使用INSTR函数及MID函数:
Option Explicit
Dim a As Double
Dim b As Integer
Private Sub Form_Load()
a = 15013。
742
Text1 = a
b = InStr(1, a, "。")
Text2 = Mid(a, 1, b - 1)
End Sub
。收起
