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]

[mkinzler]

Was genau geht nicht?

[DeddyH]

Er hat nicht die richtige Millisekunde erwischt :mrgreen:

[Alterauge]

Variante des Typs (String) konnte nicht in
Typ (Date) konventiert werden.

Das ist die Fehlermeldung!

[mkinzler]

Zitat:

Zitat von DeddyH (Beitrag 1181844)

Er hat nicht die richtige Millisekunde erwischt :mrgreen:

Das vermute ich auch. Deshalb habe ich ja vorhin meine Zweifel geäussert. Ich würde hier nicht auf Gleichheit prüfen.

[Alterauge]

Hallo DeddyH,

wieso geht dieses?

Delphi-Quellcode:

if FormatDateTime ('hh:nn:ss', Now) = (Edit4.Text + ':00') then begin

[DeddyH]

Von welchem Typ ist denn das DB-Feld? VARCHAR?

[Alterauge]

Der Datatyp ist :Varchar(10)

Gruß Andre

[mkinzler]

Und gibt es da einen Grund dafür?

[Alterauge]

Wenn ich in der aktuellen Zeile bin,
geht es!

Befinde ich mich in einer anderen Zeile geht es nicht?

Delphi-Quellcode:

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

[mkinzler]

Liest du unsere Antworten eigentlich? Oder verstehst du sie nur nicht und ignorierst sie deshalb?

[Alterauge]

Natürlich lese ich sie!

Dann habe ich etwas übersehen oder nicht verstanden!

[mkinzler]

-Überprüfung auf Basis von verknüpften Komponenten anstatt Inhalt Datenbank
-Falscher Typ in der Datenbank
-Überprüfung auf Sekunden
-Überprüfung auf Gleichheit
-Benennung Komponenetn ( div. andere Fragen von dir)
...