Visual Basic, .NET, ASP, VBA, VBScript
 
  Библиотека кодов  
  Переменные, массивы, числа  
     
  Римские цифры  
 

Автор кода: Игорь

    К сожалению, некоторые цифры общепринято видеть римскими, например, век не 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
 
     
  VBNet online (всего: 51566)  
 

Логин:

Пароль:

Регистрация, забыли пароль?


В чате сейчас человек
 
     
  VBNet рекомендует  
   
     
  Лучшие материалы  
 
ActiveX контролы (112)
Hitman74_Library (36119)
WindowsXPControls (20739)
FlexGridPlus (19374)
DSMAniGifControl (18295)
FreeButton (15157)
Примеры кода (546)
Parol (18027)
Passworder (9299)
Screen saver (7654)
Kerish AI (5817)
Folder_L (5768)
Статьи по VB (136)
Мое второе впечатление... (11236)
VB .NET: дорога в будущее (11161)
Основы SQL (9225)
Сообщения Windows в Vi... (8788)
Классовая теория прогр... (8619)
 
     
Техническая поддержка MTW-хостинг | © Copyright 2002-2011 VBNet.RU | Пишите нам