convertir una fecha dd/mm/aaaa en literal

[hochkofler]

Hola
Un saludo desde Bolivia, le pido ayuda para poder convertir un tipo de datos date del campo fecha de mi tabla alumnos con sql, que esta en el formato dd/mm/aaaa, a forma literal para poder imprimirlo mediante quick report, por ejemplo si tengo el dato "02/10/1970", quiero convertirlo en literal, seria "dos de octubre de mil novecientos seteinta" e imprimirlo en literal con delphy.
espero su pronta respuesta
bendiciones

[Casimiro Notevi]

Mira la función FormatDateTime

ejemplo:

showmessage( FormatDateTime('ddd dd/mm/yyyy hh:nn:ss', now) );

[Casimiro Notevi]

Perdón, si quieres que te escriba en letras sigue este hilo (http://www.clubdelphi.com/foros/showthread.php?t=16603&highlight=numero+letras), te será de utilidad.

[Lepe]

Creo que tendrás que hacerlo en 2 pasos:

- Por un lado usa el formatdatetime (' d de mmm de yyyy', now);

Con eso obtienes: 2 de marzo de 2070

- Despues usa el Aletras, para pasar el día y el año, enlace patrocinado por Casimiro ;).

saludos

[hochkofler]

Hola gracias, por las respuestas, pero les pido que puedan ayudarmne en mostrar una fecha totalmente en literal mediante un quick report, por ejemplo "dos de octubre de dos mil cinco". Espero su prnta respuesta
saludos

[Lepe]

Usa el evento BeforePrint del QRLabel o del QRDBText para hacer esos calculos.

saludos

[hochkofler]

Disculpen, como puedo instalar o lograr que funcione el componente Atexto 2, una guia para intalar este componente y utilizarlo paso a paso por favor, no logro hacerlo funcionar.Shalom

[Lepe]

En c:\archivos de programa\borlandX

- Crea una carpeta llamada "Mis componentes"
- Ahora copia el archivo ATexto dentro.

Añadimos esa carpeta a la ruta donde delphi busca los .pas.

Con delphi abierto:

Options --> Enviroment Options --> Directories:
- En library Path, busca la carpeta "Mis componentes" y añadela.

Acepta los cambios y ahora vamos a instalar el ATexto:

Menú Component --> install component--> busca el archivo Atexto. Pulsa Ok
- Se abre una ventana con los componentes instalados por el usuario, el Package dclrusr.dpk

En esa ventana, dale a compile
En esa ventana, dale a install

Listo, pero ... ¿donde se ha instalado?, Abre el archivo Atexto, allí verás un procedimiento que se llama Register, donde pone la pestaña donde se instala, y el nombre del componente.

¿Como se usa?
- Pon el componente en un form.
- Ajusta las propiedades del componente con el Inspector de Objetos.
- En tiempo de ejecución, asigna la propiedad número, y automaticamente en la propiedad Atexto1.AsString y en Atexto1.Centimos tienes el resultado.


saludos.

[Casimiro Notevi]

Lepe ha dado una explicación de lujo :eek:

[Lepe]

Pues lo hice de memoria, excepto el uso de Atexto, que no lo había utilizado antes.

Si es de lujo, es que lo has verificado paso por paso, espero que así sea :p

saludos ;)