• Home
 · 
• Math/Dates
 · 
• Calculates a percentage using the is over of = percent over 100 ratio. This code will either show

Calculates a percentage using the is over of = percent over 100 ratio. This code will either show

Calculates a percentage using the "is over of = percent over 100" ratio. This code will either show a percentage (50% of 10 is 5, or 5 is 50%

Rate Calculates a percentage using the is over of = percent over 100 ratio. This code will either show

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Dim lTemp As Long
    On Error GoTo CheckForErrors
    
    If cPercent = 0 Then
        lTemp = cIs * 100
        CalcPercent = CLng(Int(lTemp / cOf))
    ElseIf cPercent <> 0 Then
        lTemp = cOf * cPercent
        CalcPercent = CLng(Int(lTemp / 100))
    End If
    Exit Function
    
'   Error Handler
CheckForErrors:
    If Err.Number = 6 Then
        CalcPercent = 0
        Resume Next
    ElseIf Err.Number = 11 Then
        CalcPercent = 0
        Resume Next
    ElseIf Err.Number = 3420 Then
        Resume Next
    ElseIf Err.Number <> 0 Then
        MsgBox err.number & ", " & err.description
        Resume Next
    End If
End Function