Public Function Round01(dNum As Double, Optional numDecimalPlaces As Integer) As Double
' by Donald, donald@xbeat.net, 20000908
' NOTE: cannot deal with negative numDecimalPlaces
' NOTE: numDecimalPlaces cannot be larger than 127
' NOTE: fails with certain (eg. german) country settings
  If numDecimalPlaces >= 0 Then
    ' numDecimalPlaces cannot be larger than 127, else Format$ gives up
    If numDecimalPlaces > 127 Then
      numDecimalPlaces = 127
    End If
    ' use Format$ for the job
    Round01 = Val(Format$(dNum, "0." & String$(numDecimalPlaces, "#")))
  Else
    ' return unchanged
    Round01 = dNum
  End If
End Function

Public Function Round02(dblNumber As Double, Optional numDecimalPlaces As Integer) As Double
' by Ken Getz and Mike Gilbert, VBA Developer's Handbook (Sybex, 1999), page 180
' [slightly altered to match our specifications]
' NOTE: overflows if Abs(numDecimalPlaces) is too large
' NOTE: 1/2 rounding wrong when compiler option
'       'Remove Floating Point Error Checks' is checked
  Dim dblFactor As Double
  Dim dblTemp As Double
  dblFactor = 10 ^ numDecimalPlaces
  dblTemp = dblNumber * dblFactor + 0.5
  Round02 = Int(dblTemp) / dblFactor
End Function

Public Function Round03(dblNumber As Double, Optional numDecimalPlaces As Integer) As Double
' by Ken Getz and Mike Gilbert, VBA Developer's Handbook (Sybex, 1999), page 180
' [slightly altered to match our specifications]
' NOTE: overflows if Abs(numDecimalPlaces) is too large
  Dim dblFactor As Double
  dblFactor = 10 ^ numDecimalPlaces
  ' CDbl is necessary else eg. Round03(1.2345, 3) would return 1.234
  Round03 = Int(CDbl(dblNumber * dblFactor + 0.5)) / dblFactor
End Function

Public Function Round04(dblNumber As Double, Optional numDecimalPlaces As Integer) As Double
' © G.Beckmann   eMail: G.Beckmann@NikoCity.de
    Dim r#, c%

    r = 10#
    If numDecimalPlaces > 0 Then
        For c = 2 To numDecimalPlaces: r = r * 10#: Next c
    Else
        For c = numDecimalPlaces To 0: r = r / 10#: Next c
    End If

    Round04 = Int(dblNumber * r + 0.5000000000001) / r
End Function

Public Function Round05(dblNumber As Double, Optional numDecimalPlaces As Integer) As Double
' based on Round04 by G.Beckmann, G.Beckmann@NikoCity.de
' modified by Donald, donald@xbeat.net, 000926
    Dim c As Integer
    
    Round05 = 10#
    
    If numDecimalPlaces > 0 Then
      For c = 2 To numDecimalPlaces: Round05 = Round05 * 10#: Next c
    Else
      For c = numDecimalPlaces To 0: Round05 = Round05 / 10#: Next c
    End If
    
    If dblNumber > 0 Then
      Round05 = Int(CDbl(dblNumber * Round05 + 0.5)) / Round05
    Else
      Round05 = -Int(CDbl(-dblNumber * Round05 + 0.5)) / Round05
    End If
    
End Function

Public Function Round06(dblNumber As Double, Optional intDecimalPlaces As Integer) As Double
' by Keith Matzen, kmatzen@ispchannel.com, 20001015
 
   Dim iNdx    As Integer
   Dim dScale  As Double
   
   Select Case intDecimalPlaces
      Case Is > 7
         If dblNumber >= 0# Then
            dScale = 100000000#
         Else
            dScale = -100000000#
         End If
         For iNdx = 9 To intDecimalPlaces: dScale = dScale * 10#: Next iNdx
         Round06 = Int(CDbl(dblNumber * dScale + 0.5)) / dScale
      Case Is >= 0
         If (intDecimalPlaces And 4) Then
            If (intDecimalPlaces And 2) Then
               If (intDecimalPlaces And 1) Then
                  If dblNumber > 0# Then
                     Round06 = Int(CDbl(dblNumber * 10000000# + 0.5)) / 10000000#    '7
                  Else
                     Round06 = Int(CDbl(dblNumber * -10000000# + 0.5)) / -10000000#  '7
                  End If
               Else
                  If dblNumber > 0# Then
                     Round06 = Int(CDbl(dblNumber * 1000000# + 0.5)) / 1000000#      '6
                  Else
                     Round06 = Int(CDbl(dblNumber * -1000000# + 0.5)) / -1000000#    '6
                  End If
               End If
            ElseIf (intDecimalPlaces And 1) Then
               If dblNumber > 0# Then
                  Round06 = Int(CDbl(dblNumber * 100000# + 0.5)) / 100000#           '5
               Else
                  Round06 = Int(CDbl(dblNumber * -100000# + 0.5)) / -100000#         '5
               End If
            Else
               If dblNumber > 0# Then
                  Round06 = Int(CDbl(dblNumber * 10000# + 0.5)) / 10000#             '4
               Else
                  Round06 = Int(CDbl(dblNumber * -10000# + 0.5)) / -10000#           '4
               End If
            End If
         ElseIf (intDecimalPlaces And 2) Then
            If (intDecimalPlaces And 1) Then
               If dblNumber > 0# Then
                  Round06 = Int(CDbl(dblNumber * 1000# + 0.5)) / 1000#               '3
               Else
                  Round06 = Int(CDbl(dblNumber * -1000# + 0.5)) / -1000#             '3
               End If
            Else
               If dblNumber > 0# Then
                  Round06 = Int(CDbl(dblNumber * 100# + 0.5)) / 100#                 '2
               Else
                  Round06 = Int(CDbl(dblNumber * -100# + 0.5)) / -100#               '2
               End If
            End If
         ElseIf (intDecimalPlaces And 1) Then
            If dblNumber > 0# Then
               Round06 = Int(CDbl(dblNumber * 10# + 0.5)) / 10#                      '1
            Else
               Round06 = Int(CDbl(dblNumber * -10# + 0.5)) / -10#                    '1
            End If
         Else
            If dblNumber > 0# Then
               Round06 = Int(CDbl(dblNumber + 0.5))                                  '0
            Else
               Round06 = -Int(CDbl(-dblNumber + 0.5))                                '0
            End If
         End If
      Case Else
         If dblNumber >= 0# Then
            dScale = 10#
         Else
            dScale = -10#
         End If
         For iNdx = intDecimalPlaces To -2: dScale = dScale * 10#: Next iNdx
         Round06 = Int(CDbl(dblNumber / dScale + 0.5)) * dScale
   End Select
   
End Function

Public Function Round07(dblNumber As Double, Optional ByVal numDecimalPlaces As Long) As Double
' by Jost Schwider, jost@schwider.de, 20001016
' modified by Donald, donald@xbeat.net

  Dim i As Long
  Static Pow10(-20 To 20) As Double
  
  ' calc powers of 10 once
  If Pow10(0) = 0 Then
    Pow10(0) = 1#
    For i = 1 To UBound(Pow10)
      Pow10(i) = Pow10(i - 1) * 10#
      Pow10(-i) = Pow10(1 - i) / 10#
    Next
  End If
  
  If dblNumber > 0 Then
    Round07 = Int(CDbl(dblNumber * Pow10(numDecimalPlaces) + 0.5)) * Pow10(-numDecimalPlaces)
  Else
    Round07 = -Int(CDbl(-dblNumber * Pow10(numDecimalPlaces) + 0.5)) * Pow10(-numDecimalPlaces)
  End If
  
End Function

Public Static Function Round08(dblNumber As Double, Optional ByVal numDecimalPlaces As Long) As Double
' by Jost Schwider, jost@schwider.de, 20001016
' modified by Donald, donald@xbeat.net
  
  Dim i As Long
  Dim Pow10(-20 To 20) As Double
  
  ' calc powers of 10 once
  If Pow10(0) = 0 Then
    Pow10(0) = 1#
    For i = 1 To UBound(Pow10)
      Pow10(i) = Pow10(i - 1) * 10#
      Pow10(-i) = Pow10(1 - i) / 10#
    Next
  End If
  
  If dblNumber > 0 Then
    Round08 = Int(CDbl(dblNumber * Pow10(numDecimalPlaces) + 0.5)) * Pow10(-numDecimalPlaces)
  Else
    Round08 = -Int(CDbl(-dblNumber * Pow10(numDecimalPlaces) + 0.5)) * Pow10(-numDecimalPlaces)
  End If
  
End Function

Public Static Function Round09(dblNumber As Double, Optional ByVal numDecimalPlaces As Long) As Double
' by Donald, donald@xbeat.net, 20001017
' based on Round08 by Jost Schwider, jost@schwider.de
  
  Dim i As Long
  Dim dTmp As Double
  Dim Pow10(-20 To 20) As Double
  
  ' calc powers of 10 once
  If i = 0 Then   '(all vars are static)
    Pow10(0) = 1#
    For i = 1 To UBound(Pow10)
      Pow10(i) = Pow10(i - 1) * 10#
      Pow10(-i) = Pow10(1 - i) / 10#
    Next
  End If
  
  If dblNumber >= 0 Then
    dTmp = dblNumber * Pow10(numDecimalPlaces) + 0.5
    Round09 = Int(dTmp) * Pow10(-numDecimalPlaces)
  Else
    dTmp = -dblNumber * Pow10(numDecimalPlaces) + 0.5
    Round09 = -Int(dTmp) * Pow10(-numDecimalPlaces)
  End If
  
End Function

Public Static Function Round10(dblNumber As Double, Optional ByVal numDecimalPlaces As Long) As Double
' by Donald, donald@xbeat.net, 20001018
  
  Dim fInit As Boolean
  Dim numDecimalPlacesPrev As Long
  Dim dFac As Double
  Dim dFacInv As Double
  Dim dTmp As Double
  
  ' calc factor once for this depth of rounding
  If Not fInit Or numDecimalPlacesPrev <> numDecimalPlaces Then
    dFac = 10 ^ numDecimalPlaces
    dFacInv = 10 ^ -numDecimalPlaces
    numDecimalPlacesPrev = numDecimalPlaces
    fInit = True
  End If
  
  If dblNumber >= 0 Then
    dTmp = dblNumber * dFac + 0.5
    Round10 = Int(dTmp) * dFacInv
  Else
    dTmp = -dblNumber * dFac + 0.5
    Round10 = -Int(dTmp) * dFacInv
  End If
  
End Function

Private Declare Function VarR8Round Lib "oleaut32.dll" _
      (ByVal dIn As Double, ByVal nplaces As Long, dOut As Double) As Long

Public Function Round11(dblNumber As Double, _
         Optional ByVal numDecimalPlaces As Long) As Double
' by Lyle Fairfield, LyleFairfield@CyRiv.Com, 20001218
' NOTE: does "Bankers rounding"
'       cannot handle negative numDecimalPlaces (returns zero invariably)
  VarR8Round dblNumber, numDecimalPlaces, Round11
End Function

Public Function Round12( _
  ByVal dblNumber As Double, _
  Optional ByVal intDecimals As Integer = 0) As Double
' by Gustav Brock, gustav@cactus.dk, 20020404
' Performs 4/5 rounding of positive and negative values
' symmetrical to zero.
'
' 2002-04-02. Gustav Brock, Cactus Data ApS, CPH.

  Dim dblValue  As Double
  Dim dblFactor As Double

  ' Ignore excessive values of intDecimals and dblValue.
  On Error GoTo Err_Round12

  dblFactor = 10 ^ intDecimals
  dblValue = dblNumber * dblFactor
  If Abs(dblValue) < 100000000000000# Then
    ' Add +/- 0.5 to perform correct 4/5 rounding down/up.
    dblValue = dblValue + (Sgn(dblNumber) / 2)
  Else
    ' Correct 4/5 rounding is done automatically.
  End If
  ' Force type cast to correct for bit error when adding reals
  ' caused by addition of dblValue and +/- 0.5.
  dblValue = Fix(vbNullString & dblValue) / dblFactor

Exit_Round12:
  Round12 = dblValue
  Exit Function

Err_Round12:
  ' Return input value unmodified.
  dblValue = dblNumber
  Resume Exit_Round12

End Function

Public Static Function Round13( _
    ByVal Value As Variant, _
    Optional ByVal digits As Integer = 0 _
  ) As Variant
  Dim i As Long
  Dim Pot10(-28 To 28) As Variant
' by Jost Schwider, jost@schwider.de, 20020419
  
  'Ggf. 10er-Potenzen vor-berechnen:
  If i = 0 Then
    For i = LBound(Pot10) To UBound(Pot10)
      Pot10(i) = CDec(10 ^ i)
    Next i
  End If
  
  'Los gehts:
  On Error Resume Next
    If Value > 0 Then
      Round13 = Int(Value * Pot10(digits) + 0.5) * Pot10(-digits)
    Else
      Round13 = -Int(-Value * Pot10(digits) + 0.5) * Pot10(-digits)
    End If
    If Err.Number Then Round13 = Value
  On Error GoTo 0
End Function

Public Static Function Round14( _
    ByVal dblNumber As Double, _
    Optional ByVal numDecimalPlaces As Long = 0 _
  ) As Double
' by Donald, donald@xbeat.net, 20020419
' modification of Round10 inspired by Jost's Round13 (Variant = CDec!)
  Dim fInit As Boolean
  Dim numDecimalPlacesPrev As Long
  Dim vFac As Variant
  Dim dFacInv As Double
  
  ' calc factor once for this depth of rounding
  If Not fInit Or numDecimalPlacesPrev <> numDecimalPlaces Then
    vFac = CDec(10 ^ numDecimalPlaces)
    dFacInv = 10 ^ -numDecimalPlaces
    numDecimalPlacesPrev = numDecimalPlaces
    fInit = True
  End If
  
  On Error GoTo Err_Round14

  If dblNumber > 0 Then
    Round14 = Int(dblNumber * vFac + 0.5)
    Round14 = Round14 * dFacInv
  Else
    Round14 = -Int(-dblNumber * vFac + 0.5)
    Round14 = Round14 * dFacInv
  End If
  
  Exit Function
  
Err_Round14:
  Round14 = dblNumber
End Function

Public Function Round15( _
    ByVal dblNumber As Double, _
    Optional ByVal lngDecimals As Long = 0) _
    As Double
' By Gustav, gustav@cactus.dk, 20020509
' Modification of Round14
' by Donald, donald@xbeat.net, 20020419
' modification of Round10 inspired by Jost's Round13 (Variant = CDec!)

  Static dblNumberPrevious    As Double
  Static lngDecimalsPrevious  As Long
  Static varFactor            As Variant
  Static dblFactorInv         As Double
  Static dblValue             As Double

  Dim booNewDecimals          As Boolean
  Dim booNewNumber            As Boolean

  ' Ignore excessive values of lngDecimals and dblValue.
  On Error GoTo Err_Round15

  booNewNumber = dblNumber <> dblNumberPrevious
  booNewDecimals = lngDecimals <> lngDecimalsPrevious Or dblFactorInv = 0

  If booNewDecimals = True Then
    ' Calculate factor for this number of decimals.
    varFactor = CDec(10 ^ lngDecimals)
    dblFactorInv = 10 ^ -lngDecimals
    lngDecimalsPrevious = lngDecimals
  End If

  If booNewDecimals = True Or booNewNumber = True Then
    dblNumberPrevious = dblNumber
    If dblNumber = 0 Then
      dblValue = 0
    ElseIf dblNumber > 0 Then
      dblValue = Int(dblNumber * varFactor + 0.5)
      dblValue = dblValue * dblFactorInv
    Else
      dblValue = -Int(-dblNumber * varFactor + 0.5)
      dblValue = dblValue * dblFactorInv
    End If
  End If

Exit_Round15:
  Round15 = dblValue
  Exit Function

Err_Round15:
  ' Return input value unmodified.
  dblValue = dblNumber
  Resume Exit_Round15

End Function

Public Function Round16(ByVal v As Double, Optional ByVal lngDecimals As Long = 0) As Double
' by Filipe Lage, fclage-NO~SPAM@kiss-ezlink.com, 20050322
  Round16 = CDbl(Format$(v * 10 ^ lngDecimals, "0")) / 10 ^ lngDecimals
End Function

Public Function Round17(ByVal v As Double, Optional ByVal lngDecimals As Long = 0) As Double
  ' By Filipe Lage
  ' fclage@gmail.com
  ' msn: fclage@clix.pt
  ' Revision C by Donald - 20060201 - (Bugfix)
  ' Revision D by Jeroen De Maeijer - 20100529 - (Bugfix)
  ' Revision E by Filipe Lage - 20100530 (speed improvements)
  Dim xint As Double, yint As Double, xrest As Double
  Static PreviousValue    As Double
  Static PreviousDecimals As Long
  Static PreviousOutput   As Double
  Static M                As Double
      
  If PreviousValue = v And PreviousDecimals = lngDecimals Then Round17 = PreviousOutput: Exit Function
      ' Hey... it's the same number and decimals as before...
      ' So, the actual result is the same. No need to recalc it
  
  If v = 0 Then Exit Function
      ' no matter what rounding is made, 0 is always rounded to 0
      
  If PreviousDecimals = lngDecimals Then
      ' 20100530 Improvement by fclage - Moved M initialization here for speedup
      If M = 0 Then M = 1  ' Initialization - M is never 0 (it is always 10 ^ n)
      Else
      ' A different number of decimal places, means a new Multiplier
      PreviousDecimals = lngDecimals
      M = 10 ^ lngDecimals
      End If
  
  If M = 1 Then xint = v Else xint = v * CDec(M)
      ' Let's consider the multiplication of the number by the multiplier
      ' Bug fixed: If you just multiplied the value by M, those nasty reals came up
      ' So, we use CDEC(m) to avoid that
                                                              
  Round17 = Fix(xint)
      ' The real integer of the number (unlike INT, FIX reports the actual number)
  
  ' 20060201: fix by Donald
  If Abs(Fix(10 * (xint - Round17))) > 4 Then
    If xint < 0 Then '20100529 fix by Zoenie:
    ' previous code would round -0,0714285714 with 1 decimal in the end result to 0.1 !!!
    ' 20100530 Speed improvement by Filipe - comparing vars with < instead of >=
      Round17 = Round17 - 1
    Else
      Round17 = Round17 + 1
    End If
  End If
      ' First decimal is 5 or bigger ? If so, we'll add +1 or -1 to the result (later to be divided by M)
  
  If M = 1 Then Else Round17 = Round17 / M
      ' Divides by the multiplier. But we only need to divide if M isn't 1
  
  PreviousOutput = Round17
  PreviousValue = v
      ' Let's save this last result in memory... may be handy ;)
End Function