四捨六入五成雙(SQL Function)

分析化學的一種計算方式
四舍，小於等於四捨去，
六入，大於等於六則加一
五成雙，是五的話看後一位是雙數還是單數，雙的則舍，單則加一

對於位元很多的近似數，當有效位元確定後，其後面多餘的數字應該捨去，只保留有效數字最末一位，這種修約（舍入）規則是“四捨六入五成雙”，

也即“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 as16 begin17      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 @str25      /*保留小數位之後的數字*/ 26      set   @str2 = reverse(substring(reverse(@str),1,charindex( '.',reverse(@str))-1-@i)) 27      /*保留的最後以為小數 ,需注意若保留小數位元為0時，小數點的截取問題*/ 28      if @i=029         set @str3 = substring(@str,charindex( '.',@str)-1,1)30      else31         set @str3 = substring(@str,charindex( '.',@str)+1,@i) 32 33     /*符合五成雙的條件*/34     if substring(@str2,1,1)%5 = 035       begin36         if Len(@str2)>=2 and substring(@str2,2,len(@str2)-1)> 0   /*判斷5後面是否還存在不為0的數字*/37             /*若存在，則進一（注意小數點的截取問題）*/38             if @i=039                 set @str = Convert(float,substring(@str,1,charindex( '.',@str)-1+@i))+1.0/power(10,@i)40             else41                 set @str = Convert(float,substring(@str,1,charindex( '.',@str)+ @i))+1.0/power(10,@i)42         else43             /*不存在，另判斷需保留小數最後一位的奇偶數，奇數進一，偶數舍五*/44             if @str3%2=045                 /*偶數舍五 ,需注意小數點的截取問題*/46                 if @i=047                     set @str = substring(@str,1,charindex( '.',@str)-1+@i)48                 else 49                     set @str = substring(@str,1,charindex( '.',@str)+@i)50             else51                 /*奇數進一 ,需注意小數點的截取問題*/52                 if @i=053                     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       end57      /*四捨六入*/58     else 59          set @str = Convert(varchar,Round(@str,@i))60     return @str61 end