DegradationRule(Param, DegradationRuleCode)

Arguments

Parameter	Description
Param	Optional. String containing the name of the parameter whose degradation constant is to be returned. If this value is missing, the function returns the degradation constant of the current parameter.
DegradationRuleCode	Optional. String containing the code of a Degradation Rule constant to be returned. If this argument is missing, the function uses the degradation rule of the current analysis object.
Return Value	Returns the degradation constant of the specified parameter for the specified degradation rule.

DegradationRule example

This example uses the degradation constant and shelf life values to calculate the degraded concentration of a parameter for vitamin C from the average.

Dim ao As Object = RowTag(1, _OBJECTKEY, "AVERAGED")
Dim kt As Double = DegradationRule("","")  *  _ANALYSISHELFLIFE
DIM val As Double
if _ANALYSISPARAM = "VITC" then
   val =  ao * (2.71828128^(kt)) 
else
    val = ao
end if
return val