#include <MsgBoxConstants.au3>
#include <FileConstants.au3>
#include <Date.au3>
MsgBox($MB_ICONINFORMATION + $MB_TOPMOST, "Пример", _FileTimeDiff(@ScriptFullPath))
Func _FileTimeDiff($sFile)
Local $aT = FileGetTime($sFile, $FT_CREATED)
If @error Then Return SetError(@error, @extended, 0)
Local $iDiff = _DateDiff("s", $aT[0] & "/" & $aT[1] & "/" & $aT[2] & " " & $aT[3] & ":" & $aT[4] & ":" & $aT[5], _NowCalc())
If @error Then Return SetError(@error, @extended, 0)
Local $sFormat = Int($iDiff / 86400) & " д. "
$iDiff = Mod($iDiff, 86400)
$sFormat &= Int($iDiff / 3600) & " ч. "
$iDiff = Mod($iDiff, 3600)
$sFormat &= Int($iDiff / 60) & " м. "
$iDiff = Mod($iDiff, 60)
$sFormat &= Int($iDiff) & " с. "
Return SetError(0, 0, $sFormat)
EndFunc ;==>_FileTimeDiff