Ich habe mir jetzt einfach folgendes eingebaut
Showmessage(Format('%2.18f',[d]));
Das Ergebist von
Start: 04:00
Ende: 10:00
ist 6,000000000000000890 !!!
Wahrscheinlich eine Ungenauigkeit, wie Du gesagt hast.
Das bedeutet wohl dass ich wirklich schreiben muss:
Delphi-Quellcode:
if (d > 6,000000000000000890 ) then
d := d - 0.5;
end;
oder?
PS übrigens Danke für den Tipp und auch für den Hinweis mit Delphi 5
Ich werde gleich meine Sig ändern, ich habe nämlich Delphi 2010