2011年11月15日 星期二

ASP 16進位轉成10進位

為了將色碼轉成RGB,費了一些功夫。

假設色碼為 #123456。
那麼ASP照這樣寫就可以轉了。

Red = CLng("&h" & (mid("#123456",2,2)))
Green = CLng("&h" & (mid("#123456",4,2)))
Blue = CLng("&h" & (Right("#123456",2)))



其實就跟VB一樣,參考以下網址
http://www.programmer-club.com.tw/ShowSameTitleN/vb/26403.html

沒有留言: