Uhrzeitabfrage in einer Spalte im CRDBGrid

[Alterauge]

Hallo,
habe ein CRDBGrid mit der Spalte Zuordnung!
Befindet sich in der Spalte (Zuordnung) der Text 'Zeitauftrag',
soll die Spalte Zeitstempel (DBEdit6) überprüft werden.

Ist die Uhrzeit = (DBEdit6) oder später:= then begin

Hier der Quelltext: was mache ich falsch?

Delphi-Quellcode:

procedure TForm1.Timer5Timer(Sender: TObject);
begin
if MyTable1.Locate('Zuordnung','Zeitauftrag',[loCaseInsensitive]) then begin
 if FormatDateTime ('hh:nn:ss', Now) = (DBEdit6.Text + ':00') then begin
  Edit2.Text:='Test Eintrag';
   Edit3.Text:=(FormatDateTime('hh:nn:ss',now));
    MyTable1.Edit;
     DBEdit2.Text := Edit2.Text;
      DBEdit3.Text := Edit3.Text;
     MyTable1.Post;
    MyTAble1.Refresh;
  end;
 end;
end;

[FBrust]

Hallo,

Du vergleichst zwei Zeichenketten miteinander, nicht zwei Uhrzeiten.

anstelle von DBEdit6.Text ist es vermutlich sinnvoller, direkt das entsprechende Feld in der Tabelle anzusprechen, also z. B.

Delphi-Quellcode:

MyTable1.FieldbyName('DeinDatumsFeld').AsDateTime

direkt mit Now() zu vergleichen.


Gruß
Frank

[DeddyH]

Und zum Vergleichen am besten die Routinen aus DateUtils benutzen.

[Alterauge]

Hallo FBrust;
meinst du das so?

Delphi-Quellcode:

 if MyTable1.FieldbyName('Stempel').AsDateTime =(FormatDateTime('hh:nn:ss',now))then begin

[mkinzler]

Nein.

Delphi-Quellcode:

if MyTable1.FieldbyName('Stempel').Value = Now then ...

Obwohl es mir nicht sinnvoll erscheint sowas auf die Sekunde festzulegen.

[DeddyH]

Du willst eine TDateTime mit einem String vergleichen?

[edit] Markus, diese Abfrage wird mit hoher Wahrscheinlichkeit false ergeben. [/edit]

[mkinzler]

Zitat:

Zitat von DeddyH (Beitrag 1181831)

Du willst eine TDateTime mit einem String vergleichen?

Und vorher den DateTime in einen DateTime Casten.

Ein perfektes Beispiel für Lernresistenz.

[Der.Kaktus]

Zitat:

Zitat von mkinzler (Beitrag 1181832)

Zitat:

Zitat von DeddyH (Beitrag 1181831)

Du willst eine TDateTime mit einem String vergleichen?

Und vorher den DateTime in einen DateTime Casten.

Ein perfektes Beispiel für Lernresistenz.

Sehr suspekt wuerde ich sagen:(

[Alterauge]

hallo mkinzler,

geht leider nicht?

Delphi-Quellcode:

 if MyTable1.FieldbyName('Stempel').Value = Now then

[DeddyH]

Wieso wundert mich das nicht?

Zitat:

Zitat von DeddyH (Beitrag 1181831)

[edit] Markus, diese Abfrage wird mit hoher Wahrscheinlichkeit false ergeben. [/edit]