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

[arc]

Ich melde mich wieder zurück, Now habe ich nirgends deklariert, wieso sollte man das tun.
Der Fehler scheint in einer der Umwandlungsfunktionen zu liegen. Leider kann ich nicht weiter debuggen, da ich keine SysUtils.pas habe.

Folgender Code erzeugt folgende Resultate:

Code:

function API_GetCurrentDate:string;
var SystemTime: TSystemTime;
begin
  GetLocalTime(SystemTime);
  result:=DateTimeToStr(SystemTimeToDateTime(SystemTime))+' vs '+Format('%.2d.%.2d.%d %.2d:%.2d:%.2d',[SystemTime.wDay,SystemTime.wMonth,SystemTime.wYear,SystemTime.wHour,SystemTime.wMinute,SystemTime.wSecond]);
end;

11.09.2010 13:56:24 vs 11.09.2010 13:59:10
11.09.2010 13:56:24 vs 11.09.2010 13:59:31
11.09.2010 13:56:24 vs 11.09.2010 14:00:13
11.09.2010 13:56:24 vs 11.09.2010 14:00:18
11.09.2010 13:56:24 vs 11.09.2010 14:00:27
11.09.2010 13:56:24 vs 11.09.2010 14:00:30

Ich bin ehrlich gesagt ratlos. Völlig unlogisch der Fehler.

[himitsu]

Delphi-Quellcode:

function API_GetCurrentDate: String;
var SystemTime: TSystemTime;
begin
  GetLocalTime(SystemTime);
  Result := Format('%s (%.10n) vs %.2d.%.2d.%d %.2d:%.2d:%.2d', [
    DateTimeToStr(SystemTimeToDateTime(SystemTime)),
    SystemTimeToDateTime(SystemTime), SystemTime.wDay,
    SystemTime.wMonth, SystemTime.wYear, SystemTime.wHour,
    SystemTime.wMinute, SystemTime.wSecond]);
end;

Was sagt denn diese Funktion?

Mal gucken ob in DateTimeToStr oder SystemTimeToDateTime das Problem liegt.
(auch wenn ich eher auf SystemTimeToDateTime tippe)

Obwohl Beide eigentlich nur "reine" mathematische Berechnungen ausführen und diese sollte unabhängig vom System (Windows) berechenbar sein.

[arc]

11.09.2010 14:22:37 (40.432,5987862446) vs 11.09.2010 14:18:41
11.09.2010 14:22:37 (40.432,5987862446) vs 11.09.2010 14:18:47
11.09.2010 14:22:37 (40.432,5987862446) vs 11.09.2010 14:18:55
11.09.2010 14:22:37 (40.432,5987862446) vs 11.09.2010 14:18:58
11.09.2010 14:22:37 (40.432,5987862446) vs 11.09.2010 14:19:00

[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