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;

作者：强哥83

来源：CSDN

原文：https://blog.csdn.net/hzqghost/article/details/1882290

推荐分享