Division entre cero en ASP clásico

Código ASP clásico

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

En esta sección encontrarás una mezcla de códigos recopilados de fuentes públicas de Internet y otros creados por ASP TEAM. Compartimos recursos útiles de buena fe para formar una base de conocimiento en el desarrollo de aplicaciones en ASP Clásico.