RE: [Coffeehouse] Farbe invertieren

[Claudius Ceteras]

I like it that way (unchecked):

Funtion InvHTMLColor(strColor)
        dim R,G,B
        R = right("0" & Hex(255 - "&H"&mid(strColor,1,2)),2)
        G = right("0" & Hex(255 - "&H"&mid(strColor,3,2)),2)
        B = right("0" & Hex(255 - "&H"&mid(strColor,5,2)),2)
        InvHTMLColor = R & G & B
End Function


Claudius

_______________________________________________
Coffeehouse mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/coffeehouse