Foros Club Delphi - obtener el dia,mes y año

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Firebird e Interbase (https://www.clubdelphi.com/foros/forumdisplay.php?f=19)

- - obtener el dia,mes y año (https://www.clubdelphi.com/foros/showthread.php?t=18513)

noe	14-02-2005 22:04:36

obtener el dia,mes y año

Saludos a todos en el foro de este club.

Bueno mi pregunta es la siguiente:

Como puedo hacer para obtener de la fecha que esta en un edit, el dia, el mes y el año, y pasar el dia a un edit, el mes a otro y el año al restante.

Teniendo en cuenta que el formato que tiene la fecha que esta dentro del edit es: dd/mm/aaaa

Bueno, les agradezco sus sugerencias y espero me puedan ayudar.
:confused:
Gracias
Atte. Noe
;)

roman

14-02-2005 22:37:19

Copy(Edit.Text, 1, 2) -> día
Copy(Edit.Text, 4, 2) -> mes
Copy(Edit.Text, 7, 4) -> año

// Saludos

noe	14-02-2005 23:29:49

Muchas gracias Roman!, era justo lo que necesitaba.

En verdad te agradezco tu ayuda.

Saludos. ;)

sercornejov

17-02-2005 07:49:22

Hola.

la solución de ROMAN esta bien para ese caso, pero si la fecha llega a ser "1/1/2005" te puedes complicar (Claro el formato dice dd/mm/yyyy) pero como no se sabe de donde viene...

si implementas esto:

Código:

procedure TForm1.ButtonClick(Sender: TObject);

var

  fecha:TDate;

  aNo, Mes, Dia:Word;

begin

  fecha:=StrToDate(edit1.text);

  DecodeDate(fecha, aNo, Mes, Dia);

  Label1.Caption := 'Dia ' + IntToStr(Dia) + ' del Mes '

    + IntToStr(Mes) + ' del Año ' + IntToStr(aNo);

end;

debes colocar sysUtils en el uses del Form

Saludos desde Colombia

La franja horaria es GMT +2. Ahora son las 05:09:48.