Conversion Nombre Arabe en Nombre Romain

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 022 fois - Téléchargée 7 fois

Contenu du snippet

Public Function ToRoman(ByVal vnNumber As Integer) As String
    Do While vnNumber >= 1000
        ToRoman = ToRoman & "M"
        vnNumber = vnNumber - 1000
    Loop
    If vnNumber >= 900 Then
        ToRoman = ToRoman & "CM"
        vnNumber = vnNumber - 900
    End If
    If vnNumber >= 500 Then
        ToRoman = ToRoman & "D"
        vnNumber = vnNumber - 500
    ElseIf vnNumber >= 400 Then
        ToRoman = ToRoman & "CD"
        vnNumber = vnNumber - 400
    End If
    Do While vnNumber >= 100
        ToRoman = ToRoman & "C"
        vnNumber = vnNumber - 100
    Loop
    If vnNumber >= 90 Then
        ToRoman = ToRoman & "XC"
        vnNumber = vnNumber - 90
    End If
    If vnNumber >= 50 Then
        ToRoman = ToRoman & "L"
        vnNumber = vnNumber - 50
    ElseIf vnNumber >= 40 Then
        ToRoman = ToRoman & "XL"
        vnNumber = vnNumber - 40
    End If
    Do While vnNumber >= 10
        ToRoman = ToRoman & "X"
        vnNumber = vnNumber - 10
    Loop
    If vnNumber = 9 Then
        ToRoman = ToRoman & "IX"
    Else
        If vnNumber >= 5 Then
            ToRoman = ToRoman & "V"
            vnNumber = vnNumber - 5
        End If
        If vnNumber = 4 Then
            ToRoman = ToRoman & "IV"
        Else
            Do While vnNumber >= 1
                ToRoman = ToRoman & "I"
                vnNumber = vnNumber - 1
            Loop
        End If
    End If
End Function By Renfield

Compatibilité : VB6, VBA

Disponible dans d'autres langages :

A voir également

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.