DE DÉCIMAL EN ... TOUTES LES BASES PLUS PETITES QUE 35

Signaler
Messages postés
4525
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
-
Messages postés
88
Date d'inscription
jeudi 26 décembre 2002
Statut
Membre
Dernière intervention
2 janvier 2007
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/7144-de-decimal-en-toutes-les-bases-plus-petites-que-35

Messages postés
88
Date d'inscription
jeudi 26 décembre 2002
Statut
Membre
Dernière intervention
2 janvier 2007

Merci :-)
Messages postés
4525
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
9
Vraiment excelent !!!!!

je te met 9/10 et je t'envoi la fonction que j'en ai deduit :
il manque encore le bit de poid fort pour la conversion des nombre negatifs mais la tout de suite j'y ai pas encore reflechis....

Function BaseN(ByVal Value As Long, ByVal Base As Integer) As String
Dim Sign As Boolean
Dim Temp As Long
If Base < 2 Then Exit Function
If Base > 35 Then Exit Function
Sign (Value And &H80000000) &H80000000
Value = Value And &H7FFFFFFF
Do
Temp = Value Mod Base
If Temp > 9 Then
BaseN = Chr$(55 + Temp) & BaseN
Else
BaseN = Temp & BaseN
End If
Value = (Value - Temp) / Base
Loop Until Value = 0
If Sign Then
'Placer ici l'ajustement du signe
'desoler j'ai pas encore reflechis a une solution ;-D
End If
End Function

Merci

b@nne prog