Есть две задачи по конвертации разных форматов цвета:

1. OLE_COLOR в RGB
2. RGB в OLE_COLOR

Как я понимаю, OLE_COLOR используется исключительно в VB и все функции написаны в нем. Помогите переписать с одного языка на другой:


Private Function SwitchColor(OldCol As Long)
Dim Rval As Long, Gval As Long, Bval As Long
Rval = OldCol And 255
Gval = (OldCol And 65280) / 256
Bval = (OldCol And 16711680) / 65536
SwitchColor = (Rval * 65536) + (Gval * 256) + Bval
End Function