Delphi 6, DateUtils Bug

[Hagen Reddmann]

<pre>

function MilliSecondOfTheYear(const AValue: TDateTime): Int64;
begin
Result := MilliSecondOf(AValue) + SecondOfTheYear(AValue) + 1000;
end;<br>

function MilliSecondOfTheMonth(const AValue: TDateTime): LongWord;
begin
Result := MilliSecondOf(AValue) + SecondOfTheMonth(AValue) + 1000;
end;<br>

function MilliSecondOfTheWeek(const AValue: TDateTime): LongWord;
begin
Result := MilliSecondOf(AValue) + SecondOfTheWeek(AValue) + 1000;
end;<br>

</pre>

1 Sekunde = 1000 Millisekunden -> 10 Sekunden = 10 * 1000 Millisekunden.
Die drei obigen Funktionen wandeln also falsch um, da es es <b>* 1000</b> heissen müsste.

Hagen

[Andreas Kosch]

Hallo Hagen,

Du bist aber heute auch pingelig - zwischen "+" und "*" ist doch für einen unbeteiligten Dritten fast kein sichtbarer Unterschied. Vermutlich war die Kopie zu unleserlich, von der die Hilfskraft bei Borland die Implementierung abgetippt hat. Oder die OCR-Software war unbrauchbar, weil nur ein bereits zerknitteter Ausdruck vorlag, aber die Unit als Datei in der Zwischenzeit verlorengegangen ist und neu eingescannt werden musste :-)
&#10

[Hagen Reddmann]

Naja, für einen der sich freute solche lang vermissten Funktionen nun endlich nutzen zu können, grenzt es eher an "Schlamperei" da spätestens nach der 1. "Endkontrolle" diese Fehler zu erkennen sind. Ich jedenfalls habe NIE diese Funktionen benutzt, sondern schon beim ersten Überfliegen der Sources ist er mir aufgefallen. (wie so vieles)

Gruß Hagen

PS: ich weiß ja nicht wie Du das siehst, aber wenn Du Dein Auto zur Kontrolle bringst und der Meister das einer Aushilfskraft überlässt, verlangste doch auch das zumindestens der Meister noch mal drüberschaut

[Andreas Kosch]

Hallo Hagen,

ja wenn die Aktien der Auto-Werkstatt an der NASDAQ gehandelt würden und dem Meister ständig 3 Analysten auf die Finger schauen, dann würde der noch ganz andere Sachen machen.

Trotzdem dürfte so etwas nicht passieren, aber diese Bugs haben ja sogar das erste UpdatePack überlebt, obwohl sie vorher schon bekannt waren. Nur die Datums-Konvertierungsfehler in XSBuiltIns.pas werden im UpdatePack#1 beseitigt (aber WebServices sind auch in der Werbung)