romannumerals.txt

一个把十进制数转换成罗马数字的例子

***************************************************************
*  Go to Dragon's VB Code Corner for more useful sourcecode:  *
*  http://personal.inet.fi/cool/dragon/vb/                    *
***************************************************************

Author: Original author unknown. Translated from C to VB by
        Adam Brinley Codd <[e-mail]>

Here you can find a function that converts integer into Roman 
numerals (I, II, III, IV ...)

Call the function like this:
   strRoman = RomanNumerals(intNumber)

intNumber can be any integer, and strRoman will contain the 
resulting string.

Put the following code in a bas module
'//*********************************//'
Public Function RomanNumerals(n As Integer) As String
    'Converts n to a roman numeral

    Dim arabic(12) As Integer, roman(12) As String
    Dim i As Integer, out As String

    arabic(0) = 1000
    arabic(1) = 900
    arabic(2) = 500
    arabic(3) = 400
    arabic(4) = 100
    arabic(5) = 90
    arabic(6) = 50
    arabic(7) = 40
    arabic(8) = 10
    arabic(9) = 9
    arabic(10) = 5
    arabic(11) = 4
    arabic(12) = 1
    roman(0) = "M"
    roman(1) = "CM"
    roman(2) = "D"
    roman(3) = "CD"
    roman(4) = "C"
    roman(5) = "XC"
    roman(6) = "L"
    roman(7) = "XL"
    roman(8) = "X"
    roman(9) = "IX"
    roman(10) = "V"
    roman(11) = "IV"
    roman(12) = "I"

    i = 0

    While n
        While n >= arabic(i)
            n = n - arabic(i)
            out = out + roman(i)
        Wend
        i = i + 1
    Wend

    RomanNumerals = out

End Function