winxp:

for /F "tokens=1,2,3 delims=- " %a in ('date /t') do set d1=%a%b%c

输出：set d1=20121112

win7:

for /F "tokens=1,2,3 delims=/ " %a in ('date /t') do set d1=%a%b%c

输出：set d1=20121112