Public Function ArabicDigitToRoman( _ ByVal vDigit As Variant _ , ByVal vPowerOfTen As Variant _ ) As Variant
ArabicDigitToRoman(1, 0) = "I" ArabicDigitToRoman(3, 0) = "III" ArabicDigitToRoman(6, 0) = "VI"See also:
ArabicToRoman Function RomanToArabic Function ROMAN Function (Microsoft Excel)Note: In the Roman numeral system, a line across the top of the letter means multiply by 1,000. Since there is no standard computer character for these Roman numerals, this function returns the lower-case version of the character. Upper-case letters have the standard translations (i.e. I = 1, V = 5, X = 10, etc.) and lower-case letters represent the corresponding value times 1,000 (i.e. v = 5,000, x = 10,000, etc.). Any Roman number greater than or equal to 4,000 will contain at least one of these lower-case letters.
vDigit: Value of the specific digit for which the Roman numeral equivalent will be returned. Function returns Null if vDigit is Null or cannot be fixed up to a number.
Function returns Null if vDigit is not between 0 and 9.
vPowerOfTen: Power of ten times which vDigit is multiplied. Also, the position - 1 of the digit within the Arabic number when counting from the end.
Function returns Null if vPowerOfTen is not between 0 and 6.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.