Date Vergleich

[Uwe Raabe]

Zitat von himitsu:

Ich glaub den Bug hat man inzwischen sogar "schon" behoben. (in irgendeinem der XEs)

Aber nicht in XE5:

Delphi-Quellcode:

function TCommonCalendar.GetDate: TDate;
begin
  Result := TDate(FDateTime);
end;

function TDateTimePicker.GetTime: TTime;
begin
  Result := TTime(FDateTime);
end;

Insofern bekommt man faktisch dasselbe Ergebnis über Date, Time oder DateTime.

Interessanterweise wird beim Setzen dieser beiden Properties nur jeweils die Date- bzw. Time-Komponente des Werts übernommen. Die jeweils andere bleibt unverändert.

[himitsu]

*durchstreich*
Ich war mir ganz sicher, daß es schonmal ging. (ich hoffe nur, ich bin da nicht mit DevExpress durcheinandergekommen ... die haben/hatten auch solche Bugs)

Zitat:

Möglicherweise hat man sich später nicht mehr getraut diesen Bug abzustellen weil dies existierenden Code brechen könnte...

Hier würde ich das ja einfach hart abändern, so daß es nun richtig geht.
Oder man fängt mit Properties an, die sich plötzlich RealDate und RealTime nennen, oder so.

Aber da es hier auch das .DateTime gibt und somit keine Funktion verloren geht, haben einfach die Pech gehabt, die es bisher falsch gemacht haben.


Jetzt müsste man nur mal nachsehn, ob es nicht schon einen QC dafür gibt.

[Popov]

Theoretisch darf es keine Rundungsfehler geben, aber bei Millisekunden ist man da anscheinend nicht so genau. TDateTime ist ja nur eine Zahl, was vor dem Komma ist, sind Tage, nach dem Komma die Stunden, Minuten, Sekunden und Millisekunden.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  h, n, s, ms: Integer;
  t: TDateTime;
  d: Double;
begin
  t := EncodeTime(11, 20, 30, 998);

  d := t * 24;
  h := Trunc(d);

  d := (d - h) * 60;
  n := Trunc(d);

  d := (d - n) * 60;
  s := Trunc(d);

  d := (d - s) * 1000;
  ms := Trunc(d);

  //ShowMessage('Zeit: ' + TimeToStr(t));
  ShowMessage(Format('h: %d, n: %d, s: %d, ms: %d', [h, n, s, ms]));
end;

Bei der Millisekunde wird es ungenau im 1/1000 Sekunde.

[Furtbichler]

Zitat von Popov:

Theoretisch darf es keine Rundungsfehler geben

Theoretisch darf es natürlich Rundungsfehler geben. Praktisch gibt es sie ja auch. Das liegt an der Natur des 'Double'.

Zitat von Sir Rufo:

...nicht alle Werte können wirklich korrekt dargestellt werden...

Bei ganzen Zahlen (also nur das Datum z.B.) stimmt das nicht, diese werden genau angegeben. Daher wundert es mich ein wenig. Oder anders ausgedrückt: Ich wäre auch drauf reingefallen.

PS: Im Datenbankbereich gibt es diese Probleme interessanterweise nicht, obwohl man annehmen kann, das ein DateTime auch als Double gespeichert wird. Ergo stimmt diese Annahme nicht, denn

Code:

WHERE myDateTimeColumn BETWEEN @SomeDate and @SomeOtherDate
  or  (myOtherDateTimeColumn => @SomeDate and myOtherDateTimeColumn <= @SomeOtherDate)

funktioniert immer. In der Tat wird ein DateTime zumindest im SQL-Server als INTEGER-INTEGER abgelegt (8 Bytes), wobei die erste Zahl die Anzahl der Tage seit 1.1.1900 und die Zweite Zahl die Anzahl der Ticks seit Mitternacht angibt, wobei hier blöderweise 300 Ticks = 1 sec ist, womit wieder eine Ungenauigkeit eingeführt wird, da man die letzte ms-Stelle mal wieder nicht genau treffen kann.

Irgendwie habens die Informatiker mit Ungenauigkeiten.

[himitsu]

Und je öfter man "nacheinander" rechnet, um so mehr können/werden sich Rundungsfehler "aufsummieren".

[Furtbichler]

Zitat von himitsu:

Und je öfter man "nacheinander" rechnet, um so mehr können/werden sich Rundungsfehler "aufsummieren".

Wenn Du nicht gerade sehr kleine mit sehr großen Zahlen miteinander multiplizierst, ist das irrelevant. Aber die Thematik ist gefühlte 1.000.000,00000000000128 (double halt) mal durchgekaut.