Convertir fecha con formato sql a algo legible

[Besto]

La función que tienes que usar es:

edit.text := DateToStr(UnixToDateTime(tabla.FieldByName('Fecha').value));

Para hacer el proceso contrario, es decir guardar en una tabla la fecha en formato Unix el proceso seria:

tabla.FieldbyName('Fecha').AsInteger := DateTimeToUnix(StrToDate(edit.Text));


Para obtener la fecha correcta desde sql seria:

select from_UnixTime(fecha,"%d/%m/%Y") as fec ...

[Delphitest]

Veo que el foro sigue con la misma eficacia que antes gracias Besto.

Lo de las funciones no acabo de entenderlo pese a mi cabezonería.

El dato que necesito convertir, para simplificarlo, no hace falta sacarlo de la tabla, me basta con escribirlo en un edit a mano. Solo necesito adaptar lo que me dices para que me diga la fecha normal pero no doy con ello.

Os pongo el simple codigo que tengo hasta ahora (es realmente simple como veis):

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    procedure Edit1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;

implementation
{$R *.dfm}
procedure TForm1.Edit1Change(Sender: TObject);
begin
  label4.Caption := 'Aqui la fecha con el formato legible';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  application.Terminate;
end;
end.

Dentro de label4 es donde necesito poner la fecha convertida que introduzco en edit1 (he optado por que ese calculo se haga en cuanto cambie el contenido de edit1 aunque no me importa poner un botón si es mas cómodo)

[Besto]

Si no he entendido mal la fecha en formato numérico la tienes en edit1 y quieres que en label4 aparezca en formato fecha. La funcion que tienes que aplicar sería:

label4.caption := DateToStr(UnixToDateTime(edit1.text));

[Delphitest]

Gracias de nuevo Besto,

eso es lo que quiero hacer, si.

Lo que me indicas es la solución pero me da un error indicando (mas o menos lo entiendo así) que UnixToDateTime no está declarada.

Por eso me referia al tema de las funciones, por si hay que hacer algo mas.

(lo siento, supongo que es una pregunta un poco tonta pero no se que hay que hacer)

[Delphitest]

Lo he medio solucionado dandole vueltas con otra función que he visto buscando en el foro. Os lo pongo por si le sirve a alguien:

procedure TForm1.Edit1Change(Sender: TObject);
var
dias : double;
begin
  dias := strtofloat(edit1.text)/86400;
  label4.caption := datetostr(EncodeDate(1970,1,1)+dias);
end;

No lo tengo al 100% como yo quería ya que ademas de la fecha quiero que me ponga hh:mm , sigo buscando ...