Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Separar fecha obtenida del sistema (https://www.clubdelphi.com/foros/showthread.php?t=53330)

muppett 18-02-2008 21:28:10

Separar fecha obtenida del sistema
 
Hola:
Se que esta instruccion es para obtener la fecha del sistema, ahora mi duda es como puedo separar el dia mes y año para poderlos utilizar en un ciclo que me permita imprimir por meses mi informacion?????

Código Delphi [-]
WriteEditLn(CRLF+FormatDateTime('"Rec " dd.mm.yy hh:mm:ss" :"', Now));




Gracias x anticipado

dec 18-02-2008 21:30:25

Hola,

Tienes funciones como "DecodeDate()", y todas las que encuentras con la unidad "DateUtils".

Caral 18-02-2008 21:42:35

Hola
Aparte de lo que Bien dice Dec.
Se puede hacer algo asi:
Código Delphi [-]
var
 Mes, dia, anio: TDate;
begin
   Mes:= Now;
   dia:= Now;
   anio:= Now;
   Edit1.Text:= FormatDateTime('mm',Mes)+' '+FormatDateTime('dd',dia)+' '+FormatDateTime('yyyy',anio) ;
end;

Todo en un edit o en varios, como quieras.
Saludos

gendelphi 18-02-2008 23:21:20

O sin necesidad de declarar 3 variables:

Código Delphi [-]
var
  fecha: TDate;
begin
   fecha:= Now;
   Edit1.Text:= FormatDateTime('mm',fecha)+' '+FormatDateTime('dd',fecha)+ ' '+FormatDateTime('yyyy',fecha) ;
end;


La franja horaria es GMT +2. Ahora son las 17:29:46.

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