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 
 

相关阅读 >>

Delphi xe7 android 实现的在线更新app的一个程序

wmi cim_datafile的33个属性

Delphi 系统服务运行桌面用户指定程序

Delphi memo 自动滚动到最底下

Delphi 检查ip地址合法性

Delphi messagebox 和 messagedlg用法

Delphi cardpanel1 简单的切换

ring3下清零结束进程的Delphi版本

Delphi idhttp的基本用法

Delphi idhttp上传图给asp完美解决

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 计算文件与当前时间差(天小时分钟秒)