判断一个数字是否是小数以及取整数部分。

silenthunter

请教，这两个过程哪个更合理？结果都是一样的。
除了我的方法，还有什么方法能判断一个数字是不是小数？

Private Sub test1()

Dim Money As String
Money = Application.InputBox("输入数字", "输入数字", , , , , , 1)

If Money = False Then
   MsgBox "没有输入数字。"
   Exit Sub
ElseIf InStr(Money, ".") > 0 Then ' 判断输入的数字有没有小数点，大于0表示有小数点。
   Money = Left(Money, InStr(Money, ".") - 1)   ' 有小数点的话取整数部分。
End If

MsgBox Money

End Sub




Private Sub test2()

Dim Money As String
Money = Application.InputBox("输入数字", "输入数字", , , , , , 1)

If Money = False Then
   MsgBox "没有输入数字。"
   Exit Sub
ElseIf Int(Money) <> Money Then ' 取整数后不等于原来的数字，说明这个数是小数。
   Money = Fix(Money)  ' 有小数点的话取整数部分。
End If

MsgBox Money

End Sub

兰色幻想

IMoney \ 1 <> Money

无聊的疯子

你不过就是要取整嘛，有小数你也没有做其它提示，何必还要去判断呢？？

直接取就行了嘛

在立即窗口分别使用以下两行代码

1. 
   
2. ?int(123456)
   
3. ?int(123456.123)
   

复制代码

你会看到程序返回的值都是 123456
这个也正是你需要的“整数”吧，
所以完全没有必要去判断它是不是有小数

无聊的疯子