terse

我怎么计算出小数啊  是我这里出错吗？

@echo off&setlocal enabledelayedexpansion
set "Tab=#"
set w=3&REM 保留小数3位
if "%Tab%"=="#" (
   echo.&echo  请先将代码中的 set "Tab=#" 中的#号改为Tab键
   echo.&pause>nul&exit
)
for /f "skip=1 tokens=1* delims=%Tab%" %%i in (a.xls) do set /a %%i+=1,_%%i+=%%j
echo 星期   天数   参观人数  日圴参观人数
for %%i in (一 二 三 四 五 六 天) do (
    set/a M=_%%i,Md=%%i,_n+=%%i,_m+=_%%i
    call:lp
    if !Di! gtr !n! set/a n=Di&set D=%%i
    echo %%i%Tab%!%%i!%Tab%!_%%i!%Tab%!Di!
    set "Di="&set "l="
  )
   set/a M=_m,Md=_n
   call:lp
   echo 合计%Tab%%_n%%Tab%%_m%%Tab%!Di!据统计星期%D%为游客最多日
pause&exit
:lp
set/a l=%l%%M:~,1%%%Md,s=%l%%M:~,1%/Md
    if %Di%#==0# set Di=
    set Di=%Di%%s%
    set M=%M:~1%
    if defined M goto lp
    if defined Di (set Di=%Di%.)else set l=%Di%&set Di=0.
    for /l %%i in (1 1 %w%) do (
    set/a l*=10,s=l/Md,n+=1
    set Di=!Di!!s!
    set/a l=l%%Md
)
复制代码

[ 本帖最后由 terse 于 2009-2-23 18:38 编辑 ]

terse

也不知计小数否  再贴一个

@echo off&setlocal enabledelayedexpansion
set "Tab=#"
if "%Tab%"=="#" (
   echo.&echo  请先将代码中的 set "Tab=#" 中的#号改为Tab键
   echo.&pause>nul&exit
)
for /f "skip=1 tokens=1* delims=%Tab%" %%i in (a.xls) do set /a %%i+=1,_%%i+=%%j
echo 星期   天数   参观人数  日圴参观人数
for %%i in (一 二 三 四 五 六 天) do (
    set /a m=_%%i/%%i,_n+=%%i,_m+=_%%i
    if !_%%i! gtr !n! set/a n=m&set t=%%i
    echo %%i%Tab%!%%i!%Tab%!_%%i!%Tab%!m!
  )
echo 合计%Tab%%_n%%Tab%%_m%%Tab%据统计星期%t%为游客最多日
pause
复制代码

[ 本帖最后由 terse 于 2009-2-23 20:29 编辑 ]