[Visual Basic] Problemi con Divisione

[darkmind]

Ciao,
dopo aver eseguito queste due righe di codice, dovrei ritrovarmi un numero con la virgola e diversi decimali, ma il mitico Vb mi ritorna un intero..
Mi date una mano?

Private Sub Command1_Click()
Dim valore As Double, divisione As Double
valore = Val("1130005601050400")
divisione = valore / 93
MsgBox "Ris: " & divisione
End Sub

Esatto: 12150597860756,9892...
Vb: 12150597860757

.. arrotonda il numero anche se specifico il tipo Double (quindi numero in virgola mobile)

[maxithron]

fai così:

Private Sub Command1_Click()
Dim valore As Variant
Dim divisione As Currency
valore = ("1130005601050400")
divisione = valore / 93
MsgBox "Ris: " & divisione
End Sub

[maxithron]

Un'altra alternativa sarebbe di fargli fare due operazioni e cioè togliere una cifra al valore (che è di 16 cifre e questo a visual basic proprio non gli va a genio...) ed eseguire un'altra operazione aggiungendo il valore che hai sottratto.

Oppure, si potrebbe usare CDbl.

[maxithron]

Originariamente inviato da maxithron
fai così:

Private Sub Command1_Click()
Dim valore As Variant
Dim divisione As Currency
valore = ("1130005601050400")
divisione = valore / 93
MsgBox "Ris: " & divisione
End Sub


Anzi....+ semplicemente:

Private Sub Command1_Click()
Dim valore As Double
Dim divisione As Currency
valore = ("1130005601050400")
divisione = valore / 93
MsgBox "Ris: " & divisione
End Sub

così ti dà il valore esatto = 12150597860756,9892

[darkmind]

Grazie mille.
Non ci avevo ancora pensato :p

[maxithron]

di niente anzi....mi fa piacere ogni tanto ricordarmi il vb6!!:)