VBA 時間を15分単位で切り上げる

VBAで、時間を15分単位で切り上げるサンプルコードを記述してます。

環境

• OS windows10 64bit

15分単位で切り上げ

15分単位で切り上げを行うには、Ceiling関数を「Application.WorksheetFunction」を使って、VBA上で使用します。

例えば、セル「A1」に入力された「7:38:00」をセル「A2」に15分単位で切り上げて「7:45」と表示してみます。
※ セル「A2」 の書式は「時刻」です。

適当なボタンを用意して、以下のソースコードを記述します。

Private Sub CommandButton1_Click()

    ' (15分 = 1/96日)
    Sheet1.Cells(1, 2).Value = Application.WorksheetFunction.Ceiling(Sheet1.Cells(1, 1).Value, 1 / 96)

End Sub

実行してみます。

指定した単位で切り上げされていることが確認できます。

ちなみに10分単位の場合は「1 / 144 (10分=1/144日)」に変更するだけです。

Sheet1.Cells(1, 2).Value = Application.WorksheetFunction.Ceiling(Sheet1.Cells(1, 1).Value, 1 / 144)

実行結果