10

整数が整数か小数かを判別できる必要があります。したがって、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
4

6 に答える 6

5

整数か別のタイプかを判断する必要があるタイプがあるという事実から判断すると、数値が文字列に含まれていると想定しています。その場合、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
于 2013-09-24T01:22:45.147 に答える
1
Dim Num As String = "54.54"
If Num.Contains(".") Then MsgBox("Decimal")
'何かをする
于 2015-02-13T16:53:28.040 に答える