| |
Римские цифры |
|
| |
Автор кода: Игорь
К сожалению, некоторые цифры общепринято видеть римскими, например, век не 21 а XXI.
В Excel есть функция, выполняющая преобразование арабских цифр в римские, но ради 2 - 3 цифр подключать к проекту довольно большую библиотеку не стоит. Поборовши лень (частично) написал преобразование цифр до 50. На практике этого более чем достаточно, а кому мало, может сам дописать. С основными шрифтами получается неплохо.
Function RimDigital(intN As Integer) As String
Select Case intN
Case 1: RimDigital = "I"
Case 2: RimDigital = "II"
Case 3: RimDigital = "III"
Case 4: RimDigital = "IV"
Case 5: RimDigital = "V"
Case 6: RimDigital = "VI"
Case 7: RimDigital = "VII"
Case 8: RimDigital = "VIII"
Case 9: RimDigital = "IX"
Case 10: RimDigital = "X"
Case 11: RimDigital = "XI"
Case 12: RimDigital = "XII"
Case 13: RimDigital = "XIII"
Case 14: RimDigital = "XIV"
Case 15: RimDigital = "XV"
Case 16: RimDigital = "XVI"
Case 17: RimDigital = "XVII"
Case 18: RimDigital = "XVIII"
Case 19: RimDigital = "XIX"
Case 20: RimDigital = "XX"
Case 21: RimDigital = "XXI"
Case 22: RimDigital = "XXII"
Case 23: RimDigital = "XXIII"
Case 24: RimDigital = "XXIV"
Case 25: RimDigital = "XXV"
Case 26: RimDigital = "XXVI"
Case 27: RimDigital = "XXVII"
Case 28: RimDigital = "XXVIII"
Case 29: RimDigital = "XXIX"
Case 30: RimDigital = "XXX"
Case 31: RimDigital = "XXXI"
Case 32: RimDigital = "XXXII"
Case 33: RimDigital = "XXXIII"
Case 34: RimDigital = "XXXIV"
Case 35: RimDigital = "XXXV"
Case 36: RimDigital = "XXXVI"
Case 37: RimDigital = "XXXVII"
Case 38: RimDigital = "XXXVIII"
Case 39: RimDigital = "XXXIX"
Case 40: RimDigital = "XL"
Case 41: RimDigital = "XLI"
Case 42: RimDigital = "XLII"
Case 43: RimDigital = "XLIII"
Case 44: RimDigital = "XLIV"
Case 45: RimDigital = "XLV"
Case 46: RimDigital = "XLVI"
Case 47: RimDigital = "XLVII"
Case 48: RimDigital = "XLVIII"
Case 49: RimDigital = "XLIX"
Case 50: RimDigital = "L"
Case Else: RimDigital = intN
End Select
End Function
|
|
| |
|
|
|
|