Показать сообщение отдельно
  #4 (permalink)  
Старый 04.12.2011, 19:16
Аватар для nerv_
junior
Отправить личное сообщение для nerv_ Посмотреть профиль Найти все сообщения от nerv_
 
Регистрация: 29.11.2011
Сообщений: 3,924

Вот на VBA я писал 12/09/2011. Понимаю, что не в тему , но зато переводит любые (в пределах разумного) римские числа. Сейчас попробую на js перевести...
Public Function RomanToArabic2(ByVal RStr As String) As Long
Dim i%, h%, j As Byte
RStr = UCase(RStr)
For j = 1 To Len(RStr)
    i = InStr("IVXLCDM", Mid(RStr, j, 1))
    i = IIf(i, Choose(i, 1, 5, 10, 50, 100, 500, 1000), 0)
    h = IIf(h < i, i - h * 2, i): RomanToArabic2 = RomanToArabic2 + h
Next
End Function

оу... Не доглядел. Нужно наоборот) Но все равно мне интересно для изучения будет попробовать)
__________________
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

Последний раз редактировалось nerv_, 04.12.2011 в 21:14.
Ответить с цитированием