Delphi中的经过/时间间隔？

function LastWriteTime(const FileName: string): TFileTime;
var
  AttributeData: TWin32FileAttributeData;
begin
  if not GetFileAttributesEx(PChar(FileName),GetFileExInfoStandard,@AttributeData) then
    RaiseLastOSError;
  Result := AttributeData.ftLastWriteTime;
end;

function UTCFileTimeToSystemTime(const FileTime: TFileTime): TSystemTime;
//returns equivalent time in current locality,taking account of daylight saving
var
  LocalFileTime: Windows.TFileTime;
begin
  Windows.FileTimeToLocalFileTime(FileTime,LocalFileTime);
  Windows.FileTimeToSystemTime(LocalFileTime,Result);
end;

function UTCFileTimeToDateTime(const FileTime: TFileTime): TDateTime;
begin
  Result := SystemTimeToDateTime(UTCFileTimeToSystemTime(FileTime));
end;

您调用LastWriteTime以文件时间格式获取上次修改时间.然后调用UTCFileTimeToDateTime转换为TDateTime,计算机器的主要本地时区.然后,您可以将该值与Now进行比较.

关于格式化,您似乎已经知道如何做到这一点.您的基本方法将起作用,您只需要充实细节.

在评论中你说

FormatDateTime('dd hh:nn:ss',2.9);

当你想要2时显示1.问题是这个函数格式化日期而不是时间间隔.值2.9不被视为经过时间,而是被视为绝对日期/时间,即德尔福纪元后2.9天.我会使用Trunc和Frac分别获得天数和天数,并从那里开始工作.

Days := Trunc(TimeDiff);
Time := Frac(TimeDiff);

以下代码直接从我的代码库中提取,可能会给你一些指示.请注意,它的输入是以秒为单位,但它应该设置在正确的路径上.

function CorrectPlural(const s: string; Count: Integer): string;
begin
  Result := IntToStr(Count) + ' ' + s;
  if Count<>1 then begin
    Result := Result + 's';
  end;
end;

function HumanReadableTime(Time: Double): string;
//Time is in seconds
const
  SecondsPerMinute = 60;
  SecondsPerHour = 60*SecondsPerMinute;
  SecondsPerDay = 24*SecondsPerHour;
  SecondsPerWeek = 7*SecondsPerDay;
  SecondsPerYear = 365*SecondsPerDay;

var
  Years,Weeks,Days,Hours,Minutes,Seconds: Int64;

begin
  Try
    Years := Trunc(Time/SecondsPerYear);
    Time := Time - Years*SecondsPerYear;
    Weeks := Trunc(Time/SecondsPerWeek);
    Time := Time - Weeks*SecondsPerWeek;
    Days := Trunc(Time/SecondsPerDay);
    Time := Time - Days*SecondsPerDay;
    Hours := Trunc(Time/SecondsPerHour);
    Time := Time - Hours*SecondsPerHour;
    Minutes := Trunc(Time/SecondsPerMinute);
    Time := Time - Minutes*SecondsPerMinute;
    Seconds := Trunc(Time);

    if Years>5000 then begin
      Result := IntToStr(Round(Years/1000))+' millennia';
    end else if Years>500 then begin
      Result := IntToStr(Round(Years/100))+' centuries';
    end else if Years>0 then begin
      Result := CorrectPlural('year',Years) + ' ' + CorrectPlural('week',Weeks);
    end else if Weeks>0 then begin
      Result := CorrectPlural('week',Weeks) + ' ' + CorrectPlural('day',Days);
    end else if Days>0 then begin
      Result := CorrectPlural('day',Days) + ' ' + CorrectPlural('hour',Hours);
    end else if Hours>0 then begin
      Result := CorrectPlural('hour',Hours) + ' ' + CorrectPlural('minute',Minutes);
    end else if Minutes>0 then begin
      Result := CorrectPlural('minute',Minutes);
    end else begin
      Result := CorrectPlural('second',Seconds);
    end;
  Except
    Result := 'an eternity';
  End;
end;