HVordan runder den da af?
--
Gæstebruger, opret dit eget login og få din egen signatur. Det er ret sjovt:
Round(0,5) = 0
Round(1,5) = 2
Round(2,5) = 2
Round(3,5) = 4
Round(4,5) = 4
----
CInt(0,5) = 0
CInt(1,5) = 2
CInt(2,5) = 2
CInt(3,5) = 4
CInt(4,5) = 4
----
Int(0,5) = 0
Int(1,5) = 1
Int(2,5) = 2
Int(3,5) = 3
Int(4,5) = 4
----
Fix(0,5) = 0
Fix(1,5) = 1
Fix(2,5) = 2
Fix(3,5) = 3
Fix(4,5) = 4
----
//Thomas
--
Du kunne overveje følgende metode:
Function Afrund(DecimalTal)
Tal = Split("" & DecimalTal, ",")
Heltal = Int(Tal(0))
Decimaler = Int(Tal(1))
If Decimaler >= 51 Then Heltal = Heltal + 1
Afrund = HelTal
End Function
Som dog ikke tager højde for om man evt. vil have en eller flere decimaler på afrundingen - men der kan du så selv brygge noget ;o)
Men jeg giver dig ret i at VBScript af og til giver nogle skumle resultater ved matematiske funktioner.
Enjoy!
--
Min rekord: Det tog [71,7968800000] sekunder at generere denne side
Ja ja, jeg ved godt at jeg selv kan kode mig ud af det :-)
Men pointen var lidt, at jeg synes det er utroligt at en så banal ting ikke kan klares af en standard funktion.
Eller måske har jeg overset noget ?
Men ellers tak for dit svar ;-)
//Thomas
--
Du kunne evt. prøve at kigge på FormatNumber eller FormatCurrency... Jeg har dog selv valgt at lave mine afrundingsmetoder, hvis der er brug for 100% korrekte tal.
Enjoy!
--
Min rekord: Det tog [71,7968800000] sekunder at generere denne side