計(jì)量論壇
標(biāo)題: GB/T8170數(shù)值修約規(guī)則在Excel中的實(shí)現(xiàn) [打印本頁(yè)]
作者: aux8180 時(shí)間: 2012-11-16 17:13
標(biāo)題: GB/T8170數(shù)值修約規(guī)則在Excel中的實(shí)現(xiàn)
GB/T8170數(shù)值修約規(guī)則在Excel中的實(shí)現(xiàn)
趙靜儀 林德浩
利用Excel來(lái)進(jìn)行各種數(shù)值的統(tǒng)計(jì)分析可以極大的減輕人工計(jì)算的工作量和減少人工計(jì)算的誤差，但是依據(jù)Excel本身的計(jì)算規(guī)則，所有的數(shù)值修約都是按照“四舍五入”來(lái)進(jìn)行的。而在實(shí)際工作中，許多數(shù)據(jù)的運(yùn)算處理都必須依照GB/T8170-2008《數(shù)值修約規(guī)則與極限數(shù)值的表示和判定》中的數(shù)值修約規(guī)則進(jìn)行，在Excel中卻沒(méi)有相對(duì)應(yīng)的函數(shù)，這樣計(jì)算出來(lái)的結(jié)果就和按GB/T8170-2008的規(guī)則修約的結(jié)果產(chǎn)生了偏差。
一、GB/T8170-2008對(duì)數(shù)值修約的進(jìn)舍規(guī)則
GB/T8170-2008的數(shù)值修約進(jìn)舍規(guī)則并不是單純的“四舍五入”，而是根據(jù)不同情況進(jìn)行:
規(guī)則一:如果擬舍棄數(shù)字的最左一位數(shù)字小于5時(shí)，則舍去，即保留的各位數(shù)字不變。例1:將10.349修約到一位小數(shù)，得10.3。
規(guī)則二:如果擬舍棄數(shù)字的最左一位數(shù)字大于5，則進(jìn)一，即保留的末位數(shù)字加1。例2:將1260修約到百數(shù)位，得1300(或13×102)。
規(guī)則三:如果擬舍棄數(shù)字的最左一位數(shù)字為5，且其后有非0數(shù)字時(shí)進(jìn)一，即保留的末位數(shù)字加1。例3:將10.501修約到個(gè)數(shù)位，得11。
規(guī)則四:如果擬舍棄數(shù)字的最左一位數(shù)字為5，而右面無(wú)數(shù)字或皆為0時(shí)，若所保留的末位數(shù)字為奇數(shù)(1，3，5，7，9)則進(jìn)一，為偶數(shù)(2，4，6，8，0)則舍棄。
例4:修約間隔為0.1(或10-1)(見(jiàn)表1)
<CTSM> 表1</CTSM>
規(guī)則五:負(fù)數(shù)修約時(shí)，先將它的絕對(duì)值按規(guī)則一至四進(jìn)行修約，然后在所得值前面加上負(fù)號(hào)。
例5:修約到十?dāng)?shù)位(見(jiàn)表2)
<CTSM> 表2</CTSM>
規(guī)則六:GB/T8170-2008的修約規(guī)則中，還有0.5單位修約與0.2單位修約的情況。
0.5單位修約:將擬修約數(shù)值乘以2，然后按指定數(shù)位依以上規(guī)則一至四進(jìn)行修約，所得數(shù)值再除以2。
0.2單位修約:將擬修約數(shù)值乘以5，然后按指定數(shù)位依以上規(guī)則一至四進(jìn)行修約，所得數(shù)值再除以5。
二、Excel對(duì)數(shù)值修約的進(jìn)舍規(guī)則
Excel中的取整函數(shù)對(duì)數(shù)值的修約只有“四舍五入”的規(guī)則，當(dāng)擬舍棄數(shù)字的最左一位數(shù)字為5，而右面無(wú)數(shù)字或皆為0時(shí)，計(jì)算結(jié)果就會(huì)與GB/T8170-2008修約結(jié)果不同。
例4:修約間隔為0.1(或10-1)(見(jiàn)表3)
<CTSM> 表3</CTSM>
三、利用自定義函數(shù)在Excel中實(shí)現(xiàn)GB/T8170-2008修約規(guī)則
Excel的自定義函數(shù)是用VBA來(lái)編程的，而Visual Basic語(yǔ)言里面的ROUND()函數(shù)剛好符合上述的修約規(guī)則一至規(guī)則五，不過(guò)它只能修約小于等于單位1的修約間隔，而且缺少0.5單位和0.2單位的修約間隔，需要做一些補(bǔ)充。下面我們就用VBA來(lái)實(shí)現(xiàn)新的符合GB/T8170-2008的函數(shù)ROUNDGB()。
第一步:選擇菜單“工具→宏→Visual Basic編輯器”命令(或按下鍵盤(pán)Alt+F11組合鍵)，打開(kāi)Visual Basic窗口，我們將在這里自定義函數(shù)。
第二步:進(jìn)入Visual Basic窗口后，選擇菜單“插入→模塊”命令，于是得到“模塊1”，在其中輸入如下自定義函數(shù)的代碼:
Function ROUNDGB(number1 As Double，Optional digits1 As Integer，Optional flag1 As Double)As Double
′本程序?qū)崿F(xiàn)ROUNDGB()進(jìn)行GB/T8170-2008數(shù)值規(guī)則的修約。
′參數(shù)說(shuō)明:
number1擬進(jìn)行修約的數(shù)值(必選參數(shù))；
′digits1修約的小數(shù)位，(可選參數(shù)，默認(rèn)為0，即取整)。大于0，為保留多少位小數(shù)；小于0，為保留多少位整數(shù)。如digits1=-3表示number1要修約到千數(shù)位。
′flag1修約間隔(可選參數(shù)，默認(rèn)為1)；此參數(shù)有0.2，0.5可選，當(dāng)0.2時(shí)表示修約間隔為0.2，當(dāng)0.5時(shí)表示修約間隔為0.5。
Select Case flag1
Case 0.5
number1=number1*2′0.5單位的修約
Case 0.2
number1=number1*5′0.2單位的修約
End Select
If digits1>=0 Then
roundgb=Round(number1，digits1)′調(diào)用VB的Round函數(shù)
Else
digits2=-digits1
roundgb=Round(number1*10^digits1)*10^digits2′當(dāng)digits1為負(fù)數(shù)時(shí)的處理。
End If
Select Case flag1
Case 0.5
roundgb=roundgb/2′0.5單位的修約
Case 0.2
roundgb=roundgb/5′0.2單位的修約
End Select
End Function
第三步:函數(shù)自定義完成后，選擇菜單“文件→關(guān)閉并返回到Excel”命令，返回到Excel工作表窗口。這樣我們就可以在Excel里面調(diào)用ROUNDGB()函數(shù)了。
表4是Excel取整函數(shù)ROUND()和自定義函數(shù)ROUNDGB()取值的比較。
<CTSM> 表4</CTSM>
四、結(jié)束語(yǔ)
Excel本身“四舍五入”的數(shù)值修約規(guī)則，已經(jīng)可以滿(mǎn)足大多數(shù)日常工作，但在有明確要求使用GB/T8170修約規(guī)則的計(jì)算、測(cè)量、統(tǒng)計(jì)中，現(xiàn)有的函數(shù)則無(wú)法滿(mǎn)足要求。如果單純使用Excel公式的邏輯判斷加數(shù)值小數(shù)計(jì)算來(lái)實(shí)現(xiàn)本功能，由于Excel本身的局限性，數(shù)值計(jì)算的準(zhǔn)確度不夠，就很容易因?yàn)橄鄳?yīng)誤差而導(dǎo)致出錯(cuò)。本文使用VBA編程的方式來(lái)實(shí)現(xiàn)GB/T8170-2008數(shù)值修約規(guī)則，相對(duì)其他方法來(lái)說(shuō)比較容易實(shí)現(xiàn)和方便使用，就算是不懂得VB語(yǔ)言的人員，自定義函數(shù)一經(jīng)輸入以后，每次使用時(shí)調(diào)用ROUNDGB()函數(shù)就可以像調(diào)用其他Excel函數(shù)一樣方便。
作者單位【廣東省汕頭市質(zhì)量計(jì)量監(jiān)督檢測(cè)所】
作者: pll4681429 時(shí)間: 2016-2-18 14:52
好貼，必須要頂頂
作者: whuisvfg 時(shí)間: 2016-3-11 16:38
不錯(cuò)的函數(shù)，比我以前用過(guò)的要簡(jiǎn)潔得多。
作者: qlzswk 時(shí)間: 2016-3-29 17:11
謝謝樓主分享啊！！！！
作者: huxh 時(shí)間: 2016-4-13 15:55
謝謝分享。
作者: a492720924 時(shí)間: 2016-4-14 13:32
厲害厲害！
作者: 藍(lán)波 時(shí)間: 2016-4-16 14:38
電腦不太好，學(xué)習(xí)了
作者: lvjiachen 時(shí)間: 2023-9-15 13:24
學(xué)習(xí)了，謝謝
作者: wangyiyong7703 時(shí)間: 2023-9-15 14:24
不可能那么簡(jiǎn)單，很多特殊情況都沒(méi)有考慮。0.10000001，0.999999，修約一下。會(huì)出現(xiàn)錯(cuò)誤。如果不考慮特殊情況，何必用上ＶＢ
作者: wangyiyong7703 時(shí)間: 2023-9-16 01:01
A2輸入待修約數(shù)字，B2輸入保留小數(shù)點(diǎn)位數(shù)，C2輸入公式
IF(B2=0,IF(OR(AND(ISEVEN(INT(A2)),A2-INT(A2)=0.5),A2-INT(A2)<0.5),INT(A2),INT(A2)+1),IF(LEN(IF(OR(AND(ISEVEN(INT(A2*POWER(10,B2))),A2*POWER(10,B2)-INT(A2*POWER(10,B2))=0.5),A2*POWER(10,B2)-INT(A2*POWER(10,B2))<0.5),INT(A2*POWER(10,B2))/POWER(10,B2),(INT(A2*POWER(10,B2))+1)/POWER(10,B2)))=LEN(INT(A2)),IF(OR(AND(ISEVEN(INT(A2*POWER(10,B2))),A2*POWER(10,B2)-INT(A2*POWER(10,B2))=0.5),A2*POWER(10,B2)-INT(A2*POWER(10,B2))<0.5),INT(A2*POWER(10,B2))/POWER(10,B2),(INT(A2*POWER(10,B2))+1)/POWER(10,B2))&"."&REPT("0",B2),IF(LEN(INT(A2*POWER(10,B2)))+1>LEN((IF(OR(AND(ISEVEN(INT(A2*POWER(10,B2))),A2*POWER(10,B2)-INT(A2*POWER(10,B2))=0.5),A2*POWER(10,B2)-INT(A2*POWER(10,B2))<0.5),INT(A2*POWER(10,B2))/POWER(10,B2),(INT(A2*POWER(10,B2))+1)/POWER(10,B2)))),(IF(OR(AND(ISEVEN(INT(A2*POWER(10,B2))),A2*POWER(10,B2)-INT(A2*POWER(10,B2))=0.5),A2*POWER(10,B2)-INT(A2*POWER(10,B2))<0.5),INT(A2*POWER(10,B2))/POWER(10,B2),(INT(A2*POWER(10,B2))+1)/POWER(10,B2)))&REPT("0",LEN(INT(A2*POWER(10,B2)))-1-LEN((IF(OR(AND(ISEVEN(INT(A2*POWER(10,B2))),A2*POWER(10,B2)-INT(A2*POWER(10,B2))=0.5),A2*POWER(10,B2)-INT(A2*POWER(10,B2))<0.5),INT(A2*POWER(10,B2))/POWER(10,B2),(INT(A2*POWER(10,B2))+1)/POWER(10,B2))))),IF(OR(AND(ISEVEN(INT(A2*POWER(10,B2))),A2*POWER(10,B2)-INT(A2*POWER(10,B2))=0.5),A2*POWER(10,B2)-INT(A2*POWER(10,B2))<0.5),INT(A2*POWER(10,B2))/POWER(10,B2),(INT(A2*POWER(10,B2))+1)/POWER(10,B2)))))
作者: wangyiyong7703 時(shí)間: 2023-9-16 12:37
A2輸入待修約數(shù)值，B2輸入保留小數(shù)點(diǎn)位數(shù)，C2輸入公式。對(duì)9.9999多的情況不適用，還待改進(jìn)
IF(B2=0,IF(OR(AND(ISEVEN(INT(A2)),A2-INT(A2)=0.5),A2-INT(A2)<0.5),INT(A2),INT(A2)+1),IF(LEN(IF(OR(AND(ISEVEN(INT(A2*POWER(10,B2))),A2*POWER(10,B2)-INT(A2*POWER(10,B2))=0.5),A2*POWER(10,B2)-INT(A2*POWER(10,B2))<0.5),INT(A2*POWER(10,B2))/POWER(10,B2),(INT(A2*POWER(10,B2))+1)/POWER(10,B2)))=LEN(INT(A2)),IF(OR(AND(ISEVEN(INT(A2*POWER(10,B2))),A2*POWER(10,B2)-INT(A2*POWER(10,B2))=0.5),A2*POWER(10,B2)-INT(A2*POWER(10,B2))<0.5),INT(A2*POWER(10,B2))/POWER(10,B2),(INT(A2*POWER(10,B2))+1)/POWER(10,B2))&"."&REPT("0",B2),IF(LEN(INT(A2*POWER(10,B2)))+1>LEN((IF(OR(AND(ISEVEN(INT(A2*POWER(10,B2))),A2*POWER(10,B2)-INT(A2*POWER(10,B2))=0.5),A2*POWER(10,B2)-INT(A2*POWER(10,B2))<0.5),INT(A2*POWER(10,B2))/POWER(10,B2),(INT(A2*POWER(10,B2))+1)/POWER(10,B2)))),(IF(OR(AND(ISEVEN(INT(A2*POWER(10,B2))),A2*POWER(10,B2)-INT(A2*POWER(10,B2))=0.5),A2*POWER(10,B2)-INT(A2*POWER(10,B2))<0.5),INT(A2*POWER(10,B2))/POWER(10,B2),(INT(A2*POWER(10,B2))+1)/POWER(10,B2)))&REPT("0",LEN(INT(A2*POWER(10,B2)))-1-LEN((IF(OR(AND(ISEVEN(INT(A2*POWER(10,B2))),A2*POWER(10,B2)-INT(A2*POWER(10,B2))=0.5),A2*POWER(10,B2)-INT(A2*POWER(10,B2))<0.5),INT(A2*POWER(10,B2))/POWER(10,B2),(INT(A2*POWER(10,B2))+1)/POWER(10,B2))))),IF(OR(AND(ISEVEN(INT(A2*POWER(10,B2))),A2*POWER(10,B2)-INT(A2*POWER(10,B2))=0.5),A2*POWER(10,B2)-INT(A2*POWER(10,B2))<0.5),INT(A2*POWER(10,B2))/POWER(10,B2),(INT(A2*POWER(10,B2))+1)/POWER(10,B2)))))
作者: sunrry 時(shí)間: 2023-9-18 10:49
Function Round2(rng As Double, number As Integer) As Double
Round2 = Round(CDec(rng), number)
End Function
可以試試這個(gè)，最簡(jiǎn)潔的方法，使用CDec函數(shù)進(jìn)行強(qiáng)制轉(zhuǎn)換即可解決浮點(diǎn)小數(shù)的問(wèn)題。參見(jiàn)
http://www.bkd208.com/forum.php?mod=viewthread&tid=223427
作者: wangyiyong7703 時(shí)間: 2023-9-18 19:47
還用上VB ，如果用上VB，特殊情況大都可以解決。四舍六入的問(wèn)題的邏輯語(yǔ)言很簡(jiǎn)單，分為舍去的情況，剩下的就是進(jìn)1的情況。即末位為偶數(shù)且舍去部分剛好為整5，或小于5的情況即可。實(shí)現(xiàn)各種特殊情況的才難點(diǎn)
作者: wangyiyong7703 時(shí)間: 2023-9-18 19:48
我們力圖通過(guò)內(nèi)建函數(shù)解決，這樣一般的人都可以通過(guò)電子表格實(shí)現(xiàn)使用
作者: sunrry 時(shí)間: 2023-9-22 14:58
函數(shù)解決不了浮點(diǎn)小數(shù)的問(wèn)題，總會(huì)有特例，雖然極小概率碰到
作者: wangyiyong7703 時(shí)間: 2023-9-22 17:16
你說(shuō)一個(gè)浮點(diǎn)問(wèn)題，看這個(gè)公式能否解決。也希望你多提問(wèn)題，公式進(jìn)一步改進(jìn)，多幾個(gè)if而已
作者: fridayflyer 時(shí)間: 2023-9-23 23:24
好貼，必須要頂頂
| 歡迎光臨 計(jì)量論壇 (http://www.bkd208.com/) |
Powered by Discuz! X3.4 |
国产一区国产精品,2019中文亚洲字幕,电影在线高清,欧美精品一区二区三区久久
国产日韩欧美激情|
91麻豆6部合集magnet|
国产成人精品一区二|
中文字幕在线不卡国产视频|
亚洲女性喷水在线观看一区|
美女网站视频久久|
不卡视频在线看|
日韩一区二区三区三四区视频在线观看|
久久亚洲精精品中文字幕早川悠里|
亚洲欧美视频一区|
久久精品国产亚洲高清剧情介绍|
91麻豆成人久久精品二区三区|
欧美第一区第二区|
一区二区三区加勒比av|
国产a级毛片一区|
69久久夜色精品国产69蝌蚪网|
国产精品久久久久影院|
美腿丝袜亚洲色图|
在线观看精品一区|
中国色在线观看另类|
免费高清成人在线|
在线亚洲人成电影网站色www|
久久久国产午夜精品|
亚洲一区二区三区四区不卡|
丁香天五香天堂综合|
日韩欧美精品在线|
亚洲高清在线精品|
91丨国产丨九色丨pron|
久久久91精品国产一区二区精品|
视频精品一区二区|
在线观看av不卡|
中文字幕制服丝袜成人av|
国产自产高清不卡|
欧美一级在线视频|
天天免费综合色|
91久久精品一区二区三|
国产欧美日韩在线观看|
精久久久久久久久久久|
91精品国产综合久久久久久漫画|
日韩美女啊v在线免费观看|
国产乱国产乱300精品|
日韩你懂的在线观看|
日韩国产精品久久久久久亚洲|
在线观看免费成人|
亚洲免费av在线|
99re这里只有精品视频首页|
国产网站一区二区三区|
韩国女主播成人在线观看|
日韩欧美激情在线|
蜜桃一区二区三区在线观看|
欧美精品在线观看播放|
午夜精品久久久久久|
色嗨嗨av一区二区三区|
亚洲男女一区二区三区|
91丨九色丨黑人外教|
亚洲图片激情小说|
91在线视频播放|
亚洲欧美日韩精品久久久久|
不卡视频一二三|
亚洲欧洲av色图|
91在线观看地址|
亚洲日本在线a|
91年精品国产|
亚洲国产综合色|
欧美日韩精品一二三区|
香蕉久久夜色精品国产使用方法|
欧美性感一区二区三区|
五月激情六月综合|
91超碰这里只有精品国产|
日本成人中文字幕|
日韩亚洲欧美高清|
精品一区二区久久久|
久久久精品日韩欧美|
不卡视频在线观看|
亚洲男人天堂av|
91精品免费观看|
激情欧美一区二区|
国产欧美日韩另类一区|
99久久99久久精品免费观看|
一区二区三区美女|
日韩亚洲欧美在线|
国产99久久久久久免费看农村|
国产精品乱码妇女bbbb|
91福利在线免费观看|
日韩制服丝袜av|
亚洲精品在线观看视频|
成人免费视频视频|
一区二区欧美国产|
欧美一区二区三区免费视频|
国产精品1区2区3区|
...xxx性欧美|
欧美高清你懂得|
国产一区二区美女诱惑|
亚洲日本一区二区三区|
欧美一级xxx|
春色校园综合激情亚洲|
亚洲综合一二区|
欧美电视剧免费观看|
99久久精品一区|
日韩主播视频在线|
中文一区在线播放|
欧美日本在线一区|
成人免费观看男女羞羞视频|
亚洲影视在线播放|
久久蜜桃av一区二区天堂|
91麻豆福利精品推荐|
精品一区二区三区在线观看国产
|
欧美午夜理伦三级在线观看|
日本在线不卡视频一二三区|
国产三级欧美三级日产三级99|
日本福利一区二区|
国产综合久久久久影院|
亚洲人午夜精品天堂一二香蕉|
欧美一区二区久久|
不卡一区在线观看|
卡一卡二国产精品|
亚洲欧美一区二区三区国产精品|
日韩一区二区影院|
色婷婷av一区二区三区大白胸|
久久精品国产精品亚洲综合|
国产精品国产三级国产普通话99|
国产一区美女在线|
91精品国产福利在线观看|
久久日一线二线三线suv|
色哟哟欧美精品|
国产一区二区在线观看视频|
亚洲第一成人在线|
国产精品成人一区二区艾草|
欧美一区二区三区思思人|
99久久99久久久精品齐齐|
黄页视频在线91|
午夜精品久久久久久久久久久|
综合av第一页|
国产欧美日韩三级|
精品国产精品网麻豆系列|
欧美日韩不卡在线|
欧美制服丝袜第一页|
粉嫩aⅴ一区二区三区四区五区|
日韩二区在线观看|
亚洲女女做受ⅹxx高潮|
国产日韩精品一区二区三区|
日韩三级av在线播放|
欧美日韩一区二区三区在线
|
亚洲欧美日韩国产中文在线|
国产亚洲一区二区三区|
欧美一级黄色录像|
欧美午夜一区二区三区|
成人av电影在线观看|
国产自产2019最新不卡|
久久国产福利国产秒拍|
天天免费综合色|
亚洲chinese男男1069|
亚洲天堂av老司机|
国产精品久久久久精k8|
国产视频一区二区在线观看|
精品国产成人在线影院|
欧美一区二区网站|
欧美美女bb生活片|
欧美揉bbbbb揉bbbbb|
在线免费精品视频|
白白色 亚洲乱淫|
粉嫩av亚洲一区二区图片|
国产精品88av|
国产成人在线观看|
国产一区二区在线观看视频|
激情深爱一区二区|
激情综合色播激情啊|
麻豆91在线播放免费|
美女一区二区三区|
美女脱光内衣内裤视频久久网站|
麻豆成人免费电影|
蜜桃久久av一区|
麻豆精品国产91久久久久久|
裸体一区二区三区|
精品中文字幕一区二区小辣椒
|
国产午夜一区二区三区|
日韩精品一区二区三区swag
|
韩国欧美国产一区|
国产福利视频一区二区三区|
高清不卡在线观看av|
粉嫩高潮美女一区二区三区|
成人午夜免费电影|
jiyouzz国产精品久久|
99国产精品久久久久久久久久|
成人av电影在线播放|
色婷婷亚洲综合|
欧美人牲a欧美精品|
欧美一区二区视频在线观看|
精品国产一区二区三区久久影院|
精品国产sm最大网站免费看|
久久久亚洲高清|
国产精品久久久久一区二区三区共|
综合久久给合久久狠狠狠97色|
亚洲精品高清在线|
丝袜美腿亚洲色图|
久久99国产乱子伦精品免费|
国产精品一区二区无线|
99久久综合精品|
欧美日韩免费高清一区色橹橹|
欧美mv和日韩mv国产网站|