
Conversión de números romanos a decimales
PHP
Publicado el 14 de Febrero del 2002 por Administrador (718 códigos)
21.708 visualizaciones desde el 14 de Febrero del 2002
Función para convertir números romanos a decimales






(2)














/* ------------------------------------------------------- *//* -- FUNCIÓN QUE CONVIERTE NUMEROS ROMANOS A DECIMALES -- *//* --------- http://www.lawebdelprogramador.com ---------- *//* --------------------------------------------------------*/function romano_decimal($var)
{$var=strtoupper($var);
$var=ereg_replace("[^IVXLCDM]","",$var);
# Definición de variables
$numeroletrasromanas=array("M"=>1000,"D"=>500,"C"=>100,"L"=>50,"X"=>10,"V"=>5,"I"=>1);
$parcialfinal=1001;for($inicio=0;$inicio<strlen($var);$inicio++)
{$parcial=substr($var,$inicio,1);
$parcial=$numeroletrasromanas[$parcial];
if($parcial<=$parcialfinal)
{$suma.="+$parcial";
}else{
$suma.="+".($parcial-(2*$parcialfinal));
} $parcialfinal=$parcial; }eval("\$suma=$suma;");
return $suma;
}
Comentarios sobre la versión: Versión 1 (2)