Перемещение файлов, в дате создания которых есть парный месяц и непарный день

@echo off
SetLocal EnableExtensions EnableDelayedExpansion
::Задайте расположение исходной папки с файлами
Set Source=h:\1\MM
::Задайте расположение папки Filtered
Set Dest=h:\1\Filtered
 
for /f %%a in ('dir "%Source%" /b /a:-d') do set /a files+=1
 
set /a n=0
for /f "skip=4 tokens=1,3*" %%a in ('dir "%Source%" /a:-d') do (
  call :ParseDateSafe "%%a" Day Month Year
  call :CheckParity
  if errorlevel 0 copy "%Source%\%%~nxc" "%Dest%\%%~nxc"
  set /a n+=1
  rem Подсчет кол-ва, чтобы не выйти за предел ненужного вывода команды DIR
  if !n!==%files% goto :eof
)
Exit /B
 
:ParseDateSafe [Дата] [Переменная - День] [Переменная - Месяц] [Переменная - Год]
  :: Функция безопасного парсинга даты на составляющие вне зависимости от настроек региональных стандартов
  if not Defined iDate For /F "Tokens=1,3" %%i IN ('REG QUERY "HKCU\Control Panel\International" /s^|FindStr /C:"iDate" /C:"sDate"') DO Set "%%i=%%j"
  set "DateToParse=%~1"
  if "%DateToParse:~3,1%"==" " For /F "Tokens=2" %%? IN ("%~1") Do if not "%%?"=="" set "DateToParse=%%?"
  For /F "Tokens=1-4* Delims=%sDate% " %%A IN ("%DateToParse%") Do (
    If "%iDate%"=="0" Set "Year=%%C"& Set "Month=%%A"& Set "Day=%%B"
    If "%iDate%"=="1" Set "Year=%%C"& Set "Month=%%B"& Set "Day=%%A"
    If "%iDate%"=="2" Set "Year=%%A"& Set "Month=%%B"& Set "Day=%%C"
  )
  if "%Day:~1,1%"=="" set "Day=0%Day%"
  if "%Month:~1,1%"=="" set "Month=0%Month%"
  set "%~2=%Day%"& set "%~3=%Month%"& set "%~4=%Year%"
Exit /B
 
:CheckParity
  set /a mod=%Month% %% 2
  if %mod%==1 Exit /B 1
  set /a mod=%Day% %% 2
  if %mod%==0 Exit /B 1
Exit /B

if errorlevel 0 (copy "%Source%\%%~nxc" "%Dest%\%%~nxc"& echo %%~nxc>>"protokol.log")

if errorlevel 0 >NUL copy "%Source%\%%~nxc" "%Dest%\%%~nxc"