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

あなたはそれが整数または私は数が文字列に含まれていると仮定しています別のタイプであるか否かを判断する必要がされている1つのタイプを持っているという事実から判断します。その場合は、Integer.TryParseメソッドを使用して値がIntegerであるかどうかを判断し、成功した場合はIntegerとして出力します。これがあなたがやっていることでない場合は、質問を更なる情報で更新してください。

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 

編集：

あなたの数、nはこのような何かを含むように小数点または別のタイプを使用している場合は、同じ考えを使用することができます。

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