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