分析化学的一种计算方式
四舍，小于等于四舍去，
六入，大于等于六则加一
五成双，是五的话看后一位是双数还是单数，双的则舍，单则加一
对于位数很多的近似数，当有效位数确定后，其后面多余的数字应该舍去，只保留有效数字最末一位，这种修约（舍入）规则是“四舍六入五成双”，
也即“4舍6入5凑偶”这里“四”是小于五的意思，"六"是大于五的意思，"五"是所精确的位的后一位，
当5后有数，舍5入1，5后无数或为0时：①5前为奇数，舍5入1；②5前为偶数，舍5不进。
具体规则如下：
1. 小于5舍去，即舍去部分的数值小于保留部分的末位的半个单位，则末位不变；
2. 大于5进1，即舍去部分的数值大于保留部分的末位的半个单位，则末位加1；
3. 等于5时取偶数，即舍去部分的数值，等于保留部分的末位的半个单位，则 末位凑成偶数，即当末位为偶数时，末位不变；当末位为奇数时，末位加1。
举例，用上述规则对下列数据保留3位有效数字：
9.8249=9.82, 9.82671=9.83 9.8251=9.83, 9.8350 =9.84 9.8250=9.82, 9.82501=9.83
SQL Code 来自网络，执行结果有问题
1 /*使用测试数据 2 1.445 1.44 3 1.435 1.44 4 1.425 1.42 5 1.635 1.64 6 */ 7 if object_id( 'fnRound') is not null 8 drop function fnRound 9 GO 10 create function fnRound(@num float,@i int) 11 returns varchar(20) 12 as 13 begin 14 declare @str varchar(20) /*转换成字符类型*/ 15 declare @str2 varchar(20) /*小数位数后面的字符串*/ 16 declare @str3 varchar(2) /*小数位数字符串*/ 17 set @str = convert(varchar,@num) 18 set @str2 = reverse(substring(reverse(@str),1,charindex( '.',reverse(@str)) - 1 - @i)) 19 set @str3 = substring(@str,charindex( '.',@str) + 1,@i) 20 if @str2%5 = 0 and @str3%2 = 0 /*如果符合 "五成双 "*/ 21 set @str = substring(@str,1,charindex( '.',@str)+ @i-1) 22 else /*否则四舍五入*/ 23 set @str = convert(varchar,round(@num,@i)) 24 RETURN @str 25 endGO 26 27 ----测试 28 declare @num float,@num2 float,@num3 float,@num4 float,@i int 29 select @num = 1.445,@num2 = 1.435,@num3 = 1.425,@num4 = 1.635 30 set @i = 2 /*保留的小数位数*/ 31 SELECT 32 dbo.fnRound(@num,@i) as [1.445], /*五成双(4已经是偶数保持不变)*/ 33 dbo.fnRound(@num2,@i) as [1.435], /*五成双(将3变成偶数4)*/ 34 dbo.fnRound(@num3,@i) as [1.425], /*五成双(2已经是偶数保持不变)*/ 35 dbo.fnRound(@num4,@i) as [1.635] /*四舍五入*/ 36 37 ----清除测试环境 38 drop function fnRound 39 40 /*结果 41 1.445 1.435 1.425 1.635 42 -------------------- -------------------- -------------------- ----- 43 1.44 1.44 1.42 1.64 44 */
内容来自：CSDN
自行思考得出，对错有待研究======>>>>>>>>
SQL Code 对错有待研究,反正以上测数据全部OK！
1 /*使用同样测试数据 2 2 1.445 1.44 3 3 1.435 1.44 4 4 1.425 1.42 5 5 1.635 1.64 6 6 */ 7 if object_id('LeoRound') is not null drop Function LeoRound 8 go 9 /* 10 *@Num 需修约数据 11 *@i 修约小数位数 12 */ 13 create function LeoRound(@Num float,@i int) 14 returns varchar(20) 15 as 16 begin 17 declare @str varchar(20) /*原数据转换成字符类型*/ 18 declare @str2 varchar(20) /*保留小数位之后的数字 --如：1.5401 保留一位时 @str2='401' */ 19 declare @str3 varchar(2) /*保留的最后以为小数 --如：1.54 保留一位时 @str3='5' */ 20 21 set @str = convert(varchar,@Num) 22 /*若为整数，则返回原值*/ 23 if charindex( '.',@str)=0 24 return @str 25 /*保留小数位之后的数字*/ 26 set @str2 = reverse(substring(reverse(@str),1,charindex( '.',reverse(@str))-1-@i)) 27 /*保留的最后以为小数 ,需注意若保留小数位数为0时，小数点的截取问题*/ 28 if @i=0 29 set @str3 = substring(@str,charindex( '.',@str)-1,1) 30 else 31 set @str3 = substring(@str,charindex( '.',@str)+1,@i) 32 33 /*符合五成双的条件*/ 34 if substring(@str2,1,1)%5 = 0 35 begin 36 if Len(@str2)>=2 and substring(@str2,2,len(@str2)-1)> 0 /*判断5后面是否还存在不为0的数字*/ 37 /*若存在，则进一（注意小数点的截取问题）*/ 38 if @i=0 39 set @str = Convert(float,substring(@str,1,charindex( '.',@str)-1+@i))+1.0/power(10,@i) 40 else 41 set @str = Convert(float,substring(@str,1,charindex( '.',@str)+ @i))+1.0/power(10,@i) 42 else 43 /*不存在，另判断需保留小数最后一位的奇偶数，奇数进一，偶数舍五*/ 44 if @str3%2=0 45 /*偶数舍五 ,需注意小数点的截取问题*/ 46 if @i=0 47 set @str = substring(@str,1,charindex( '.',@str)-1+@i) 48 else 49 set @str = substring(@str,1,charindex( '.',@str)+@i) 50 else 51 /*奇数进一 ,需注意小数点的截取问题*/ 52 if @i=0 53 set @str = Convert(float,substring(@str,1,charindex( '.',@str)-1+@i))+1.0/power(10,@i) 54 else 55 set @str = Convert(float,substring(@str,1,charindex( '.',@str)+@i))+1.0/power(10,@i) 56 end 57 /*四舍六入*/ 58 else 59 set @str = Convert(varchar,Round(@str,@i)) 60 return @str 61 end