IADsLargeInteger TO TDateTime

[cherry]

Mooorgeeen.

Ich gebs auf... Ich kriegs nicht auf die Reihe das Attribut pwdLastSet (IADsLargeInteger) in ein lesbares TDateTime zu konvertieren.
Bis jetzt hab ich 100te Beispiele angeschaut aber nichts scheint zu klappen.

Ich hab bis jetzt so was hier:

Delphi-Quellcode:

function GetDateTimeFromLargeInteger(largeIntValue: IADsLargeInteger): TDateTime;
var
  int64Value: Int64;
begin
  // Convert large integer to int64 value
  int64Value := largeIntValue.HighPart;
  int64Value := int64Value shl 32;
  int64Value := int64Value or largeIntValue.LowPart;
  // return datetime
  result := FileDateToDateTime(int64Value);
end;

Danke schon mal.