Recientemente en una aplicación que estoy desarrollando, me encontre con la necesidad de convertir los valores de los colores que usa visual basic a hexadecimal o rgb para poder usarlos en web. Googleando encontre el siguiente enlace en el cual se explicaba como hacerlo con visual basic, asi que basandome en la función que se explicaba desarrolle una función en PHP para poder hacerlo. Esta función la tengo publicada en Gist para el que la pueda necesitar
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| /** | |
| * vbaColorToWeb.php Class to convert VBA color to web Color | |
| * | |
| * | |
| * PHP Version 5.3 | |
| * | |
| * @author Ruben Lacasa Mas <ruben@rubenlacasa.es> | |
| * @copyright 2013 Ruben Lacasa Mas http://rubenlacasa.es | |
| * @license http://creativecommons.org/licenses/by-nc-nd/3.0 | |
| * CC-BY-NC-ND-3.0 | |
| * @link https://gist.github.com/sbarrat/5908351 | |
| */ | |
| /** | |
| * @param $color Color vba | |
| * @param bool $hex if $hex is true return hex value if not return rgb value | |
| * @return string | |
| */ | |
| function vbaColorToWeb($color, $hex = false) | |
| { | |
| $red = $color % 256; | |
| $green = ($color / 256) % 256; | |
| $blue = ($color / 256 / 256) % 256; | |
| if ($hex) { | |
| return "#".dechex($red).dechex($green).dechex($blue); | |
| } else { | |
| return "rgb(".$red.", ".$green.", ".$blue.")"; | |
| } | |
| } | |
| // Example | |
| $color = 8429680; | |
| echo vbaColorToWeb($color); // Shows rbg(112, 160, 128) | |
| echo vbaColorToWeb($color, true); // Shows #70a080 |
rubenlacasa.es 