指定した数値以上の最小の整数を取得する
スポンサーリンク
VB6 では、Int 関数を使用します。明示的に型変換をしないと、丸め誤差が発生しますのでご注意ください。端数がある場合のみ、1 を加算することで Ceiling メソッドと同様の動き実現しています。
切り上げ・切り捨てについては以下をご覧ください。
サンプルコード
以下にサンプルコードを示します。
VB6.0 以前
' ------------------------------------------------------------------------ ' 指定された数以上の数のうち、最小の整数を返します。 ' ' @Param dTarget 対象となる数値。 ' @Return 指定された値以上の最小の整数。 ' ------------------------------------------------------------------------ Public Function Ceiling(ByVal dTarget As Double) As Integer ' 小数部に端数がある場合は、切り捨て後に 1 を加算する If dTarget - CInt(Int(dTarget)) > 0 Then Ceiling = CInt(Int(dTarget)) + 1 Else Ceiling = CInt(Int(dTarget)) End If End Function
使用例は以下のようになります。
VB6.0 以前
' 指定した値以上の最小の整数を格納するための変数を宣言する
Dim iValue As Integer
' 12.0001 以上の最小の整数を取得する
iValue = Ceiling(12.0001)
' 取得した値を表示する
Call MsgBox(CStr(iValue)) '13
関連するリファレンス
準備中です。