[VB6] Funzione per l'arrotondamento di un numero

[Jera]

Salve a tutti,
qualcuno conosce in visual basic 6 delle funzioni per arrotondare per eccesso o per difetto un numero intero??
ad esempio 1145 arrotondato per eccesso a 1150 o per difetto a 1140
Grazie

[oregon]

Print Round(1145/10,0)*10

Print Round(1145/10+0.1,0)*10

[calabar]

ossia arrotondare alla decina?
potresti realizzarne una in un attimo.

Per eccesso:
Somma 9 al numero
Dividi per 10 il numero
usa la funzione fix per troncarlo *
Moltiplica il numero per 10

Per difetto
Dividi per 10 il numero
usa la funzione fix per troncarlo *
Moltiplica il numero per 10

* (SOLO se si tratta di un tipo di dato non intero)

PS: la soluzione di Oregon in effetti è più immediata!

[Jera]

Grazie per l'aiuto!!!