2

15桁の顧客番号があり、その値のチェックディジットを計算する必要があります。チェックディジットを考え出すために、私はExcelを使用します（式は以下にあります）。

この式は、Luhnアルゴリズムと呼ばれるものに基づいています（これが正しいスペルだと思います）。15桁の顧客番号は、SQLServer2000データベースに保存されます。

ExcelではなくT-SQL関数を使用してこの計算を取得できるようにしたいと思います。SQL Server 2000データベース上のT-SQLでこれを行う方法を知っている人はいますか？

15桁の数字からチェックディジットを取得するExcelの数式は次のとおりです。

=MOD(SUMPRODUCT(-MID(TEXT(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1)*(MOD(ROW(INDIRECT("1:"&LEN(A2)))+LEN(A2)+1,2)+1),"00"),{1,2},1)),10)
4

4 に答える 4

5 
CREATE FUNCTION dbo.fnGetLuhn
(
    @Luhn VARCHAR(7999)
)
RETURNS VARCHAR(8000)
AS
BEGIN
    IF @Luhn LIKE '%[^0-9]%'
        RETURN @Luhn

    DECLARE @Index SMALLINT,
        @Multiplier TINYINT,
        @Sum INT,
        @Plus TINYINT

    SELECT  @Index = LEN(@Luhn),
        @Multiplier = 2,
        @Sum = 0

    WHILE @Index >= 1
        SELECT  @Plus = @Multiplier * CAST(SUBSTRING(@Luhn, @Index, 1) AS TINYINT),
            @Multiplier = 3 - @Multiplier,
            @Sum = @Sum + @Plus / 10 + @Plus % 10,
            @Index = @Index - 1

    RETURN  @Luhn + CASE WHEN @Sum % 10 = 0 THEN '0' ELSE CAST(10 - @Sum % 10 AS CHAR) END
END
于 2012-08-29T17:17:12.910 に答える
0 
declare @strCode varchar(15)
select @strCode = '123456789012345'

select
sum 
(
    (convert(int,substring(@strCode,number,1))* ((number+1) % 2 + 1) ) % 10 + 
    (convert(int,substring(@strCode,number,1))* ((number+1) % 2 + 1) ) / 10
) * 9 % 10 as checkdigit
from master.dbo.spt_values 
where type='p' and number between 1 and len (@strCode)
于 2012-08-24T21:29:27.160 に答える
0

Luhn アルゴの私の方法:

CREATE FUNCTION [dbo].[F_CHECK_LUHN] (@DATA VARCHAR(32)) 
RETURNS BIT AS 

BEGIN 
-- valeurs limites 
IF @DATA IS NULL OR @DATA = '' RETURN NULL; 

DECLARE @Cpt INT = 0;
declare @C CHAR(1);
declare @Chiffre integer=0;  
declare @Somme integer=0;
declare @parity integer;
set  @parity=LEN(@DATA) % 2;

WHILE @Cpt < LEN(@DATA)
BEGIN

   SET @C = SUBSTRING(@DATA, @Cpt+1, 1);

    IF @C NOT BETWEEN '0' AND '9' RETURN NULL;

    set @Chiffre=CAST(@C AS SMALLINT);

    if ((@Cpt % 2) =@parity)
    begin
    set @Chiffre=@Chiffre*2;

        if (@Chiffre>9)
        begin
        set @Chiffre=@Chiffre-9;
        end;

    end;

    set @Somme=@Somme+@Chiffre;

    SET @Cpt = @Cpt + 1;
END;

RETURN CASE WHEN @Somme % 10 = 0 THEN 1 ELSE 0 end ;

END;
于 2017-12-31T11:41:12.663 に答える