А зачем отдельная библиотека?
Код:
IF UpperLim = LowerLim THEN
Res := 0;
ELSE
Res := 100 * (LIMIT(LowerLim, X, UpperLim) - LowerLim)/(UpperLim - LowerLim);
END_IF