狠狠色丁香婷婷综合尤物/久久精品综合一区二区三区/中国有色金属学报/国产日韩欧美在线观看 - 国产一区二区三区四区五区tv

'tmpHexColor-十六進制顏色，以#開頭；tmpValue-正數減淡、負數加深，一般取60-80才會有明顯的變化

function changeColorDeep(tmpHexColor, tmpValue)

changeColorDeep=tmpHexColor

if left(tmpHexColor &"CS",1)="#" then

tmp_hexval = right(tmpHexColor,6)

tmp_rgbval = CLng("&h" & tmp_hexval)

tmp_r_RGB = (tmp_rgbval And &hff0000&)/65536+(tmpValue)

tmp_g_RGB= (tmp_rgbval And &h00ff00&)/256+(tmpValue)

tmp_b_RGB= (tmp_rgbval And &h0000ff&)+(tmpValue)

if not len(tmp_r_RGB)=0 and not len(tmp_g_RGB)=0 and not len(tmp_b_RGB)=0 and isnumeric(tmp_r_RGB) and isnumeric(tmp_g_RGB) and isnumeric(tmp_b_RGB) then

if cint(tmp_r_RGB)<0 then tmp_r_RGB=0

if cint(tmp_r_RGB)>255 then tmp_r_RGB=255

if cint(tmp_g_RGB)<0 then tmp_g_RGB=0

if cint(tmp_g_RGB)>255 then tmp_g_RGB=255

if cint(tmp_b_RGB)<0 then tmp_b_RGB=0

if cint(tmp_b_RGB)>255 then tmp_b_RGB=255

tmp_r_HEX=hex(tmp_r_RGB)

tmp_g_HEX=hex(tmp_g_RGB)

tmp_b_HEX=hex(tmp_b_RGB)

if len(tmp_r_HEX)=1 then tmp_r_HEX="0" & tmp_r_HEX

if len(tmp_g_HEX)=1 then tmp_g_HEX="0" & tmp_g_HEX

if len(tmp_b_HEX)=1 then tmp_b_HEX="0" & tmp_b_HEX

changeColorDeep="#" & tmp_r_HEX & tmp_g_HEX & tmp_b_HEX

else

changeColorDeep="#000000"

end if

end if

end function