Zitat von
Luckie:
Hilfe lesen:
Zitat:
Remarks
It is not recommended that you add and subtract values from the SYSTEMTIME structure to obtain relative times. Instead, you should
- Convert the SYSTEMTIME structure to a FILETIME structure.
- Copy the resulting FILETIME structure to a ULARGE_INTEGER structure.
- Use normal 64-bit arithmetic on the ULARGE_INTEGER value.
ja so hab ich es ja gemacht, nur funzt das nicht wirklich, hab mal nen code angehangen, vllt kann mir da jemand weiter helfen...
und nein, tdatetime kann ich nicht verwenden, dafür muss ich zuviele "grosse" units einbinden, kann also nur mit TSystemTime und TFileTime arbeiten...
das hab ich bisher (hardcoded nur zum test)
Delphi-Quellcode:
function GetDifferenzTime(TheTime: TSystemTime): TSystemTime;
var
TempTime, CurrentTime: TSystemTime;
TempFileTime, CurrentFileTime: FileTime;
begin;
Result := TheTime;
GetLocalTime(CurrentTime);
if SystemTimeToFileTime(TheTime, TempFileTime) then
if SystemTimeToFileTime(CurrentTime, CurrentFileTime) then
begin;
TempFileTime := TFileTime(Int64(CurrentFileTime) - Int64(TempFileTime));
if FileTimeToSystemTime(TempFileTime, TempTime) then
// hier hat er probleme beim convertieren weil davor wohl schon beim abrechnen was falsch gelaufen ist
Result := TempTime
else
MessageBoxA(0, PChar('convert to systemtime fail'), 'hallocap', MB_OK or MB_ICONEXCLAMATION)
end
else
MessageBoxA(0, PChar('current time fehl'), 'hallocap', MB_OK or MB_ICONEXCLAMATION)
else
MessageBoxA(0, PChar('temp time fehl'), 'hallocap', MB_OK or MB_ICONEXCLAMATION);
end;