VB6数値が小数を含むかどうかをチェックする

スポンサーリンク

ある数値が小数を含むかどうかをチェックする方法です。単純に整数からの差が 0 でなければ、小数を含むということになります。

サンプルコード

以下にサンプルコードを示します。

VB6.0 以前
' -------------------------------------------------------------------------------
'       指定した値が小数を含むかどうかを返します。
'
' @Param    dValue  検査対象となる値。
' @Return           小数を含む場合は True。それ以外は False。
' -------------------------------------------------------------------------------
Public Function IsDecimal(ByVal dValue As Double) As Boolean
    If dValue - Int(dValue) <> 0 Then
        IsDecimal = True
    End If
End Function

使用例は以下のようになります。

VB6.0 以前
    ' 小数を含むかどうかをチェックする
    If IsDecimal(12.001) Then
        Call MsgBox("小数を含みます")
    End If

関連するリファレンス

準備中です。

スポンサーリンク