Dezimalen Farbwert nach RGB umwandeln

Hallo, weiß zufällig jemand, wie sich mit Avenue ein dezimaler Farbcode (z.B. 16711680) ins RGB-Äquivalent, in diesem Fall müßte das Blau bzw. 0/0/255 sein, umrechnen lässt?

Gruß & Merci,
Heike
Hallo Heike,

in Avenue kanst du schreiben:

lngFarbe = 12345678
lngZahl = lngFarbe

int1 = (lngZahl / 1048576).Truncate
lngZahl = lngZahl - (int1 * 1048576)
int2 = (lngZahl / 65536).Truncate
lngZahl = lngZahl - (int2 * 65536)
int3 = (lngZahl / 4096).Truncate
lngZahl = lngZahl - (int3 * 4096)
int4 = (lngZahl / 256).Truncate
lngZahl = lngZahl - (int4 * 256)
int5 = (lngZahl / 16).Truncate
lngZahl = lngZahl - (int5 * 16)
int6 = (lngZahl / 1).Truncate

MsgBox.Info( "Blau: " + (int1 * 16 + int2).AsString + ", Grün: " + (int3 * 16 + int4).AsString + ", Rot: " + (int5 * 16 + int6).AsString, "")


Gruß und schönes Wochenende

Uwe
Hallo Uwe, das funktioniert prächtig. Vielen Dank für die Unterstützung!

Sonnige Grüsse aus der Voreifel,
Heike