datum ermitteln

[Delphi-Phil]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
datum_heute : TDate;
begin
datum_heute:= DateToStr(date);
Label1.Caption := date;
end;

[DCC Fehler] Unit1.pas(37): E2010 Inkompatible Typen: 'TDate' und 'string'
[DCC Fehler] Unit1.pas(38): E2010 Inkompatible Typen: 'string' und 'TDateTime'
[DCC Fehler] Project1.dpr(5): F2063 Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

[Delphi-Phil]

ja aber später brauche ich es in einer variable!

edit: z.B.: In einer SQL Abfrage!

[mkinzler]

Für den Datumswert oder das Datum als String?

[DeddyH]

Delphi-Quellcode:

var heute: TDate;
begin
  heute := date;
  Label1.Caption := FormatDateTime('dd.mm.yyyy',heute);
end;

[Delphi-Phil]

ich muss später eine sql abfrage machen die in etwa so aussehen wird:

select vorname, nachname from contacts where birthdy = datum_heute order by nachname

[BullsEye]

hä?

Ist doch ganz Easy, du brauchst da keine Variable für. Hätte ich sonst doch dazugeschrieben ^^

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Caption := DateToStr(date);
end;

So, und der gibt das Datum aus

[mkinzler]

@BullsEye: Du hast den thread nicht verfolgt, oder?

[DeddyH]

Er braucht keinen String, sondern das Datum (genauer gesagt nur Tag und Monat).

[BullsEye]

Oh, sry hab die letzten Threads nicht wirklich gelesen

Delphi-Quellcode:

var heute: TDate;

...

procedure TForm1.Button1Click(Sender: TObject);
begin
  heute := date;
  Label5.Caption := FormatDateTime('dd.mm',heute);
end;

Zitat:

select vorname, nachname from contacts where birthdy = heute order by nachname

So müsste das dann doch gehen?

[Delphi-Phil]

nein nicht ganz,

es kommt das hier:

Zitat:

[DCC Fehler] Unit1.pas(48): E2010 Inkompatible Typen: 'WideString' und 'TDate'
[DCC Fehler] Project1.dpr(5): F2063 Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

mein Code sieht so aus:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var heute: TDate;
begin
heute := date;
ADOQuery1.Parameters.ParamByName(heute);
end;

select *from Kontakt where Birth Date = :heute