@echo off&setlocal enabledelayedexpansion
for /f "tokens=1-3 delims=:/" %%a in ("%date%") do set name=%%a%%b%%c
md d:%name%
for /f "delims=" %%a in ('dir /a-d /b /s *.xls') do (
set "d=%%~ta"
set "d=!d:~0,4!!d:~5,2!!d:~8,2!"
if "!d!==%name%" move "%%a" "d:\%name%"
)