CompareDateTime unter XE2 deutlich langsamer als D2009

[Medium]

Ich gehe mal stark davon aus, dass D2009 das auch schon getan hat. Sonst gäbe es für die Funktion keine Berechtigung, und ein if DateTime1=DateTime2 then ... wäre gleichwertig (und gleichermaßen fahrlässig). Da muss noch mehr anders sein, mangels XE(2) kann ich das aber leider nicht genauer angeben. Die genannte Tatsache an sich halte ich aber für unwahrscheinlich.

[Horst_]

Hallo,

in freepascal läuft es so:

Delphi-Quellcode:

{dateih.inc}
const
   HoursPerDay = 24;
   MinsPerHour = 60;
   SecsPerMin  = 60;
   MSecsPerSec = 1000;
   MinsPerDay  = HoursPerDay * MinsPerHour;//1440
   SecsPerDay  = MinsPerDay * SecsPerMin;  //86400
   MSecsPerDay = SecsPerDay * MSecsPerSec; //86400000
..
{dateutil.inc}
const
  OneMillisecond = 1/MSecsPerDay;

Function SameDateTime(const A, B: TDateTime): Boolean;
begin
  Result:=Abs(A-B)<OneMilliSecond;
end; 

Function CompareDateTime(const A, B: TDateTime): TValueRelationship;
begin
  If SameDateTime(A,B) then
    Result:=EqualsValue
  else If A>B then
    Result:=GreaterThanValue
  else
    Result:=LessThanValue
end;

Das wäre ja leicht zu testen, ob es so wieder schneller wäre

Gruß Horst

[Stevie]

Zitat von Horst_:

Hallo,

in freepascal läuft es so:

*schnipp*

Das wäre ja leicht zu testen, ob es so wieder schneller wäre

Gruß Horst

Das entspricht der Implementierung in Delphi bis 2010. Ab XE sieht es etwas anders aus.