datum ermitteln

[Delphi-Phil]

Hallo zusammen,

ich möchte gerne ein Programm schreiben, mir dem Ich jeden Tag aufs neue angezeigt bekomme werde heute Geburtstag hat.

Die daten kommen aus einer ACT! Datenbank, ist ein SQL Server. Ich steuer den SQL Server mit ADO an.

Wie kann ich das Datum des heutigen Tages auslesen??

Wie würdet Ihr vorgehen?

Das Teil muss jetzt auch noch als Dienst laufen!

Und unten rechts in der Infoleiste!

[grenzgaenger]

date

[DeddyH]

Zitat von Delphi-Phil:

Wie kann ich das Datum des heutigen Tages auslesen??

Mit der Funktion Date(). Leider kenne ich ACT! jetzt nicht, sonst würde ich den Vergleich nicht auf Delphi-Ebene machen, sondern mir gleich eine entsprechende SQL-Abfrage zusammenbauen.

[BullsEye]

Label1.Caption := DateToStr(date); Und du bekommst das Datum von heute

Label1.Caption := TimeToStr(time); Und du bekommst die Uhrzeit. Allerdings nur wenn die Systemuhrzeit richtig eingestellt ist!

Zitat:

Und unten rechts in der Infoleiste!

CoolTrayIcon

[Delphi-Phil]

wie muss denn der var typ sein, wenn ich es so machen will:

Delphi-Quellcode:

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

[mkinzler]

Ich würde die Variable nicht Date nennen!

[DeddyH]

Und Du brauchst eine Variable vom Typ TDate.

[mkinzler]

Warum DateToStr() ergibt doch einen String?

[Delphi-Phil]

ja muss es denn ein Strig sein oder nicht??

wie muss es denn sein?

ich möchte jetzt erstmal nur zum testen das Datum von heute auf einem label ausgeben!

[mkinzler]

Dann kannst du dafür auf eine Variable verzichten:
Label1.Caption := DateToStr(date);