RGB값을 받아서 헥사값으로 변환해 주는 함수입니다.

너무 간단해서 주석은 달지 않았습니다.



<%

Function RGB2HTMLColor( RColor, GColor, BColor )


  Dim HexR, HexB, HexG
  Dim sTemp


  'RColor
  HexR = Hex(RColor)
  If Len(HexR) < 2 Then
   HexR = "0" & HexR
  End If

  'GColor
  HexG = Hex(GColor)
  If Len(HexG) < 2 Then
  HexG = "0" & HexG
  End if

  'BColor
  HexB = Hex(BColor)
  If Len(HexB) < 2 Then
  HexB = "0" & HexB
  End if


  RGB2HTMLColor = "#" & HexR & HexG & HexB


End Function

  Response.Write RGB2HTMLColor( 255, 100, 255 )

%>

2008/02/21 15:50 2008/02/21 15:50

Trackback Address :: https://youngsam.net/trackback/170