Percentage Increase

 

    Public Function PercentageIncrease(ByVal intStartValue As Integer, ByVal intEndValue As Integer) As Long
        On Error GoTo Err_Fail
        PercentageIncrease = 1
        PercentageIncrease = ((intEndValue - intStartValue) / intStartValue) * 100
        Exit Function
Err_Fail:
        MsgBox(ErrorToString)
    End Function

Rounding

Round To Nearest X Decimal Places

intStrength = Math.Round(intTmp2, X)

Round Up To Nearest Hundred

intHighestValue = Math.Ceiling(intHighestValue / 100) * 100

Round Down To Nearest Hundred

intHighestValue = Math.Floor(intHighestValue / 100) * 10

 

 

 

SpaceFooter
Website_Design_NetObjects_FusionWeb
 Counter

www.CarlsPlace.co.uk

This Is A United Kingdom Site...