Bueno, no pensé que fuera tan grande, jejeje pero ya con los cambios que dio
jchuk ya funciona, lo probe con ese intervalo. saludos
[Edición]
Pues probando los limites de la función, me di cuenta que tampoco te deja intervalos muy grandes (>45000) y no por la variable
Suma, sino por la variable
i, asi que si quieres variaciones mas grandes, pudes remplazar la definicion de
i por un
Double en vez de un
Integer
Código:
Function SUMA_CUAD(A As Double, B As Double)
Dim i As Double
Dim Suma As Double
Suma = 0
If A < B Then
For i = A To B
Suma = Suma + i ^ 2
Next i
ElseIf A > B Then
For i = B To A
Suma = Suma + i ^2
Next i
Else
Suma = A * B
End If
SUMA_CUAD = Suma
End Function
Yo en el rango de -100 000 a 100 000 y no me causa problemas mas que un retardo en el calculo
[/Edición]