Räkna ut genomsnitt...

20 svar · 505 visningar · startad av MoonCow 27 juni 2001 · sida 2 av 2

Frågan, av MoonCow 27 juni 2001

Varför stämmer inte detta? <% rostad = RecSet("rostad") sammanlagt = RecSet("sammanlagt") ---------------------------- betyg = sammanlagt / rostad --------------------------- Den är den som felmedelandet säger är fel. Response.Write betyg %> Error Type: Microsoft VBScript runtime (0x800A0006) Overflow /geeloo/pixel/pixelbook.asp, line 80 \=( fattar inte borde väl funger eh? \-------

Läs frågan i sin helhet →

PatrikBMedlem sedan mars 20002 836 inlägg

27 juni 2001 10:30#21

Hello,

själv skulle jag nog lösa det på detta viset:

<%
Function getAverage(ByVal iTotal, ByVal iAntal, ByVal iDecimaler) ' As Variant

	Dim intMedel

	'## -- kontrollera att det finns röster så att
	'##    det inte blir någon division med 0 --
	If iTotal = 0 Then
		getAverage = "Ej röstad än."
		Exit Function
	End If

	intMedel = iTotal/iAntal

	'## -- return medel --
	getAverage = FormatNumber(intMedel,iDecimaler)
End Function
%>

<%
Response.Write getAverage(sammanlagt,rostat,2)
%>

Lättare att använda sig av funktioner med felhantering istället för en massa if-satser.

cya,
PatrikB

------------------
*Det tar sig sa han som hade eld i håret*