Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Capturar fecha larga. (https://www.clubdelphi.com/foros/showthread.php?t=69966)

Er0s 22-09-2010 03:10:14

Capturar fecha larga.
 
Buenasss!!!

Necesito capturar fecha del sistema en formato largo (miercoles, 22 de septiembre del 2010) y almacenarlo en un DBedit.

He probado el TtimeDatePicker pero o no se usarlo o solo me captura la fecha y hora en el momento en que lo inserte en el Form.

Gracias

bosster_018 22-09-2010 03:33:36

En este enlace se ha dado una respuesta que te puede servir...

cambiar formato de la fecha

Puedes revisarlo....

Resumiendo... La solución está en cambiar un poco el código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
   fecha: String;
begin
   fecha:= FormatDateTime('dddddd', Now);
   ShowMessage(fecha);
end;

Cita:

Donde la explicación dice que:
dddddd = Fecha en formato extendido (miércoles, 20 de junio de 2007)
Suerte!

Er0s 22-09-2010 03:58:29

ok esto rula.... Gracias

Caral 22-09-2010 04:06:19

Hola
No se que es lo que quieres.
El codigo anterior esta interesante, pero tiene sus bemoles.
Esto define la fecha mas adecuadamente:
Código Delphi [-]
var
   fecha: String;
begin
   ShortDateFormat := 'dd" de "mmmm" de "yyyy';
   fecha:= DateToStr(Now);
   ShowMessage(fecha);
end;
Por otro lado:
No creo la necesidad de hacer el cambio de string a date si la fecha se genera de un dato optenido de la bd.
Saludos

bosster_018 22-09-2010 06:06:22

Caral tiene razón, pues mejor sería que le des formato tú mismo como te dió el ejemplo el amigo Caral...
(Puedes revisar el link que te dí, ahí está la información más completa)

Con relación de convertir la fecha a string, era sólo como ejemplo para mostrarlo en un Showmessage... :D...

No sé porque, me gustan los Showmessage :p :o :rolleyes:

Suerte!


La franja horaria es GMT +2. Ahora son las 12:44:21.

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