Was könnte die Funktion Now: TDateTime; blockieren?

[himitsu]

SystemTimeToDateTime liefert also schon die falschen Werte.

Was mir eventuell noch einfällt, wäre, daß irgendwo mit Single anstatt mit Double/TDateTime gerechnet wird und dabei wichtige Informationen weggerundet werden,
aber sowas sollte dann auf allen Rechner und Windowssystemen gleich sein.



Wieviele signifikante Stellen hatte denn Single nochmal?
(diese blöde D2010-OH will es mir nicht verraten)

Bei 8 signifikanten Stellen würde das aktuell etwa ein Intervall von (geschätzten) ~1,5 Minuten ergeben.

[mkinzler]

Single hat 7 signifikante Stellen
http://www.delphibasics.co.uk/RTL.asp?Name=Single

[Uwe Raabe]

Also wenn alte Projekte den Fehler zeigen und neue nicht, dann kann das eigentlich nur daran liegen, daß die alten Projekte eine andere Sysutils verwenden (da wo Now und SystemTimeToDateTime deklariert sind). Vielleicht sollte man in diese Richtung (Stichwort: Bibliothekspfade) mal weiter suchen?

[Angyrtis]

Hi,

sry, ich krame den Thread mal wieder vor, da ich das gleiche Problem habe, allerdings Delphi XE2 Update3, Win7 64bit.

Gibt es da irgendwelche neuen Erkenntnisse?

Gruß Angyrtis

[Angyrtis]

Auch wenn es schon ewig her ist. Aber mir ist endlich eine Lösung über den Weg gelaufen. Und falls dann noch jemand verzweifelt, hier ein möglicher Grund:

Und zwar hat bei mir DirectX die Berechnunggenauigkeit global auf Single gesetzt. Damit wird Now ungenau und geht kaputt. Lösung ist also bei mir gewesen:

Code:

procedure DoSthWithNow;
var
  Prec: TFPUPrecisionMode;
begin
  Prec := SetPrecisionMode(pmExtended); //Manuelles Setzen der Berechnungsgenauigkeit auf Extended
  Now; //Call von Now
  SetPrecisionMode(Prec); //Zurücksetzen der ursprünglichen Genauigkeit, sofern erwünscht.
end;