
Conversión de números romanos a decimales
PHP
Publicado el 14 de Febrero del 2002 por Administrador (718 códigos)
21.590 visualizaciones desde el 14 de Febrero del 2002
Función para convertir números romanos a decimales
/* ------------------------------------------------------- */
/* -- 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)