関数 | 概略説明 |
---|---|
ROUND関数 |
数値を指定された桁数で四捨五入した値を返します。引数は以下の通りです。 ① 数値 ② 桁数(0を指定すると整数として四捨五入され、負の数では小数点の左側で四捨五入されます) |
'*******************************************************************************
' 指定分数で四捨五入処理
'*******************************************************************************
'*【戻値】:四捨五入の処理結果の時間数(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