[分享]批处理四舍五入函数

ht河豚 · 发表于 2014-8-14 13:53:14

本帖最后由 ht河豚于 2014-8-29 08:59 编辑

发给大家一个能四舍五入的函数,自己写的.
论坛好像还没有这方面的内容,自己写了这么一个函数.
貌似等级不够所以发到这里,方便大家使用
可以修改函数内kp的变量值
达到修改保留位数的目的(kp=2即为保留2位小数)
(本来想把这个做成一个选项的,太懒了)

:int 小数保存的变量
@echo off&setlocal enabledelayedexpansion
set int=%~1
set kp=2
for /f "tokens=1,2 delims=." %%i in ("!int!") do (
if "%%j"=="" (endlocal&set %~2=%int%&goto :eof)
set pf=%%j
set pfd=!pf:~0,%kp%!
set pfc=!pf:~%kp%,1!
if "!pfc!"=="0" (
if !pfc! GEQ 5 set /a result=%%i+1
if !pf! LSS 5 set /a result=%%i
)
if not "!pfc!"=="0" (
if !pfc! GEQ 5 set /a tmp=!pfd!+1
if !pfc! LSS 5 set /a tmp=!pfd!
set result=%%i.!tmp!
)
)
endlocal&set %~2=%result%&goto :eof

复制代码

刚刚那个好像有很多BUG,修改了V2结果发现仅能在小数使用
又修了V3这回应该没什么问题了
======V3======

:int 小数输出变量
setlocal enabledelayedexpansion
set int=%~1.
if not defined kp set kp=2
if "%kp%"=="0" (set int=!int!0) Else for /l %%i in (1 1 %kp%) do set int=!int!0
for /f "tokens=1,2,3 delims=." %%i in ("!int!") do (
if not "%kp%"=="0" if %%j EQU 0 (endlocal&set %~2=%%i.%%j&goto :eof)
echo !int!
set pf=%%j
set pfe=!pf:~0,1!
set pfd=!pf:~0,%kp%!
set pfc=!pf:~%kp%,1!
if "!kp!"=="0" (
if !pfe! GEQ 5 set /a result=%%i+1
if !pfe! LSS 5 set /a result=%%i
) ELSE (
if !pfc! GEQ 5 set /a tmp1=!pfd!+1
if !pfc! LSS 5 set /a tmp1=!pfd!
set result=%%i.!tmp1!
)
)
endlocal&set %~2=%result%&goto :eof

复制代码

zwlking · 发表于 2014-8-14 16:15:32

谢谢你的分享！

oqis · 发表于 2015-3-31 15:03:35

这个函数怎么用？能举例说明末。

oqis · 发表于 2015-3-31 15:04:02

这个函数怎么用？能举例说明末。

CrLf · 发表于 2015-3-31 15:55:28

回复 4# oqis

举个栗子：

@echo off
set "输入变量=44.1234560"
::要处理的数字
set "kp=1"
::保留 1 位小数
call :int %输入变量% 输出变量
::调用 :int 并将结果保存在 %输出变量% 中
echo %输出变量%
pause & exit
:int 小数输出变量
setlocal enabledelayedexpansion
set int=%~1.
if not defined kp set kp=2
if "%kp%"=="0" (set int=!int!0) Else for /l %%i in (1 1 %kp%) do set int=!int!0
for /f "tokens=1,2,3 delims=." %%i in ("!int!") do (
if not "%kp%"=="0" if %%j EQU 0 (endlocal&set %~2=%%i.%%j&goto :eof)
echo !int!
set pf=%%j
set pfe=!pf:~0,1!
set pfd=!pf:~0,%kp%!
set pfc=!pf:~%kp%,1!
if "!kp!"=="0" (
if !pfe! GEQ 5 set /a result=%%i+1
if !pfe! LSS 5 set /a result=%%i
) ELSE (
if !pfc! GEQ 5 set /a tmp1=!pfd!+1
if !pfc! LSS 5 set /a tmp1=!pfd!
set result=%%i.!tmp1!
)
)
endlocal&set %~2=%result%&goto :eof

复制代码

oqis · 发表于 2015-3-31 18:00:19

本帖最后由 oqis 于 2015-3-31 18:26 编辑

回复 5# CrLf
知道了多谢
结果是对的，但不知道有没有简单点的方法。
四舍五入保留小数点后2位
％ConSet_prec％好像可以，但不知道用。

pda8888 · 发表于 2023-3-28 19:23:00

用这个数测试，69.0916165972，要报错且结果不对：

69.0916165972
69.091616.00
无效数字。数字常数只能是十进制(17)，十六位进制(0x11)或
八进制(021)。
69.

复制代码

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[数值计算] [分享]批处理四舍五入函数

评分