Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)
-   -   convertir una fecha dd/mm/aaaa en literal (https://www.clubdelphi.com/foros/showthread.php?t=27096)

hochkofler 11-11-2005 12:25:47

convertir una fecha dd/mm/aaaa en literal
 
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 11-11-2005 13:06:59

Mira la función FormatDateTime

ejemplo:
Código:

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

Casimiro Notevi 11-11-2005 13:09:48

Perdón, si quieres que te escriba en letras sigue este hilo, te será de utilidad.

Lepe 11-11-2005 15:12:56

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 12-11-2005 18:09:21

y como muestro una fecha en forma totalmente literal
 
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 12-11-2005 18:16:12

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

saludos

hochkofler 14-11-2005 10:53:41

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 14-11-2005 15:42:05

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
  1. En esa ventana, dale a compile
  2. 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 14-11-2005 19:39:02

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

Lepe 15-11-2005 16:37:47

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 ;)


La franja horaria es GMT +2. Ahora son las 08:38:23.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi