Vorrei un suggerimento su come sistemare questa funzione : Sto cercando di convertire da decimale a esadecimale, ma non ci riesco. Non volevo copiare le migliaia di cose già fatte che ci sono, perciò mi sono creato una funzione tutta mia. Ma non funziona .
Mi ci sto accanendo, se qualche esperto mi potesse aiutare...
codice:
 Function ToHEX(ByVal x As Double)
        Dim div, re As Double
        Dim ris As String = ""
        If x < 16 Then
            'Exit Sub
        End If
        Do
            div = Fix(x / 16.0)
            re = Fix(x Mod 16.0)
            If CInt(re) = 0 Then
                ris = "0" + ris
            ElseIf CInt(re) = 10 Then
                re = "A" + ris
            ElseIf CInt(re) = 11 Then
                ris = "B" + ris
            ElseIf CInt(re) = 12 Then
                ris = "C" + ris
            ElseIf CInt(re) = 13 Then
                ris = "D" + ris
            ElseIf CInt(re) = 14 Then
                ris = "E" + ris
            ElseIf CInt(re) = 15 Then
                ris = "F" + ris
            ElseIf div < 10 Then
                ris = CStr(CInt(div)) + ris
            End If
            x = div
        Loop While x > 0
        Return ris
    End Function
Grazie in anticipo