Ver Mensaje Individual
  #4  
Antiguo 18-09-2006
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.114
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Cita:
Empezado por Troi
Buscando en google, me encontre con esto:
http://delphi.garcia-cuervo.com/Recursos.htm

No te aseguro que sea la misma version.
Sí, justamente, ese es el componente y la versión que decía. Muchas gracias Troi, busqué también por Google, pero, no lo encontré...

Respecto de la función que propones Marcos, sí, la había visto en los Foros y, no diré yo que esté mal.

Miré por el componente ATexto 2.0 porque sabía que era muy curioso. Alguna vez incluso utilizé alguno similar, pero, no era ATexto.

Código Delphi [-]
unit ATexto;
{
-------------------------------------------------------------------------
ENTRADA : Número (Currency o Extended)
SALIDA  : Cadena de texto que representa el número
EJEMPLO : 38 -> treinta y ocho
-------------------------------------------------------------------------

FECHA   : 07 -abril-1998   [17:03]
VERSIÓN : 1.2
AUTOR   : Antoni Aloy López
E-MAIL  : tonialoy @ yahoo.com
-------------------------------------------------------------
FECHA   : 09 -noviembre-2000   [21:34]
VERSIÓN : 2.0
AUTOR   : Savierhs López Arteaga
E-MAIL  : savierhs @ hotmail.com

-------------------------------------------------------------------------
HISTORIA:

Versión 0.99 -> Sólo funciona hasta 99 millones

versión 1.0  -> Se amplía el funcionamiento a las centenas de millón
        Se corrige un error en las centenas de millón que
        hacía que saliesen en femenino.

versión 1.1  -> Se corrige un error que hacía que las decenas y centenas
        de millon salgan en femenino cuando acaban en uno.

versión 1.2  -> Se actualiza el componente para que admita valores decimales
        y dé la salida en euros.
        Se ha añadido una opción para determinar el separador de
        centimos, y una nueva propiedad que nos da los céntimos
        Se corrigen algunos acentos.
        ATENCIÓN: Con esta versión cambio el e-mail de consultas a tonialoy @ yahoo.com

versión 2.0  -> Ahora traduce valores menores a 10 Trillones.
                Se optimizan todas las rutinas de conversión de numeros.
                Se reemplazan algunas otras rutinas.
                Se agrega una propiedad que permite indicar el tipo de
                moneda en la salida Ej: euros o pesetas.
                Se agrega una propiedad que permite indicar el tipo de
                centimos o centavos en la salida Ej: ctvs. o centimos.
                Se renombra la propiedad "Euros" por "Masculino", la
                cual decide sobre las terminaciones de la descripción.
                Se corrigen otros acentos.
                NOTA: Tambien puede enviar cualquier consulta al
                      siguiente E-Mail: savierhs @ hotmail.com

--------------------------------------------------------------------------
Este componente se pone a dominio público, aunque me reservo el derecho
sobre su autoría. Es decir, puede utilizarse y modificarse libremente
siempre y cuando se me cite como autor del componente original.

Como siempre, no existen garantías de que el componente funcione en todas
las circunstancias, úsalo a tu cuenta y riesgo.

Comentarios, albanzas y agradecimiento enterno,... serán bien recibidos.
--------------------------------------------------------------------------
ATENCIÓN:
  Si ya tiene instalado este componente, desinstalelo antes de colocar
  la nueva versión
--------------------------------------------------------------------------
}

Bueno, muchas gracias a los dos, ahora a traducirlo a PHP... ¡qué pronto lo he dicho!
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita