delphi 计算文件与当前时间差(天小时分钟秒)
指尖风暴 Uses DateUtils
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;
作者：强哥83
来源：CSDN
原文：https://blog.csdn.net/hzqghost/article/details/1882290
版权声明：本文为博主原创文章，转载请附上博文链接！
