—————请注意三楼的回复———————

'需要添加一个常数声明：
Public Const Ne_BinMax As Double = 4294967296#
'然后把三楼的函数复制替换，其他自己改改就能用了。

InkHin_颜色空间转换算法

File{
         RGB2CIELAB  取值范围[0,255]   
         RGB2CIEXYZ  取值范围[0,255]
         举杯邀明月的移位操作对象库
}

公式：
                      RGB2CIEXYZ :

[X]        [0.433953    0.376219    0.189828 ]    [R]

[Y]     =  [0.212671    0.715160    0.072169 ]    [G]       （3）

[Z]        [0.017758    0.109477    0.872765 ]    [B]

[R]        [3.0799327   -1.537150   -0.542782]  [X]

[G]     =  [-0.921235   1.875992    0.0452442]  [Y]      （4）

[B]        [0.0528909  -0.204043  1.1511515  ]   [Z]

RGB2CIELAB :

CIELAB 与 RGB之间没有直接的公式可以转换，所以需要用XYZ来做中间层。

<ignore_js_op>            
其中

<ignore_js_op>

<ignore_js_op> InkHin_Cie.rar (20.39 KB, 下载次数: 2)

在后面计算使用的时候我发现了一个错误，由于我们的最终取值范围是【0,255】，
即最大值是一个八位的二进制，所以取值上我截取了二进制值的尾部八位。
但是由于LAB的计算是包括负数的，在该公式的运行中，我使用二进制移位来优化计算，
没有考虑到BIN_To_DEC 函数 （二进制转换十进制）进行操作时
将原二进制负数判断为整形4294967295+（由于返回是Long类型所以不会溢出）,导致数据计算出现问题,
解决方法很简单。如下：

设以32位最大值为 （- 1）：

1111 1111 1111 1111 1111 1111 1111 1111

十进制(为了直观）  ：

4294967293 -3

4294967294 -2

4294967295 -1

4294967296     0

4294967297  1
                
                        4294967298  2
                        
                        4294967299  3

那么正确的值 = Value  - 4294967296

————————                        ——————————

可以将Mid（）部分也顺便放进里面BIN_TO_DEC的函数里：
同时，由于A和B的值最后还要加上128 所以 (255 -128） = 127 < 255 ，计算得到的仍旧是一个八位的二进制值。

意味着我们只要从倒数第八位开始往左取四位，判断其是否 = “1111”,就可以筛选其是否为一个负数。

Code ：

Public Function BIN_to_DEC(ByVal Bin As String, Optional Mid_Value As Byte = 8) As Currency
'Mid_Value = Mid 's length
Dim i As Long, Length As Long, Ne As Boolean, Value As String
    Length = Len(Bin)
If Mid(Bin, Length - 8 - 3, 4) = "1111" Then
    Value = Mid(Bin, Length - 7, 8)
    Value = "111111111111111111111111" & Value
    Ne = True
Else
    Value = Mid(Bin, Length - (Mid_Value - 1), Mid_Value)
End If
    Length = Len(Value)
For i = 1 To Length
    BIN_to_DEC = BIN_to_DEC * 2 + Val(Mid(Value, i, 1))
Next i
Debug.Print BIN_to_DEC
If Ne = True Then BIN_to_DEC = BIN_to_DEC - Ne_BinMax
End Function