Codigo Fuente

/* ------------------------------------------------------- */
/* -- 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;
}