delphi 计算文件与当前时间差(天小时分钟秒)

procedure TForm1.FormCreate(Sender: TObject);//窗体初始化


var


  iFileHandle: Integer;


  FileTime:TDateTime;


  Days:Integer;


  Hours:Integer;


  Minutes:Integer;


  Seconds:Integer;


begin


  DataPath := ExtractFilePath(paramstr(0))+'data';


  if FileExists(DataPath+'Local.rar') then


  begin


    iFileHandle:=FileOpen(DataPath+'LocalDataBase.rar', fmOpenRead);


    FileTime := FileDateToDateTime(FileGetDate(iFileHandle));


    FileClose(iFileHandle);
       Days := DaysBetween(now,FileTime);
       Hours:=HoursBetween(now,FileTime)-(Days * 24);
       Minutes := MinutesBetween(now,FileTime)-((Days * 24 + Hours) * 60);
       Seconds := SecondsBetween(now,FileTime)-(((Days * 24 + Hours)*60+Minutes) * 60);


    Label1.Caption:='最后修改时间：'+


    IntToStr(Days)+' 天'+


    IntToStr(Hours)+' 小时'+


    IntToStr(Minutes)+' 分'+


    IntToStr(Seconds)+' 秒之前';


  end;


end;