Division entre cero en ASP clásico

Código ASP clásico

• Por Programador ASP clásico /
• 25/04/2013 @ 09:47:48  /
• 1009 visitas

Cuando estamos trabajando con ASP clásico y números podemos enfrentarnos a realizar una operación de 1 número entre 0. Ejemplo de código de divisón entre cero en ASP clásico:

   2146828277 (0x800A000B)

  Division by zero
 
 

Si realizamos una división de un número entre cero, por ejemplo: 54/0, nos aparecera un error (0x800A000B) que indica que no es posible dividir por cero (Division by zero).

La solución más sencilla sería colocar la instrucción On Error Resume Next. Sin embargo, cualquier otro error sería pasado por alto por el IIS y no podríamos detectarlo.

Para ello, diponemos dela siguiente función que en caso de existir la consición de dividir un número entre cero, nos daría como resultado 0 en lugar del error (0x800A000B) Division by zero

La función en Vbscript para formateo de decimales para porcentajes y tratamiento de errores en ASP clásico:

  <%

function Divide(strNom,strDenom,intDecimal)

	Divide = 0

	if IsNumeric(strNom) and IsNumeric(strDenom) then

		if CDbl(strNom) > 0 and CDbl(strDenom) > 0 then

			if IsNumeric(intDecimal) then

				intDecimal = FormatNumber(CDbl(Abs(intDecimal)),0)

			else

				intDecimal = 2

			end if

			Divide = FormatNumber(CDbl(strNom) / CDbl(strDenom),intDecimal)

		end if

	end if

end function

%>

Un ejemplo de uso dela función es:

 Response.Write Divide(234,321,3)

tags: division entre cero asp classic, division entre cero asp, divide entre cero asp classic, asp classic divide entre cero