Error creating feed file, please check write permissions.
Skip to content
Navegación
Increase font size Decrease font size Default font size
Estas aqui: Portada arrow tutoriales arrow php arrow Funcion para convertir numeros a numeros romanos
Funcion para convertir numeros a numeros romanos Imprimir E-Mail
Calificación usuario: / 0
MaloBueno 
martes, 08 de agosto de 2006

Funcion para convertir numeros a numeros romanos   Estas lineas de codigo consiguen convertir un numero a numeros romanos.

 

Codigo:

 


<? 
function to_roman($num) { 
if ($num < 0 || $num > 9999) { return -1; }
$r_ones = array(1=> "I", 2=>"II", 3=>"III", 4=>"IV", 5=>"V", 6=>"VI", 7=>"VII", 8=>"VIII", 
9=>"IX"); 
$r_tens = array(1=> "X", 2=>"XX", 3=>"XXX", 4=>"XL", 5=>"L", 6=>"LX", 7=>"LXX", 
8=>"LXXX", 9=>"XC"); 
$r_hund = array(1=> "C", 2=>"CC", 3=>"CCC", 4=>"CD", 5=>"D", 6=>"DC", 7=>"DCC", 
8=>"DCCC", 9=>"CM"); 
$r_thou = array(1=> "M", 2=>"MM", 3=>"MMM", 4=>"MMMM", 5=>"MMMMM", 6=>"MMMMMM", 
7=>"MMMMMMM", 8=>"MMMMMMMM", 9=>"MMMMMMMMM"); 
$ones = $num % 10; 
$tens = ($num - $ones) % 100; 
$hundreds = ($num - $tens - $ones) % 1000; 
$thou = ($num - $hundreds - $tens - $ones) % 10000; 
$tens = $tens / 10; 
$hundreds = $hundreds / 100; 
$thou = $thou / 1000; 
if ($thou) { $rnum .= $r_thou[$thou]; } 
if ($hundreds) { $rnum .= $r_hund[$hundreds]; } 
if ($tens) { $rnum .= $r_tens[$tens]; } 
if ($ones) { $rnum .= $r_ones[$ones]; } 
return $rnum; 
}
?>



Fuente: tutores.org

< Anterior   Siguiente >
Diseño Web
Recibe en tu Email las Últimas noticias y artículos publicados en la web


** En la ventana nueva debes ingresar el número de verificación

Usuarios

Usuario

Contraseña

Recordarme
¿Recuperar contraseña?
¿Quiere registrarse? Hágalo aquí

Sindicación

Webs Amigas
Mucho Grafico
Recursos Gratuitos para Webmasters
Tutoriales y Foro de Diseño
Recursos Oracle
Infected FX
Noticias Informaticas
Noticias Gadget
Intercambio de Links

Articulos para tu Web

Articulos Diseño Web

Noticias

Usuarios en Línea

Hay 105463 invitados en línea y 1 usuario en línea