Krånglande If-sats...

[MagnusM.]

När jag ändrar "1" till "0" i följande rader..

 

 

If nTotal = 0 Then

nTotal = 1

End If

...eller helt tar bort dem får jag följande felmeddelande:

 

Körningsfel i Microsoft VBScript fel '800a0006'

Spill

 

/pollmentor/ny.asp, rad 83

 

Varför kan inte nTotal få vara 0 och inte 1..?

[Olle Nyrén]

Spill gissar jag är svenska för overflow, vilket betyder att ett tal har blivit för stort. Om du delar med nTotal så kommer detta fel att uppstå när nTotal är noll. Det är väl därför if-satsen finns över huvud taget, om du ändrar ettan till en nolla så är de tre raderna helt onödiga.

 

[MagnusM.]

Så värdet av nTotal kan aldrig ska aldrig kunna vara mindre än 1?

 

 

 

 

[Magnus Ahlkvist]

Det beror ju som sagt på vad du använder nTotal till. Ska du dividera med nTotal så får det vara vad som helst utom 0, eftersom det leder till det matematiskt omöjliga "division by zero". Även tal mycket nära noll kommer att leda till "Spill", eftersom inte VB klarar att representera ett tal med mer än 32 bitar.

 

--

En röst talade till mig och sade:

"Le och var glad, ty det kunde vara värre".

Så jag log, och jag var glad.

Och det blev värre.