Среднее время созданых файлов в папке, с учетом даты создания bat

@echo off
  setlocal enabledelayedexpansion
    set "re=[0-9][0-9]!date:~2,8!" % rem : критерий поиска
    set "i=0" % rem : счетчик количества файлов критерия
    set "dsum=0" % rem : сумма дат
    set "tsum=0" % rem : сумма временных меток
    call:summarize "X:\some path\test" !re! 10 17
    set /a "dx=dsum/i, tx=tsum/i, hx=tx/24/60, mx=tx%%60"
    call:fromJulianDay !dx! dx
    echo !dx! !hx!:!mx!
  endlocal
exit /b
 
:toJulianDay
  set /a "d=100%~1-100, m=100%~2-100"
  set "jdn=(1461*(%~3+4800+(m-14)/12))/4+(367*(m-2-12*((m-14)/12"
  set "jdn=!jdn!)))/12-(3*((%~3+4900+(m-14)/12)/100))/4+d-32075"
  set /a "%~4=!jdn!"
exit /b
 
:fromJulianDay
  set /a "a=dx+32044, b=(4*a+3)/146097, c=a-146097*b/4"
  set /a "d=(4*c+3)/1461, e=c-1461*d/4, m=(5*e+2)/153"
  set /a "%~2=e-(153*m+2)/5+1"
exit /b
 
::fn summarize(path, regex, [from..till])
:summarize
  for /f "delims=" %%i in (
    'dir /tc "%~1" ^| findstr /brc:"%~2" ^| findstr /verc:"\."'
  ) do (
    set "str=%%i"&&set "num=!str:~0,2!"
    if !num! lss 10 set "num=!num:~1!"
    if !num! geq %~3 if !num! leq %~4 (
      set /a "i+=1"
      for /f "tokens=1,2" %%j in ("!str!") do (
        call:toJulianDay !str:~0,2! !str:~3,2! !str:~6,4! x
        set /a "dsum+=x"
        set "#=%%k"
        set /a "tsum+=!#:~0,2!*24*60+!#:~3,2!*60"
      )
    )
  )
exit /b