<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
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
Comment