Green Function
Returns the Green component of the given composite color code.
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
рд╣рд░реАрдпреЛ (рд▓рдореНрдмрд╛рдЗрдХреЛ рд░реВрдкрдорд╛ рд░рдЩ)
рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:
рдЗрдиреНрдЯрд┐рдЬрд░
рдкрд░рд╛рдорд┐рддрд┐:
Color: Long integer expression that specifies a composite color code for which to return the Green component.
рдЙрджрд╛рд╣рд░рдг:
Sub ExampleColor
Dim lVar As Long
lVar = rgb(128,0,200)
msgbox "рд░рдЩ " & lVar & " рдЕрд╡рдпрд╡рд╣рд░реВ рд╕рдорд╛рд╡реЗрд╢ рдЧрд░реНрджрдЫ:" & Chr(13) &_
"рд░рд╛рддреЛ = " & рд░рд╛рддреЛ(lVar) & Chr(резрей)&_
"рд╣рд░реАрдпреЛ = " & рд╣рд░реАрдпреЛ(lVar) & Chr(резрей)&_
"рдиреАрд▓реЛ = " & рдиреАрд▓реЛ(lVar) & Chr(резрей) , ремрек,"рд░рдЩрд╣рд░реВ"
End Sub