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 
 

相关阅读 >>

高手谈做程序员的8大基本原则

Delphi tclientdataset的全面剖析

Delphi datetimepicker控件日期格式

Delphi2010中字符串汇编需要注意的一点，以及支持2010的aes加密库

Delphi idhttp下载文件

setwindowpos改变窗口的位置与状态

Delphi dll初始化和退出处理

Delphi修改资源文件的代码

Delphi 动画窗体

Delphi远程注入dll方法

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

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