delphi 計算檔案與當前時間差(天小時分鐘秒)
阿新 • • 發佈：2019-02-07
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+ 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;