_RomanToDec
Преобразует римские числа в десятичные
#Include <ConvertingNumbers.au3>
_RomanToDec ( $sRoman )
Параметры
$sRoman | Римское число |
Возвращаемое значение
Успех: | Возвращает десятичное число, @extended = 1, если символы в нижнем регистре |
Ошибка: | Возвращает -1, @error = -1, если число не соответствует формату. |
Примечания
Проверяется правильность числа, т.е. не только использование символов но и порядок. Только каноническое написание, 99 пишется как XCIX, а не IC. Символ не может повторятся более 3-х раз (XXX), не допускается повтора символов V, L, D, максимальное число 3999.См. также
_DecToRomanПример
; AZJIO
; http://www.autoitscript.com/forum/topic/141984-num1-to-num2/#entry999132
#include <ConvertingNumbers.au3>
$sText = 'DCCCLXXXVIII = ' & _RomanToDec('DCCCLXXXVIII') & @CRLF
$sText &= 'XIX = ' & _RomanToDec('XIX') & @CRLF
$sText &= 'MMXII = ' & _RomanToDec('MMXII')
MsgBox(0, 'Римские числа', $sText)