38109,791667 <> 38109,791667?

[alcaeus]

Hi! Ich vergleiche in meiner Routine zwei DateTime-Werte:
Value=38109,791667
BoundaryRight=38109,791667

Wenn ich im Debug-Modus die beiden Werte anschaue, so sind sie exakt gleich, jedoch gibt der Vergleich Value=BoundaryRight immer False. Kennt jemand das Problem und eventuelle Schritte dagegen?

[Leuselator]

wie genau gleich sollen sie sein (Tag,Stunde,Minute...)

[alcaeus]

Naja, eigentlich dürfte das hier keine Rolle spielen, denn mir liegen die obigen Werte vor, die stehen für den 2. Mai, 19 Uhr. Das heißt, die Bedingung müsste True ergeben, was sie leider nicht tut, und mich bringt das Problem seit 20 Minuten zur Verzweiflung

[Leuselator]

Ich fragte nicht so "obenhin", weil Dein Problem tiefer geht - nun gut da Du es nicht sagen möchtest, bleibt Dir nur der lange Weg - selber lernen. Lies Dir in dem untenstehenden Link die Seite 2 und das "Rezept 2.3 Vergleich von Fließkommazahlen" durch - dann siehst Du klar :-)
Gruß
Artikel

PS: TDateTime ist ein Double also eine Fließkommazahl Dieser Artikel stellt das Problem auch gut dar

[alcaeus]

Na gut... nachdem dus unbedingt wissen willst, ich arbeite mit zwei DateTimePickern, einem fürs Datum, einem für die Zeit. Anschließend zähle ich die beiden Werte so zusammen:

Delphi-Quellcode:

GenaueZeit := Trunc(dtp_Datum.Date)+Frac(dtp_Zeit.Time);

Das Ergebnis dieser Rechnung ist der obenstehende Wert. Der DateTimePicker für die Zeit muss also auf die Sekunde genau sein. Ich kann aber noch nicht nachvollziehen, wozu diese Information gut ist. Ich probiere jetzt mal den Vergleich als String...

[Leuselator]

Die Antwort findest Du in den genannten Artikeln - dort ist beschrieben, warum das, was Du tust schief geht, und wie es besser geht...

[alcaeus]

Ja, ich habe das Problem gelöst, mit FloatToStr... Danke vielmals :hello:

[Luckie]

Zitat:

Zitat von alcaeus

Ja, ich habe das Problem gelöst, mit FloatToStr... Danke vielmals :hello:

:shock:

[alcaeus]

Zitat:

Zitat von Luckie

Zitat:

Zitat von alcaeus

Ja, ich habe das Problem gelöst, mit FloatToStr... Danke vielmals :hello:

:shock:

Ja:
Value=38109,791667
BoundaryRight=38109,791667

Delphi-Quellcode:

bRes1 := Value=BorderRight;
bRes2 := FloatToStr(Value)=FloatToStr(BorderRight);

bRes1 ist False, bRes2 hingegen True...ich hab auch gestaunt

[Chewie]

Probier mal sowas wie

Delphi-Quellcode:

const epsilon = 0.0000000001;


[...]
if (abs(value - BorderRight) < epsilon) then //...

Aufgrund der Natur von Fließkommazahlen ist es recht unwahrscheinlich, dass sie völlig identisch sind. Deshalb gibst du die Genauigkeit an. Je näher dieses epsilon an 0 dran ist, desto genauer wird der Vergleich. Ist er zu nah an 0 dran, kann es halt passieren, dass er nicht mehr korrekt ist.

[alcaeus]

Danke Chewie! Das erscheint logisch...ich werds probieren

[Jörn]

Vielleicht würde auch folgendes funzen:

Delphi-Quellcode:

if iszero(Value - BorderRight) then
...

[Chewie]

Was macht die Funktion iszero und wo ist sie deklariert? Mein Delphi5 kennt sie jedenfalls nicht...

[alcaeus]

Zitat:

Zitat von Delphi OH

Die Funktion IsZero gibt an, ob eine Gleitkommavariable oder ein Gleitkommaausdruck den Wert Null oder beinahe Null hat.

Das ist bei einem D6 Pro, ich glaub die gibts erst ab D6, aber ich bin mir nicht sicher...

[Phoenix]

Zitat:

Zitat von Delphi OH

Die Funktion IsZero gibt an, ob eine Gleitkommavariable oder ein Gleitkommaausdruck den Wert Null oder beinahe Null hat.

Und wenn Null besonders gross ist, ist es fast so gross wie ein bisschen Eins :cyclops:

[Jörn]

Also bei Delphi 6 PE gibts das auf jeden Fall...