#include-once

;~ MsgBox(0,'Time Difference is:',  _FormatElapsedTime(175))   ;minutes
;~ MsgBox(0,'Time Difference is:',  _FormatElapsedTime(38000)) ;hours
;~ MsgBox(0,'Time Difference is:',  _FormatElapsedTime(450684))    ;days




Func _FormatFileSize($nInputFileSize, $nPres = 3)
	Local $aPrefix[9][2] = [  _
	[""  ,     "Byte"], _
	["Ki", "KibiByte"], _
	["Mi", "MebiByte"], _
	["Gi", "GibiByte"], _
	["Ti", "TebiByte"], _
	["Pi", "PebiByte"], _
	["Ei", "ExbiByte"], _
	["Zi", "ZebiByte"], _
	["Yi", "YobiByte"]  _
	]
	$nCopy = $nInputFileSize
	$nL = 0
	While $nCopy > 1024
		$nCopy /= 1024
		$nL += 1
	WEnd
	$sElapsedMessage = StringFormat("%."&$nPres&"f%sB", $nCopy, $aPrefix[$nL][0])
	Return($sElapsedMessage)
EndFunc