ich hab es jetzt folgender massen angepasst.
Delphi-Quellcode:
function GetDateTimeFromLargeInteger(largeIntValue: IADsLargeInteger): TDateTime;
var
int64Value: Int64;
LocalTime: TFileTime;
SystemTime: TSystemTime;
FileTime : TFileTime;
begin
int64Value := largeIntValue.HighPart;
int64Value := int64Value shl 32;
int64Value := int64Value - 100000000000;
// int64Value := int64Value or largeIntValue.LowPart;
FileTime := TFileTime(int64Value);
Result := EncodeDate(1601,1,1);
if FileTimeToLocalFileTime(FileTime, LocalTime) then
if FileTimeToSystemTime(LocalTime, SystemTime) then
Result := SystemTimeToDateTime(SystemTime);
end;
Das behebt erstmal das Problem.
Damit wird bei allen Usern das richtige Datum angezeigt.
Die richtige und zuverlässig Lösung ist das aber nicht.
Ich hoffe mir kann jemand helfen eien zuverlässige Lösung zu finden.
Besten Dank