Datum vergleichen

[superstar025]

Hallo
ich möchte zwei Datum vergleichen.
Das zweite muss auf jedenfall grösser sein wie das erste.

Die Daten stehen jeweils in einem Maskedit feld mit dem Format TT.MM.JJJJ

Wie kann ich das kontrollieren

mfg
superstar025

:drunken:

[Matze]

Du kannst ein Datum so vergleichen, wie eine ganz normale Zahl. Spricht: Mit > >= <= < =


Edit: Natürlich davor mit StrToDate umwandeln.

[superstar025]

wie sieht das denn im quelltext aus?


:dp:

[himitsu]

Dieses ist auch verständlich, da die Datums/Zeit-Typen intern ja auch nur Zahlen-Typen sind, welche sich ja einfach vergleichen lassen.

Delphi-Quellcode:

  TDate = type Double;
  TDateTime = type Double;
  TTime = type TDateTime;

[Matze]

Zitat:

Zitat von superstar025

wie sieht das denn im quelltext aus?

Hmm, bisschen Eigeninitiative solltest du schon zeigen, aber ich bin ja net so:

Delphi-Quellcode:

  if StrToDate(MaskEdit2.Text) > StrToDate(MaskEdit1.Text) then
  begin
    //mach was
  end;

[superstar025]

Danke für die Arbeit

ich bin halt noch ein wenig Anfänger daher die unbekommenheit


:roll:

[superstar025]

Hallo bei mir erscheint folgender Fehlercode beim Delphicode


[Fehler] Unit2.pas(362): Operator ist auf diesen Operandentyp nicht anwendbar

Delphi-Quellcode:

procedure TForm2.MaskEdit9Exit(Sender: TObject);
begin
if      (maskedit7.Text  <> '000,000')
and     (maskedit9.Text  <> '31.12.2015')
[b]and     StrToDate(MaskEdit9.Text) > StrToDate(MaskEdit8.Text)[/b]

then
begin
button11.Enabled:=true;
end;
end;

Woran kann das liegen??

mfg superstar025
:firejump:

[Matze]

In welche zeile kommt das?

Setze mal um

Delphi-Quellcode:

StrToDate(MaskEdit9.Text) > StrToDate(MaskEdit8.Text)

Klammern

[DP-Maintenance]

Dieses Thema wurde von "Sharky" von "Datenbanken" nach "Object-Pascal / Delphi-Language" verschoben.
Scheint auf den ersten Blick nichts mit Datenbanken zu tun zu haben

[superstar025]

in der letzten

hat aber nichts gebracht das umsetzen

[superstar025]

gibt es irgendwie probleme mit zweimal and

Delphi-Quellcode:

if  StrToDate(MaskEdit9.Text) > StrToDate(MaskEdit8.Text)
and    (maskedit1.Text  <> '000,000')
and    (maskedit3.Text  <> '31.12.2015')

kann das sein????

[MarkusB]

Moin superstar025!

Delphi-Quellcode:

...
if  (StrToDate(MaskEdit9.Text) > StrToDate(MaskEdit8.Text)) // <- Klammern (wie Matze vorgeschlagen hat)
and (maskedit1.Text  <> '000,000')
and (maskedit3.Text  <> '31.12.2015')
...

Viele Grüße
Markus

:gruebel:

[alcaeus]

Hi superstar!

Zitat:

Zitat von superstar025

Delphi-Quellcode:

if  StrToDate(MaskEdit9.Text) > StrToDate(MaskEdit8.Text)
and    (maskedit1.Text  <> '000,000')
and    (maskedit3.Text  <> '31.12.2015')

Wie Markus und Matze vorgeschlagen haben, musst du Klammern setzen. Eine logische Verknüpfung (AND, OR, XOR...) haben Priorität, also würde deine Abfrage so lauten:

Delphi-Quellcode:

if  StrToDate(MaskEdit9.Text) > (StrToDate(MaskEdit8.Text)
and    (maskedit1.Text  <> '000,000')
and    (maskedit3.Text  <> '31.12.2015'))

Damit verfälscht sich dein Ergebnis komplett.
Als Grundregel kannst du dir merken, einzelne Vergleiche (wie z.B. in C, C++, php) immer in Klammern zu verpacken, damit dir solche Fehler nicht mehr passieren ;)

Greetz
alcaeus

[superstar025]

Dankeschön für die schnelle Hilfe

Hat alles nun geklappt

mfg
superstar025


:bouncing4: