免费视频淫片aa毛片_日韩高清在线亚洲专区vr_日韩大片免费观看视频播放_亚洲欧美国产精品完整版

打開APP
userphoto
未登錄

開通VIP,暢享免費電子書等14項超值服

開通VIP
delphi 將身份證的15位號碼升級為18位的算法

delphi 將身份證的15位號碼升級為18位的算法

時間:2011-5-24來源:yang 作者: peng點擊: 80次

1、號碼的結構
公民身份號碼是特征組合碼,由十七位數(shù)字本體碼和一位校驗碼組成。排列順序從左至右依次為:六位數(shù)字地址碼,八位數(shù)字出生日期碼,三位數(shù)字順序碼和一位數(shù)字校驗碼。

2、地址碼
表示編碼對象常住戶口所在縣(市、旗、區(qū))的行政區(qū)劃代碼,按GB/T2260的規(guī)定執(zhí)行。(所有區(qū)域的編碼可以到這個網(wǎng)站http://www.stats.gov.cn/tjbz/index.htm查詢到最新的縣及縣以上的行政編碼資料。)

3、出生日期碼
表示編碼對象出生的年、月、日,按GB/T7408的規(guī)定執(zhí)行,年、月、日代碼之間不用分隔符。

4、順序碼
表示在同一地址碼所標識的區(qū)域范圍內,對同年、同月、同日出生的人編定的順序號,順序碼的奇數(shù)分配給男性,偶數(shù)分配給女性。

5、校驗碼
第十八位數(shù)字的計算方法為:
1.將前面的身份證號碼17位數(shù)分別乘以不同的系數(shù)。從第一位到第十七位的系數(shù)分別為:7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2
2.將這17位數(shù)字和系數(shù)相乘的結果相加。
3.用加出來和除以11,看余數(shù)是多少
4.余數(shù)只可能有0 1 2 3 4 5 6 7 8 9 10這11個數(shù)字。其分別對應的最后一位身份證的號碼為1 0 X 9 8 7 6 5 4 3 2。
5.通過上面得知如果余數(shù)是2,就會在身份證的第18位數(shù)字上出現(xiàn)羅馬數(shù)字的Ⅹ。如果余數(shù)是10,身份證的最后一位號碼就是2。

例如:某男性的身份證號碼是34052419800101001X。我們要看看這個身份證是不是合法的身份證。
首先:我們得出,前17位的乘積和是189
然后:用189除以11得出的結果是17 + 2/11,也就是說余數(shù)是2。
最后:通過對應規(guī)則就可以知道余數(shù)2對應的數(shù)字是x。所以,這是一個合格的身份證號碼。

Create FUNCTION [dbo].[ID15TO18] (@id15 char(15))
/*功能:將身份證的15位號碼升級為18位

 
--
-- --調用函數(shù)
-- update
--     表
-- set
--     身份證號 = dbo.ID15TO18(身份證號)
-- where
--     LEN(身份證號) = 15
--
--
*/
RETURNS CHAR(18)
AS
BEGIN
    DECLARE @ID18 CHAR(18)
   
    DECLARE @S1 AS INTEGER
    DECLARE @S2 AS INTEGER
    DECLARE @S3 AS INTEGER
    DECLARE @S4 AS INTEGER
    DECLARE @S5 AS INTEGER
    DECLARE @S6 AS INTEGER
    DECLARE @S7 AS INTEGER
    DECLARE @S8 AS INTEGER
    DECLARE @S9 AS INTEGER
    DECLARE @S10 AS INTEGER
    DECLARE @S11 AS INTEGER
    DECLARE @S12 AS INTEGER
    DECLARE @S13 AS INTEGER
    DECLARE @S14 AS INTEGER
    DECLARE @S15 AS INTEGER
    DECLARE @S16 AS INTEGER
    DECLARE @S17 AS INTEGER
    DECLARE @S18 AS INTEGER
   
    SET @S1=SUBSTRING(@ID15,1,1)
    SET @S2=SUBSTRING(@ID15,2,1)
    SET @S3=SUBSTRING(@ID15,3,1)
    SET @S4=SUBSTRING(@ID15,4,1)
    SET @S5=SUBSTRING(@ID15,5,1)
    SET @S6=SUBSTRING(@ID15,6,1)
    SET @S7=1
    SET @S8=9
    SET @S9=SUBSTRING(@ID15,7,1)
    SET @S10=SUBSTRING(@ID15,8,1)
    SET @S11=SUBSTRING(@ID15,9,1)
    SET @S12=SUBSTRING(@ID15,10,1)
    SET @S13=SUBSTRING(@ID15,11,1)
    SET @S14=SUBSTRING(@ID15,12,1)
    SET @S15=SUBSTRING(@ID15,13,1)
    SET @S16=SUBSTRING(@ID15,14,1)
    SET @S17=SUBSTRING(@ID15,15,1)
   
    SET @S18=((@S1*7)+(@S2*9)+(@S3*10)+(@S4*5)+(@S5*8)+(@S6*4)+(@S7*2)+(@S8*1)
        +(@S9*6)+(@S10*3)+(@S11*7)+(@S12*9)+(@S13*10)+(@S14*5)+(@S15*8)+(@S16
        *4)+(@S17*2))%11
   
    SET @ID18=SUBSTRING(@ID15,1,6)+‘19‘+SUBSTRING(@ID15,7,9)
        +CASE WHEN @S18=0 THEN ‘1‘
              WHEN @S18=1 THEN ‘0‘
              WHEN @S18=2 THEN ‘X‘
              WHEN @S18=3 THEN ‘9‘
              WHEN @S18=4 THEN ‘8‘
              WHEN @S18=5 THEN ‘7‘
              WHEN @S18=6 THEN ‘6‘
              WHEN @S18=7 THEN ‘5‘
              WHEN @S18=8 THEN ‘4‘
              WHEN @S18=9 THEN ‘3‘
              WHEN @S18=10 THEN ‘2‘
         END
   
    RETURN @ID18
END  

本站僅提供存儲服務,所有內容均由用戶發(fā)布,如發(fā)現(xiàn)有害或侵權內容,請點擊舉報。
打開APP,閱讀全文并永久保存 查看更多類似文章
猜你喜歡
類似文章
將身份證的15位號碼升級為18位
sql 根據(jù)身份證獲得省,市,區(qū),出生年月,性別
SQL Server 2005 存儲過程不支持數(shù)組類型參數(shù)的變通辦法
分頁存儲過程二
第一個存儲過程
SQL Server生成訂單號
更多類似文章 >>
生活服務
分享 收藏 導長圖 關注 下載文章
綁定賬號成功
后續(xù)可登錄賬號暢享VIP特權!
如果VIP功能使用有故障,
可點擊這里聯(lián)系客服!

聯(lián)系客服