[VB6] Convertire da decimale a esadecimale

[feddycap]

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...

 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

[oregon]

 
        ...

        Do
            div = Fix(x / 16.0)
            re = Fix(x Mod 16.0)
            If CInt(re) = 10 Then
                ris = "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
            Else
                ris = CStr(CInt(re)) + ris
            End If
            x = div
        Loop While x > 0

...

Grazie in anticipo [/QUOTE]

[alka]

Il linguaggio va indicato anche nel titolo, come da Regolamento.

Qui l'ho aggiunto io.

[feddycap]

Originariamente inviato da oregon

 
        ...

        Do
            div = Fix(x / 16.0)
            re = Fix(x Mod 16.0)
            If CInt(re) = 10 Then
                ris = "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
            Else
                ris = CStr(CInt(re)) + ris
            End If
            x = div
        Loop While x > 0

...

Grazie, le sono eternamente grato.

Originariamente inviato da alka
Il linguaggio va indicato anche nel titolo, come da Regolamento.

Qui l'ho aggiunto io.

Scusi, mi ero appena registrato sul forum, e non avevo avuto il temo di leggere il regolamento, lo lo leggerò oggi stesso.

[oregon]

Originariamente inviato da feddycap
eternamente

Non promettere quello che non puoi mantenere ...

Scusi

Sul forum ci possiamo dare tutti del tu ...