[VB6]:Arrotondamento numeri

[vr-claudio]

Ciao ragazzi,
sto costruendo un programma fatture e ho l'occorrenza di arrotondare in eccesso il totale della fattura, tipo;


Da € 129,45 A € 130,00

E utilizzo il seguente codice per sommare i vari contenuti nella Fattura:

Dim Somma As Single
txt_Totale.Caption = CStr("€ " & CSng(Label34.Caption) + CSng(Label35.Caption) + Somma)
txt_Totale = Format(txt_Totale.Caption, "€ " & "#,###.00")

Ciao e grazie

[Pista]

http://forum.html.it/forum/showthread/t-1048594.html

Anche se ogni tanto basterebbe una googolata di 5 min
Capisco anche che è molto più semplice fare sbatere gli altri.



Cia