[VBA] prendere la parte decimale

[gio-mx]

Salve, c'è una funzione per prendere la parte decimale di un numero cioè il contrario di fix, tipo...

Grazie.

[tas]

Non mi sembra esista niente di preconfezionato; puoi sempre fare così:

Dim i As Single
Dim j As Single

i = 17 / 3
j = i - Fix(i)
Debug.Print i, j

Ciao

[LMondi]

Ciao gio-mx !
Potresti usare questa funzione:

Function getDecimale(ByVal valore As Double) As Double
    Dim str() As String
    Dim risultato As String
    risultato = Replace(CStr(valore), ".", ",")
    str = Split(risultato, ",")
If UBound(str) > 0 Then
    risultato = "0," & str(UBound(str))
    Else
    risultato = "0"
End If
    getDecimale = CDbl(risultato)
End Function
'------------------------------------------------------------------
Private Sub Command1_Click()
    Dim valore As Double
    valore = 1325.0022145
    MsgBox getDecimale(valore)
End Sub

[yyzyyz]

Originariamente inviato da tas
Non mi sembra esista niente di preconfezionato; puoi sempre fare così:

Dim i As Single
Dim j As Single

i = 17 / 3
j = i - Fix(i)
Debug.Print i, j

Ciao

ciao tas, volevo sapere se fix esiste anke su VB6 , ke compito svolge ?

[yyzyyz]

trovato, lo trasforma in interno

[tas]

Originariamente inviato da yyzyyz
trovato, lo trasforma in interno

???

[yyzyyz]

Originariamente inviato da tas
???

volevo dire intero :maLOL: