Cálculo de Porcentaje

*-------------------------------------------------------
* Función.....: _CalcPercent( tnCuantos, tnDeCuantos )
*
* Descripción.: Calcula el porcentaje que representa tnCuantos
* con respecto a tnDeCuantos
*
* Parámetros..: Es mas que obvio
*
* Devuelve....: Valor Numerico osease el porcentaje
*
* Uso.........: Excelente para actualizar un progres barr!
*
* (c) Alejandro Gomez
*-------------------------------------------------------
FUNCTION _CalcPercent( tnCuantos,tnDeCuantos )
Local lnPercent
lnPercent = (tnCuantos/tnDeCuantos) * 100
RETURN lnPercent