Termin vorher ansagen :)

[Red_Wraith]

Hi !

Ich will einen ganz normalen Terminreminder bauen, nur will ich, dass dieser zum Beispiel 3 Tage vorher schon erinnert.

Bin bisher soweit gekommten:

Delphi-Quellcode:

procedure TForm1.TestbuttonClick(Sender: TObject);
var
Datum: String;

begin
   If StrToDate(Datum) = Now then
   begin
      ShowMessage('Reminder');
   end;
end;

Jetzt will ich aber, dass der nicht erst Now anspringt, sondern 2 tage vor Now

[alcaeus]

Hi Red_Wraith,

Delphi-Quellcode:

procedure TForm1.TestbuttonClick(Sender: TObject);
var
Datum: String;

begin
   If StrToDate(Datum) = Now+2 then
   begin
      ShowMessage('Reminder');
   end;
end;

Greetz
alcaeus

[Matze]

Zitat von alcaeus:

If StrToDate(Datum) = Now+2 then...

Sicher, dass es "plus 2" ist, ich hätte auch "minus 2" getippt.

[CReber]

Explizit genommen so Spart Platz

Delphi-Quellcode:

procedure TForm1.TestbuttonClick(Sender: TObject); 
  var Datum : string; 
begin 
   if StrToDate(Datum) = DateOf(Now-2) then 
     ShowMessage('Reminder'); 
end;

[Steve]

Hi,

Trunc(now-2) bzw DateOf(Now-2), sonst wirds nur um Mitternacht stimmen, weil die Zeitkomponente noch im TDateTime-Wert enthalten wäre...

Gruß
Stephan

[Red_Wraith]

Danke schonmal...

Ein Problem hab ich aber noch.
Der Code so funktioniert nicht, also hab ich ihn mal darauf vereinfacht:

Delphi-Quellcode:

  If DateTimePicker1.Date = Now then
  begin
  ShowMessage('Remind Me !');
  end;

Allerdings funktioniert das nicht, obwogl die beiden wohl dasselbe Datum haben.
Kann es sein, dass Now nach Datum und Zeit checked ? Da stand es ist ein TDateTime...

Gibts ne Möglichkeit, wie ich nur nach dem Datum checke ?

[alcaeus]

Hi Red_Wraith,

du könntest es so machen:

Delphi-Quellcode:

if Trunc(DateTimePicker1.Date) = Trunc(Now) then
begin
  ShowMessage('Remind Me !');
end;

Erklärung: Trunc schneidet alles nach dem Komma ab, was bei TDateTime die Zeitangabe ist.

Greetz
alcaeus

[Red_Wraith]

aah danke, so funktionierts

[Red_Wraith]

Das Spiel mit dem Datum geht weiter... Und langsam wirds peinlich...


Ich muss das Datum aus einer Datenbank mit der If Procedure von vorhin vergleichen.

Benutzte eine ADOQuery und einen DBGrid.

Habs mit For i := 0 to ADOQuery1.IndexFieldCount -1 do versucht, bin dann aber nicht weitergekommen.

ihrgendeiner ne idee ? Muss das Feld Datum komplett mit Trunc(Now) vergleichen...

[Chris1986]

Hi,
mit ADOQuery kenn ich mich nicht genau aus. Aber eine DB durschläuft/durchsucht man mit einer Query-Komponente eigentlich immer so: (wenn man die Abfrage nicht mit SQL löst)

Delphi-Quellcode:

Query.first
while not Query.eof do
begin
  if Query.fieldbyname('deinZeitfeld').AsDateTime = now //etc.
    then . . .;
  Query.next;
end;

Aber das hat ja jetzt nichts mehr mit deiner eigentlichen Frage zu tun. Mach besser für jede Frage einen neuen Thread auf, dann kann dir schneller geholfen werden.

MfG
Christian