Jag har gjort en funktion som räknar ut procent.

function makeproc(svar,tot)

if svar<>"" and tot<>"" then
res=round((svar/tot)*100,2)
makeproc=res
else
makeproc=""
end if

end function

I vissa fall så får jag fel på raden res=round((svar/tot)*100,2), varför?

Error Type:
Microsoft VBScript runtime (0x800A0006)
Overflow

<code></code>
Kan vara tot som är 0.

Annars kan du prova med:
<code>
Function Makeproc(svar,tot)
If svar <> "" And tot <> "" Then
makeproc=round((CDbl(svar)/CDbl(tot))*CDbl(100), 2)
End if
End function
</code>