スタッフブログ

Public Function DRound(ByVal Value As Variant, ByVal Digit As Long, Optional ByVal RoundType As Byte = 1) As Variant
 
 Dim var As Variant
 Dim factor As Variant
 Dim absValue As Variant
 Dim markValue As Variant
 Dim shifted As Variant
 Dim result As Variant
 
 If IsNull(Value) Then
  DRound = CDec(0)
  Exit Function
 End If
 
 var = CDec(Value)
 factor = CDec(10) ^ Digit
 absValue = Abs(var)
 shifted = absValue * factor
 
 If var < 0 Then
  markValue = CDec(-1)
 Else
  markValue = CDec(1)
 End If
 
 Select Case RoundType
 Case 0
  result = Fix(shifted) / factor
 
 Case 1
  result = Fix(shifted + CDec(0.5)) / factor
 
 Case 2
  If shifted > Fix(shifted) Then
   result = (Fix(shifted) + CDec(1)) / factor
  Else
   result = Fix(shifted) / factor
  End If
 
 End Select
 
 DRound = result * markValue
 
End Function