Достать курс валют по ЦБ

function GetRateFromCBR($CURRENCY)
{
    global $DB;
    global $APPLICATION;

    CModule::IncludeModule('currency');

    $QUERY_STR = $DATE_RATE = "";
    #$date_req = date("d/m/Y", AddToTimeStamp(array("DD"=>1), mktime())); // +1 day
    $date_req = date("d/m/Y", mktime());

    //делаем запрос к www.cbr.ru с просьбой отдать курс на нынешнюю дату
    $strQueryText = QueryGetData("www.cbr.ru", 80, "/scripts/XML_daily.asp?date_req=".$date_req, $QUERY_STR, $errno, $errstr);

    //получаем XML и конвертируем в кодировку сайта
    $charset = "windows-1251";
    if (preg_match("/<"."\?XML[^>]{1,}encoding=[\"']([^>\"']{1,})[\"'][^>]{0,}\?".">/i", $strQueryText, $matches))
    {
        $charset = Trim($matches[1]);
    }
    $strQueryText = eregi_replace("<!DOCTYPE[^>]{1,}>", "", $strQueryText);
    $strQueryText = eregi_replace("<"."\?XML[^>]{1,}\?".">", "", $strQueryText);
    $strQueryText = $APPLICATION->ConvertCharset($strQueryText, $charset, SITE_CHARSET);

    require_once($_SERVER["DOCUMENT_ROOT"]."/bitrix/modules/main/classes/general/xml.php");

    //парсим XML
    $objXML = new CDataXML();
    $res = $objXML->LoadString($strQueryText);
    if($res !== false)
        $arData = $objXML->GetArray();
    else
        $arData = false;

    $NEW_RATE=Array();

    //получаем курс нужной валюты $CURRENCY
    if (is_array($arData) && count($arData["ValCurs"]["#"]["Valute"])>0)
    {
        for ($j1 = 0; $j1<count($arData["ValCurs"]["#"]["Valute"]); $j1++)
        {
            if ($arData["ValCurs"]["#"]["Valute"][$j1]["#"]["CharCode"][0]["#"]==$CURRENCY)
            {
                $NEW_RATE['CURRENCY']=$CURRENCY;
                $NEW_RATE['RATE_CNT'] = IntVal($arData["ValCurs"]["#"]["Valute"][$j1]["#"]["Nominal"][0]["#"]);
                $NEW_RATE['RATE'] = DoubleVal(str_replace(",", ".", $arData["ValCurs"]["#"]["Valute"][$j1]["#"]["Value"][0]["#"]));
                $NEW_RATE['DATE_RATE']=$DATE_RATE;
                break;
            }
        }
    }

    //$NEW_RATE["RATE"] = 81.84;

    return $NEW_RATE["RATE"];
}