[VB6] Parte decimale di un numero

[ghirosoft]

Ciao ragazzi/e,
c'è una funzione che mi restituisce la parte decimale di un numero tipo 4,125? L'intero l'ho trovata.

Ho trovato anche un'altro sistema, ma secondo me ci dovrebbe essere una funzione VB che restituisca solo la parte decimale.

Grazie!

[MMarzia]

linguaggio/versione?


come da regolamento andrebbero sempre specificati nel titolo della discussione

[ghirosoft]

Scusate... linguaggio Visual Basic 6.0

[xegallo]

'a numero da cui estrarre la parte decimale
'b parte decimale

b = abs(a) - int(abs(a))

[ghirosoft]

Grazie lo stesso, avevo usato anch'io quella soluzione.

ciao!

[TeoTeo]

e una funzione per scegliere il numero di decimali?

[ghirosoft]

Potrebbe essere una roba del genere

Round(espressione, numcifredecimali)

Dim MyVar, pi
pi = 3.14159
MyVar = Round(pi, 2) 'Il valore di MyVar è 3,14.

Ciao!

[TeoTeo]

funziona ma arrotonda sempre per eccesso il numero. Non esiste nient'altro? Altrimenti ne provo a fare una.

[ghirosoft]

Non ho approfondito molto, ma mi sembra che le varie funzioni di VB arrotondino. prova anche con queste

gino = Format(8315.4, "00000.000")
gino = Format(8554315.41255, "00000.000")
gino = Format(8315.41255, "###.###")
gino = Format(8315.49, "##,##0.00")
gino = Format(315.4545, "L.##0.00")

[xegallo]

Originariamente inviato da TeoTeo
funziona ma arrotonda sempre per eccesso il numero. Non esiste nient'altro? Altrimenti ne provo a fare una.

veramente non è vero la funzione round di visualbasic utilizza il banker's rounding ovvero quell'algoritmo che in caso di un numero XXX.5 non privilegia ne l'arrotondament per eccesso ne quello per difetto. In questo particolare caso di equidistanza l'algoritmo arrotonda per difetto se la cifra precedente all'ultima è pari e per eccesso se la cifra precedente è dispari