Afrundning

Belob = "12,1321"
Response.Write(Format(Belob,2))

//>Rune

men generalt afrundning sker med funktionen Round()

fx.

intBelob = "12,1321"
Response.Write(Rund(intBelob))

//>Rune

ikke testet

belob=  Round(CLng(Round(4*belob))/4),2)

Microsoft VBScript runtime error '800a000d'
Type mismatch: 'Format'


Jeg får en fejl ved :

Belob = "12,1321"
Totalt =(Format(Belob,2))


Det er den nederste linie det er galt i.

Jens K

Prøv med FormatNumber() istedet for Format()

//>Rune

neteffect det virker ikke..

Totalt = Round(CLng(Round(4*Belob))/4),2)
--------------------------------------^

Tak Medions...

Det virker :)

Jens K

Sorry, der var en højre-parentes for meget.

Totalt = Round(CLng(Round(4*Belob))/4,2)

Så vidt jeg kan se håndterer medions svar ikke afrunding til nærmeste 25-øre, men kun afrunding til nærmeste kr./øre.

Anytime ;o)
Thx 4 Poinz

//>Rune

Jamen ved ikke om det bare er mig som er meget heldig. Men hos mig afrunder den til nærmeste 25-øre..

Men kan godt være det bare er de tal jeg bruger..

Jens K

lol tror sq nok bare det er de tal du bruger ;o)

//>Rune

det letteste jeg kan komme på ang. de sidste .25 øre, er vel at bruge if sætninger ;-), hvis tallet rundet ned + 0,50 er større, midre eller lig med tallet afrundet, så skal der henholdsvis lægges 0,25 til, eller trækkes 0,25 fra .....

Det kan der jo tærskes meget langhalm på. Nedenstående gør det du efterlyser.

saadan = formatNumber(Round(CLng(Round(4*belob))/4,2),2)

Lækkert med eksperten at man altid lige kan finde svar på de spørgsmål man har. Tak for det neteffect, lige den stump kode jeg skulle bruge.