[VB6] decimali

[md76]

come posso fare in vb6 per eliminare tutti i decimali da un numero e tenere solamente il valore intero ?

[Gugu]

Hai provato usando:

ValoreSenzaDecimali=CInt(TuoValoreConDecimali)

Da notare che il valore max è 32767 e approssima tipo:
Da 0 a 0,5 --> 0
Da 0,5 a 1 --> 1

Altrimenti utilizza "CLng(...)" per arrivare a 2147483647.

Ciao
Andrea

[Sonic88]

Se non vuoi approssimare il numero utilizza:

var = Fix(numero)