下面的解决方案基于this article。如前所述，我在这里使用了2个函数，并且返回了两个函数中的数据集（3列用于RGB，1列用于十六进制）：

CREATE OR ALTER FUNCTION dbo.HSLtoRGB (@H numeric(3,0),@S numeric(4,3), @L numeric(4,3)) 
RETURNS table
AS RETURN
    SELECT CONVERT(tinyint,ROUND((RGB1.R1+m.m)*255,0)) AS R,
           CONVERT(tinyint,ROUND((RGB1.G1+m.m)*255,0)) AS G,
           CONVERT(tinyint,ROUND((RGB1.B1+m.m)*255,0)) AS B
    FROM (VALUES(@H, @S, @L))HSL(Hue,Saturation,Lightness)
         CROSS APPLY(VALUES((1-ABS((2*HSL.Lightness - 1))) * HSL.Saturation)) C(Chroma)
         CROSS APPLY(VALUES(HSL.Hue/60,C.Chroma * (1 - ABS((HSL.Hue/60) % 2 - 1))))H([H`],X)
         CROSS APPLY(SELECT TOP (1) * --It's unlikely there would be 2 rows, but just incase limit to 1
                     FROM (VALUES(C.Chroma,H.X,0,0,1),
                                 (H.X,C.Chroma,0,1,2),
                                 (0,C.Chroma,H.X,2,3),
                                 (0,H.X,C.Chroma,3,4),
                                 (H.X,0,C.Chroma,4,5),
                                 (C.Chroma,0,H.X,5,6))V(R1,G1,B1,S,E)
                    WHERE V.S <= H.[H`] AND H.[H`] <= V.E
                    ORDER BY V.E DESC) RGB1 
         CROSS APPLY (VALUES(HSL.Lightness - (C.Chroma / 2)))m(m);
GO
CREATE OR ALTER FUNCTION dbo.HSLtoRGB_HEX (@H numeric(3,0),@S numeric(4,3), @L numeric(4,3)) 
RETURNS table
AS RETURN
    SELECT CONVERT(binary(3),CONCAT(CONVERT(varchar(2),CONVERT(binary(1),CONVERT(tinyint,ROUND((RGB1.R1+m.m)*255,0))),2),
                                    CONVERT(varchar(2),CONVERT(binary(1),CONVERT(tinyint,ROUND((RGB1.G1+m.m)*255,0))),2),
                                    CONVERT(varchar(2),CONVERT(binary(1),CONVERT(tinyint,ROUND((RGB1.B1+m.m)*255,0))),2)),2) AS RGB
    FROM (VALUES(@H, @S, @L))HSL(Hue,Saturation,Lightness)
         CROSS APPLY(VALUES((1-ABS((2*HSL.Lightness - 1))) * HSL.Saturation)) C(Chroma)
         CROSS APPLY(VALUES(HSL.Hue/60,C.Chroma * (1 - ABS((HSL.Hue/60) % 2 - 1))))H([H`],X)
         CROSS APPLY(SELECT TOP(1) * --It's unlikely there would be 2 rows, but just incase limit to 1
                     FROM (VALUES(C.Chroma,H.X,0,0,1),
                                 (H.X,C.Chroma,0,1,2),
                                 (0,C.Chroma,H.X,2,3),
                                 (0,H.X,C.Chroma,3,4),
                                 (H.X,0,C.Chroma,4,5),
                                 (C.Chroma,0,H.X,5,6))V(R1,G1,B1,S,E)
                    WHERE V.S <= H.[H`] AND H.[H`] <= V.E
                    ORDER BY V.E DESC) RGB1
         CROSS APPLY (VALUES(HSL.Lightness - (C.Chroma / 2)))m(m);
GO

SELECT *
FROM (VALUES(210,.79,.3),
            (24,.83,.74),
            (360,1,1),
            (0,0,0))V(H,S,L)
     CROSS APPLY dbo.HSLtoRGB(V.H, V.S, V.L) RGB
     CROSS APPLY dbo.HSLtoRGB_Hex(V.H, V.S, V.L) RGBhex;

毕竟我是从这里重写VBA函数到SQL的
它具有以下参数：

• @色调度[0，360]
• @饱和度[0，1]
• @亮度[0，1]
• @格式（'RGB'或'HEX'）

结果是所选格式的颜色代码

create function dbo.f_convertHSL (
    @HueDegree numeric(3,0), 
    @Saturation numeric(6,3), 
    @Lightness numeric(6,3), 
    @Format varchar(3) )
returns varchar(100)
as

begin

    declare @HuePercent numeric(6,3),
            @Red numeric(6,3), 
            @Green numeric(6,3), 
            @Blue numeric(6,3),
            @Temp1 numeric(6,3), 
            @Temp2 numeric(6,3),
            @TempR numeric(6,3),
            @TempG numeric(6,3),
            @TempB numeric(6,3), 
            @Result varchar(100);

    if @Saturation = 0 
    begin
        select @Red = @Lightness * 255,
               @Green = @Lightness * 255,
               @Blue = @Lightness * 255;

        if @Format = 'RGB'
            select @Result = cast(cast(@Red as int) as varchar) + ', '
                             + cast(cast(@Green as int) as varchar) + ', '
                             + cast(cast(@Blue as int) as varchar);
        else if @Format = 'HEX'
            select @Result = '#' + convert(varchar(2), convert(varbinary(1), cast(@Red as int)), 2)
                                 + convert(varchar(2), convert(varbinary(1), cast(@Green as int)), 2)
                                 + convert(varchar(2), convert(varbinary(1), cast(@Blue as int)), 2);
        else select @Result = 'Format should be RGB or HEX';

        return @Result;
    end;

    if @Lightness < 0.5
        select @Temp1 = @Lightness * (1 + @Saturation);
    else
        select @Temp1 = @Lightness + @Saturation - @Lightness * @Saturation;

    select @Temp2 = 2 * @Lightness - @Temp1
         , @HuePercent = @HueDegree / 360.0;

    select @TempR = @HuePercent + 0.333
         , @TempG = @HuePercent
         , @TempB = @HuePercent - 0.333;

    if @TempR < 0 select @TempR = @TempR + 1;
    if @TempR > 1 select @TempR = @TempR - 1;
    if @TempG < 0 select @TempG = @TempG + 1;
    if @TempG > 1 select @TempG = @TempG - 1;
    if @TempB < 0 select @TempB = @TempB + 1;
    if @TempB > 1 select @TempB = @TempB - 1;

    if @TempR * 6 < 1 select @Red = @Temp2 + (@Temp1 - @Temp2) * 6 * @TempR
    else if @TempR * 2 < 1 select @Red = @Temp1
    else if @TempR * 3 < 2 select @Red = @Temp2 + (@Temp1 - @Temp2) * (0.666 - @TempR) * 6
    else select @Red = @Temp2;

    if @TempG * 6 < 1 select @Green = @Temp2 + (@Temp1 - @Temp2) * 6 * @TempG
    else if @TempG * 2 < 1 select @Green = @Temp1
    else if @TempG * 3 < 2 select @Green = @Temp2 + (@Temp1 - @Temp2) * (0.666 - @TempG) * 6
    else select @Green = @Temp2;

    if @TempB * 6 < 1 select @Blue = @Temp2 + (@Temp1 - @Temp2) * 6 * @TempB
    else if @TempB * 2 < 1 select @Blue = @Temp1
    else if @TempB * 3 < 2 select @Blue = @Temp2 + (@Temp1 - @Temp2) * (0.666 - @TempB) * 6
    else select @Blue = @Temp2;

    select @Red = round(@Red * 255, 0),
           @Green = round(@Green * 255, 0),
           @Blue = round(@Blue * 255, 0);

    if @Format = 'RGB'
        select @Result = cast(cast(@Red as int) as varchar) + ', '
                            + cast(cast(@Green as int) as varchar) + ', '
                            + cast(cast(@Blue as int) as varchar);
    else if @Format = 'HEX'
        select @Result = '#' + convert(varchar(2), convert(varbinary(1), cast(@Red as int)), 2)
                             + convert(varchar(2), convert(varbinary(1), cast(@Green as int)), 2)
                             + convert(varchar(2), convert(varbinary(1), cast(@Blue as int)), 2);
    else select @Result = 'Format should be RGB or HEX';

    return @Result;

end;

用法示例：
第一次
例如，可以在此处确认结果