obtener el dia,mes y año

[noe]

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.

Gracias
Atte. Noe

[roman]

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

// Saludos

[noe]

Muchas gracias Roman!, era justo lo que necesitaba.

En verdad te agradezco tu ayuda.

Saludos.

[sercornejov]

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:

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