Afrunding af tal

Man kan jo lave noget helt gerenelt a'la

  tal = 553
  faktor = 10^(len(tal)-1)
  Response.Write "TEST variabel: " & Round(tal/faktor)*faktor

Man kan jo også bare sætte faktor til 100 eller 10 - alt efter hvilket resultet man vil have.

Det skulle jo ha' været et svar...

Jeg ved godt at man kan gøre det på den måde - eller hvis man vil bruge et vilkårligt tal:

afrundetTal= round(tal/10^(len(tal)-1))*10^(len(tal)-1)

Men det er den lange måde - er der en kort måde?
Hvis der ikke kommer andre løsninger i dag, så får du bare point´ne

Det tror jeg ikke der er...

Det gøres sådan:

Public Function Afrund(X As Single)
    Dim TempSign As Integer
   
    TempSign = Sgn(X)
    X = Abs(X)
    'Afrund = TempSign * (-Int(-X / 100) * 100) 'Runder op til nærmeste hundrede
    'Afrund = TempSign * (Int(X / 10) * 10) 'Runder ned til nærmeste tiere
End Function

Du havde jo selv svaret !!!

Der er ikke nogen kortere måde - end den lange, hvis du vil have en funktion for vilkårlige tal - kun, hvis du altid har bestemte talstørrelser.

Bemærk lige, at round ikke både kan runde op og ned !!!

moses - Det passer ikke - "round" runder fint op og ned

Du har fuldstændig ret - du skal hænges !!!
Det var en tanketorsk fra min side !!