'*******************************************************************************
' 指定分数で四捨五入処理
'*******************************************************************************
'*【戻値】:四捨五入の処理結果の時間数(Date)
'*【引数】:時間数(Date)、指定時間単位(Date)
'*【注意】:字類チェックは行なっていない
'*******************************************************************************
Public Function ROUND_MIN(vntJIKAN As Variant, vntTANI As Variant) As Variant
Dim dblMod As Double
dblMod = 1 / vntTANI
ROUND_MIN = CDate(WorksheetFunction.Round(vntJIKAN * dblMod, 0) / dblMod)
End Function
この程度のコードです。