/ 日照市計量測試所

0 引言

在計量部門，對計量器具檢定完畢，在后續(xù)數(shù)據(jù)處理過程中，對 “四舍五入”的問題要求嚴格。為盡量把測量誤差做到最小，往往要求遵循“四舍六入，逢五奇進偶舍”原則，在手工計算的時候可以人工操作，做出取與舍的判斷。隨著計算機的不斷普及，很多計量部門都利用Excel電子表格軟件編制了相應的計量公式計算軟件。Excel處理數(shù)據(jù)中只有“四舍五入”的函數(shù)（ROUND）命令，對數(shù)值進行“四舍六入，逢五奇進偶舍”時，大眾化的Excel卻沒有提供一個滿足此要求的現(xiàn)成函數(shù)，這在很大程度上限制了人們對Excel的運用。如何解決此類問題，成了很多部門的一個現(xiàn)實難題。

1 分析

為了徹底解決此問題，首先按進位要求進行分析。根據(jù)GB/T 8170-2008《數(shù)值修約規(guī)則與極限數(shù)值的表示和判定》的要求，數(shù)值的修約采用“四舍六入”法：“4舍6入5看齊，5后有數(shù)進上去，尾數(shù)為零向左看，左數(shù)奇進偶舍棄”（5后全為零奇進偶不進）。所謂“四舍六入”，即所要的最后一位數(shù)字后的那個數(shù)字如果是4就舍去，是6就進位。所謂“逢五奇進偶舍”，即最后一位數(shù)字后的那個數(shù)字，如果是5時就進行繼續(xù)判斷，若5后面不是0，那就進位；若是0則看前一位數(shù)字，若是奇數(shù)則進位，否則舍去。經(jīng)過以上分析，可以總結(jié)為：能夠進位的情況就是兩種，第一種是：到需要取舍位置的時候，先看后面的2位數(shù)字，如果大于51，則進位。第二種是：需要取舍位置的最后一位是奇數(shù)并且后面的一位是數(shù)字5。經(jīng)過如此總結(jié)，可以得出：所有需要進位的數(shù)字，只要在需要取舍位置的最后加上49就可以了，最后需要的有效位數(shù)為奇數(shù)時，在需要取舍位置的最后加上50也可以了。

2 編程

有了上述基礎就可以進行編程了。把函數(shù)名稱定為：SWL (x, y)，x：需要奇進偶舍的數(shù)，y：保留的有效位數(shù)。具體編寫如下：

有了如上程序，只要加入到Excel中就可以隨時運用了。

具體加入方法：

1）首先打開Excel，選擇菜單“工具→宏→Visual Basic編輯器”命令(或按下鍵盤Alt+F11組合鍵 )，打開 Visual Basic 窗口。

2）進入Visual Basic窗口后，選擇菜單“插入→模塊”命令，于是得到“模塊1”，按命令格式輸入。在第一行輸入：Function SWL (x, y) As Double，然后輸入以上內(nèi)容，在最后一行輸入End Function即可。

3）函數(shù)自定義完成后，選擇菜單“文件→關閉并返回到Microsoft Excel”命令，返回到Excel工作表窗口。SWL（四舍六入）函數(shù)與Excel自帶的ROUND（四舍五入）函數(shù)使用方法完全一樣。當結(jié)果數(shù)保留到小數(shù)位時，Y為大于0的任何整數(shù)；當結(jié)果數(shù)保留到個位時，Y為0 ；當結(jié)果數(shù)保留到十位、百位時，Y為-1、-2。

4）通常自定義的函數(shù)只能在當前工作薄使用，如果該函數(shù)需要在其他工作薄中使用，則選擇菜單“文件→另存為”命令，打開“另存為”對話框，選擇保存類型為“Microsoft Excel加載宏”，然后輸入一個文件名，如“SWL”，單擊“保存”后文件就被保存為加載宏。然后選擇菜單“工具→加載宏”命令，打開“加載宏”對話框，勾選“可用加載宏”列表框中的“SWL”復選框即可，單擊“確定”按鈕后，就可以在本機上的所有工作薄中使用SWL這個自定義函數(shù)了。

5）如果想要在其他機器上使用該自定義函數(shù)，只要把上面的加載宏文件復制到其他計算機上加載宏的默認保存位置即可。

3 結(jié)語

本函數(shù)可以在Excel表中隨意運用。經(jīng)過在計量加油機軟件計算中長時間應用，證明其完全滿足要求，沒有差錯，數(shù)字位數(shù)多了也不會出現(xiàn)任何問題。

[1]劉仁釗.測量誤差與數(shù)據(jù)處理[M].武漢：武漢大學出版社，2013.

[2]全國統(tǒng)計方法應用標準化技術委員會.GB/T 8170-2008[S].北京：中國標準出版社，2008.

[3]Excel Home.Excel數(shù)據(jù)處理與分析實戰(zhàn)技巧精粹[M].北京：人民郵電出版社，2008.