VB2010如何判斷一個數是否是整數

Question

我需要能夠判斷整數是整數還是小數。所以13是整數，23.23是小數。

所以像;

If 13 is a whole number then 
msgbox("It's a whole number, with no decimals!") 
else 
msgbox("It has a decimal.") 
end if 

Answer 1

您可以檢查號碼的樓層和天花板是否相同。如果它相等，那麼它是一個整數，否則它將不同。

If Math.Floor(value) = Math.Ceiling(value) Then 
... 
Else 
... 
End If 

Answer 2

的事實，你有一個類型，你都需要確定它是否是一個整數或其他類型的我假設數字符串中包含的判斷。如果是這樣，您可以使用Integer.TryParse方法來確定該值是否爲整數，如果成功，它也會將其作爲整數輸出。如果這不是你正在做的事情，請用更多的信息更新你的問題。

Dim number As String = 34.68 
Dim output As Integer 
If (Integer.TryParse(number, output)) Then 
    MsgBox("is an integer") 
Else 
    MsgBox("is not an integer") 
End If 

編輯：

你可以，如果你使用的是十進制或其他類型的包含您的電話號碼，正像這樣用同樣的想法。

Option Strict On 
Module Module1 

    Sub Main() 

     Dim number As Decimal = 34 
     If IsInteger(number) Then 
      MsgBox("is an integer") 
     Else 
      MsgBox("is not an integer") 
     End If 
     If IsInteger("34.62") Then 
      MsgBox("is an integer") 
     Else 
      MsgBox("is not an integer") 
     End If 

    End Sub 

    Public Function IsInteger(value As Object) As Boolean 
     Dim output As Integer ' I am not using this by intent it is needed by the TryParse Method 
     If (Integer.TryParse(value.ToString(), output)) Then 
      Return True 
     Else 
      Return False 
     End If 
    End Function 
End Module 

Answer 3

If x = Int(x) Then 
    'x is an Integer!' 
Else 
    'x is not an Integer!' 
End If 

Answer 4

 
Dim Num As String = "54.54" 
If Num.Contains(".") Then MsgBox("Decimal") 
'Do Something 

Answer 5

我假設你的初始值是一個字符串。

，首先檢查字符串值是否爲數字。
，比較數字的地板和天花板。如果它是一樣的，你有一個整數。

我更喜歡使用擴展方法。

''' <summary> 
''' Is Numeric 
''' </summary> 
''' <param name="p_string"></param> 
''' <returns></returns> 
''' <remarks></remarks> 
<Extension()> 
Public Function IsNumeric(ByVal p_string As String) As Boolean 
    If Decimal.TryParse(p_string, Nothing) Then Return True 
    Return False 
End Function 

''' <summary> 
''' Is Integer 
''' </summary> 
''' <param name="p_stringValue"></param> 
''' <returns></returns> 
<Extension()> 
Public Function IsInteger(p_stringValue As String) As Boolean 
    If Not IsNumeric(p_stringValue) Then Return False 
    If Math.Floor(CDec(p_stringValue)) = Math.Ceiling(CDec(p_stringValue)) Then Return True 
    Return False 
End Function 

例：

Dim _myStringValue As String = "200" 
    If _myStringValue.IsInteger Then 
     'Is an integer 
    Else 
     'Not an integer 
    End If