Re: datum ermitteln
Delphi-Quellcode:
[DCC Fehler] Unit1.pas(37): E2010 Inkompatible Typen: 'TDate' und 'string'
procedure TForm1.Button1Click(Sender: TObject);
var datum_heute : TDate; begin datum_heute:= DateToStr(date); Label1.Caption := date; end; [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 |
Re: datum ermitteln
ja aber später brauche ich es in einer variable!
edit: z.B.: In einer SQL Abfrage! |
Re: datum ermitteln
Für den Datumswert oder das Datum als String?
|
Re: datum ermitteln
Delphi-Quellcode:
var heute: TDate;
begin heute := date; Label1.Caption := FormatDateTime('dd.mm.yyyy',heute); end; |
Re: datum ermitteln
ich muss später eine sql abfrage machen die in etwa so aussehen wird:
SQL-Code:
select vorname, nachname from contacts where birthdy = datum_heute order by nachname
|
Re: datum ermitteln
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 ;) |
Re: datum ermitteln
@BullsEye: Du hast den thread nicht verfolgt, oder?
|
Re: datum ermitteln
Er braucht keinen String, sondern das Datum (genauer gesagt nur Tag und Monat).
|
Re: datum ermitteln
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:
|
Re: datum ermitteln
nein nicht ganz,
es kommt das hier: Zitat:
mein Code sieht so aus:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var heute: TDate; begin heute := date; ADOQuery1.Parameters.ParamByName(heute); end;
SQL-Code:
select *from Kontakt where Birth Date = :heute
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:32 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz