Les Snippets

Nouveaux snippets
Snippets les plus consultés
Proposer un snippet

 Abonnez vous à ce fil d'information Les rss

Rechercher :

Par langages :

Par Catégorie

Compteurs


Nombre de sujets : 472
Nombre de snippets : 1507
Connexion

Conversion de nombres Romain en Décimal

Niveau requis pour utiliser/comprendre cette source : 1 ( Débutant )
Créé le 15/01/2008 22:10:50 et initié par casy [Liste]
Date de mise à jour : 16/01/2008 09:49:18
Vue : 2357
Catégorie(s) : Maths
Langage sélectionné : VB 2005
Langages dispo pour ce code :
- VB6, VBA
- VB 2005
- Delphi 5
- Java
- Voir tous les langages pour ce code snippet
Proposer ce code dans un autre langage



Langage : VB 2005
Date ajout : 15/01/2008
Posté par casy [Liste]
DateMAJ : 16/01/2008 
Public Function CVTRomDec(ByVal valeur As String) As Long
  Dim sum as Long = 0
  Dim incr as Long = 0
  Dim decr As Long = 0
  If String.IsNullOrEmpty(valeur) Then Return 0
  
  For i As Integer = valeur.Length - 1 To 0 Step  -1
    Select Case valeur.Substring(i, 1)
      Case "I"
        incr = 1
      Case "V"
        incr = 5
        If (i > 1) AndAlso valeur.Substring(i - 1, 1) = "I" Then decr = 1
      Case "X"
        incr = 10
        If (i > 1) AndAlso valeur.Substring(i -  1, 1) = "I" Then decr = 1
        If (i > 1) AndAlso valeur.Substring(i -  1, 1) = "V" Then decr = 5
      Case "L"
        incr = 50
        If (i > 1) AndAlso valeur.Substring(i -  1, 1) = "I" Then decr = 1
        If (i > 1) AndAlso valeur.Substring(i -  1, 1) = "V" Then decr = 5
        If (i > 1) AndAlso valeur.Substring(i -  1, 1) = "X" Then decr = 10
      Case "C"
        incr = 100
        If (i > 1) AndAlso valeur.Substring(i -  1, 1) = "I" Then decr = 1
        If (i > 1) AndAlso valeur.Substring(i -  1, 1) = "V" Then decr = 5
        If (i > 1) AndAlso valeur.Substring(i -  1, 1) = "X" Then decr = 10
        If (i > 1) AndAlso valeur.Substring(i -  1, 1) = "L" Then decr = 50
      Case "D"
        incr = 500
        If (i > 1) AndAlso valeur.Substring(i -  1, 1) = "I" Then decr = 1
        If (i > 1) AndAlso valeur.Substring(i -  1, 1) = "V" Then decr = 5
        If (i > 1) AndAlso valeur.Substring(i -  1, 1) = "X" Then decr = 10
        If (i > 1) AndAlso valeur.Substring(i -  1, 1) = "L" Then decr = 50
        If (i > 1) AndAlso valeur.Substring(i -  1, 1) = "C" Then decr = 100
      Case "M"
        incr = 1000
        If (i > 1) AndAlso valeur.Substring(i -  1, 1) = "I" Then decr = 1
        If (i > 1) AndAlso valeur.Substring(i -  1, 1) = "V" Then decr = 5
        If (i > 1) AndAlso valeur.Substring(i -  1, 1) = "X" Then decr = 10
        If (i > 1) AndAlso valeur.Substring(i -  1, 1) = "L" Then decr = 50
        If (i > 1) AndAlso valeur.Substring(i -  1, 1) = "C" Then decr = 100
        If (i > 1) AndAlso valeur.Substring(i -  1, 1) = "D" Then decr = 500
      Case Else
        Return 0
    End Select
    
    sum += incr
    If decr <> 0 Then
      sum -= decr
      i -= 1
    End If

Snippets en rapport avec : Convertion, Romain

04/03/2007 - Convertion toutes données vers chaine representation binaire

17/09/2006 - Convertion de chaine ANSI>ASCII et ASCII>ANSI



Codes sources en rapport avec : Convertion, Romain

{C / C++ / C++.NET} CONVERTION PS EN NOIR ET BLANC
Petit executable qui converti une liste de fichiers PostScript en noir et Blanc, ne converti que les...

{JAVA / J2EE} VERSION JAVA DE : ROMANUTILS, TOUT POUR CONVERTIR LES CHIFFRES ROMAINS VERS LES ENTIERS ET INVERSEMENT
Rapide portage de l'excellente source Delphi disponible à http://www.delphifr.com/code.aspx?ID=344...

{Delphi} CONVERTION D'UNE CHAINE EN TDATE
converti une chaine de caractère en TDate, comme StrToDate, mais fonctionne un peu comme dans Access...

{C / C++ / C++.NET} CONVERTIR CHEMIN RELATIF EN CHEMIN ABSOLUE (POUR DISQUE DUR)
ce code est un complement de l'utilisation de GetFullPathName() qui necessite un fichier existant ...

{PHP} CLASS DE COULEUR
Suite à un commentaire interessant de Coucou747 sur la source "PHP5-CLASSE-CONVERSION-RGB-HEXA", j'a...

{PHP} CONVERTION D'UN FICHIER GEDCOM (GÉNÉALOGIQUE) EN CALENDRIER CSV POUR OUTLOOK
NOUVEAU : créer une liste .ldif des adresses mail de votre arbre généalogique, pour thunderbird. ...

{PHP} FONCTION DE CONVERSION D'UNE CHAINE DE CARACTÈRE VERS UN TYPAGE UNIX
Bonjour, Alors cette fonction permet de convertir n'importe quelle chaine de caractère en une équiv...

{Visual Basic, VB6, VB.NET, VB 2005} RTF TO XHTML (BALISES P, H3, STRONG, EM)
Voilà j'ai eu besoin de faire ça alors voici le code. Je ne gère que les caractères paragraphe, gra...

{C# / C#.NET} CONVERTIR UN OBJET EN DATATABLE ET VICE-VERSA
Lorsque l'on travaille avec les WebServices, on est "presque" obligé de passer par les DataSet pour ...

{Delphi} CONVERTISSEUR
c'est mon 1er code cette source permet de convertir des nombres en leur valeur en toutes lettres. ...