怎样去掉小数点后面的数
怎样去掉小数点后面的数
一.使用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 的小数部份而返回剩下的整数。
trunc函数怎么切除小数点后几位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

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。