公司統一編號驗證
國稅局目前網頁上不提供，這是從其他部落格找到的，我稍微修改過。
工具：PowerBuilder
先來看一段驗證公式(來源：酷！學園)：
以下是powerbuilder版本的程式碼
先建立一個 function 物件 f_checktaxid , 回傳值為 Boolean
傳入參數為 as_taxid 型態為 String
程式碼如下：
程式看起來就沒那麼複雜咧?
工具：PowerBuilder
先來看一段驗證公式(來源：酷！學園)：
(一) 長度：共八位，，全部為數字型態。
(二) 計算公式
１、各數字分別乘以１,２,１,２,４,１。
２、公式如下:
＿Ｄ１Ｄ２Ｄ３Ｄ４Ｄ５Ｄ６Ｄ７Ｄ８
ｘ １ ２ １ ２ １ ２ ４ １ (第一列 * 第二列)
＿Ａ１Ｂ１Ａ２Ｂ２Ａ３Ｂ３Ａ４Ｂ４ (Ｂx：相乘後的十位數)
＋ Ｃ１ Ｃ２ Ｃ３ Ｃ４ (Ｃx：相乘後的個位數)
＿Ｘ１Ｘ２Ｘ３Ｘ４Ｘ５Ｘ６Ｘ７Ｘ８ (Ｘx：相加後的十位數)
＋ Ｙ７ (Ｙx：相加後的個位數)
Ｚ１＝Ｘ１＋Ｘ２＋Ｘ３＋Ｘ４＋Ｘ５＋Ｘ６＋Ｘ７＋Ｘ８ 或
Ｚ１＝Ｘ１＋Ｘ２＋Ｘ３＋Ｘ４＋Ｘ５＋Ｘ６＋Ｙ７＋Ｘ８
３、當第 7 位數為 7 者，可取相加之倒數第二位取 0 及 1 來計算如 Ｚ１ 及 Ｚ２ 計算其和。
４、假如 Ｚ１ 或 Ｚ２ 能被 10 整除，則表示營利事業統一編號正確。
(三) 範例 ( 以 ００２３８７７８ 為例 )以上如果你可以馬上看得懂，我真的很佩服你。
＿００２３８７７８
ｘ１２１２１２４１ (第一列 * 第二列)
＿００２６８１２８ (Ｂx：相乘後的十位數)
＋ ４８ (Ｃx：相乘後的個位數)
＿００２６８５１８ (Ｘx：相加後的十位數)
＋ ０ (Ｙx：相加後的個位數)
Ｚ１＝０＋０＋２＋６＋８＋５＋１＋８＝３０或
Ｚ２＝０＋０＋２＋６＋８＋５＋０＋８＝２９
因 30 能被 10 整除，故營利事利統一編號正確。
以下是powerbuilder版本的程式碼
先建立一個 function 物件 f_checktaxid , 回傳值為 Boolean
傳入參數為 as_taxid 型態為 String
程式碼如下：
//********************************************************
// 統一編號驗證
//********************************************************
// 輸入統一編號字串，合法字串者回傳true，否則為false
// Argument:
// as_taxid : String 統一編號字串
// Return:
// Boolean : 合法為true,否則為false
//********************************************************
integer li_base[8] = {1,2,1,2,1,2,4,1} // 積數
integer li_no , li_tmp
Long ll_totl
// 檢查NULL值
if isnull(as_taxid) then Return false
// 檢查是否為8位元數字
if not IsAllArabic(as_taxid) or len(as_taxid) <> 8 then Return false
// 乘上積數並總和
for li_no = 1 to 8
li_tmp = integer(mid(as_taxid , li_no , 1)) * li_base[li_no]
ll_totl += truncate(li_tmp / 10 , 0) + mod(li_tmp , 10)
next
// 驗證總和值
if (mod(ll_totl , 10) = 0) OR (mod(ll_totl , 10) = 9 AND mid(as_taxid , 7 , 1) = "7") then
// 合法
Return True
end if
Return false程式看起來就沒那麼複雜咧?
留言