整数が整数か小数かを判別できる必要があります。したがって、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
整数か別のタイプかを判断する必要があるタイプがあるという事実から判断すると、数値が文字列に含まれていると想定しています。その場合、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
編集:
Decimal または別の Type を使用して数値を含める場合は、同じ考え方を使用できます。このようなものです。
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
Dim Num As String = "54.54" If Num.Contains(".") Then MsgBox("Decimal") '何かをする