Convertion chiffre romain<>decimal
Soyez le premier à donner votre avis sur cette source.
Vue 6 531 fois - Téléchargée 338 fois
Description
Convertit un nombre romain en decimal
@+
@+
Codes Sources
A voir également
- 4000 en chiffre romain
- 800 en chiffre romain - Meilleures réponses
- 2003 en chiffre romain - Meilleures réponses
- C / C++ / C++.NET : Convertisseur de chiffres romain au chiffre décimale - CodeS SourceS - Guide
- C / C++ / C++.NET : Nombres en chiffres romains - Guide
- C / C++ / C++.NET : Convertir les nombres arabes en chiffres romain... - CodeS SourceS - Guide
- Example classique: convertion entier en chiffre romaine et <<-- (lang- c ) - Codes sources - C / C++ / C++.NET (Chaînes de caractères)
- Delphi / Pascal : Transformer un entier en chiffres romains - CodeS SourceS - Guide
5 août 2003 à 19:50
J'ai refais une source qui incorpore maintenant les deux conversions. Je me suis servit de la récursive qui permet de faire le tout en quelques lignes...
Il me manque de l'info pour la validation mais le reste fonctionne bien... Si jamais tu veux y jeter un coup d'oeil.
5 août 2003 à 14:10
Réjouissez vous v'la t'y pas qu'y a l'inverse : (Limité à 3999)
Public Function Arabe_To_Romain(ByVal Value As Integer) As String
Dim Roms As String
Dim RetVal As String
Dim I As Integer
Dim K As Integer
Roms = "IVXLCDM"
RetVal = ""
If Value < 4000 Then
For I = 1 To Len(Text1)
K = 2 * (Len(Text1) - I) + 1
Select Case Mid(Text1, I, 1)
Case "1": RetVal = RetVal & Mid(Roms, K, 1)
Case "2": RetVal = RetVal & Mid(Roms, K, 1) & Mid(Roms, K, 1)
Case "3": RetVal = RetVal & Mid(Roms, K, 1) & Mid(Roms, K, 1) & Mid(Roms, K, 1)
Case "4": RetVal = RetVal & Mid(Roms, K, 1) & Mid(Roms, K + 1, 1)
Case "5": RetVal = RetVal & Mid(Roms, K + 1, 1)
Case "6": RetVal = RetVal & Mid(Roms, K + 1, 1) & Mid(Roms, K, 1)
Case "7": RetVal = RetVal & Mid(Roms, K + 1, 1) & Mid(Roms, K, 1) & Mid(Roms, K, 1)
Case "8": RetVal = RetVal & Mid(Roms, K + 1, 1) & Mid(Roms, K, 1) & Mid(Roms, K, 1) & Mid(Roms, K, 1)
Case "9": RetVal = RetVal & Mid(Roms, K, 1) & Mid(Roms, K + 2, 1)
End Select
Next I
End If
Arabe_To_Romain = RetVal
End Function
23 juil. 2003 à 15:27
Il serait bien d'indiquer qu'il ne s'agit pas d'un chiffre romain. Mais sinon c'est bien. Je suis un peu décu aussi que la fonction inverse n'existe pas... mais bon ! :-)
- Messages postés
-
193
- Date d'inscription
- jeudi 14 février 2002
- Statut
- Membre
- Dernière intervention
- 25 mars 2011
123 juil. 2003 à 09:21
@+
- Messages postés
-
780
- Date d'inscription
- lundi 16 décembre 2002
- Statut
- Membre
- Dernière intervention
- 16 avril 2009
123 juil. 2003 à 09:02
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.