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):
Código:
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)