Вот на 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
оу... Не доглядел. Нужно наоборот) Но все равно мне интересно для изучения будет попробовать)