|
'X=valore da arrotondare
'Se la divisione di X con il valore mille, 'produce un resto, allora bisogna arrotondare If X Mod 1000 <> 0 Then 'Ottengo il resto Y = X Mod 1000 'Se e' uguale o maggiore di 500... If Y >= 500 Then '...allora aggiungo ad X quello che serve 'ad arrivare alle 1000 lire superiori X = X + (1000 - Y) Else '...altrimenti (se sono sotto le 500), tolgo il resto X = X - Y End If End If 'Alla fine, avro' in X il valore arrotondato |