Division entre cero en ASP clásico

Division entre cero en ASP clásico

Código ASP clásico

Por ASP clásico / 25/04/2013 @ 09:47:48 / 1406 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)

Descubre más sobre cómo simplificar y optimizar tu trabajo empresarial en el Blog de CoreASP.

division entre cero asp classic, division entre cero asp, divide entre cero asp classic, asp classic divide entre cero