Zjišťování aktuální měnových kurzů v PHP

Internet nám mimo jiné umožňuje efektivně oslovovat zákazníky z celého světa. Představme si jednu hypotetickou situaci. Máte webový obchod, ve kterém prodáváte nějaké unikátní výrobky (třeba speciální sádrové trpaslíky), které jinde sehnat nejdou. Američan si chce nějakého speciálního trpaslíka zakoupit, narazí na vaši stránku, ale místo cen v nějaké jemu známé měně (USD) vidí jen čísla doplněná zkratkou CZK nebo Kč. Jak zajistit, aby si američan mohl zobrazit cenu v amerických dolarech, a ta byla pořád aktuální?

V tomto článku si ukážeme, jak přepočítávat ceny zboží podle aktuálního kurzu. Základem je najít vhodný zdroj dat. K tomuto účelu nám vhodně poslouží stránky České národní banky, na které najdeme odkaz na textový soubor, ve kterém jsou uloženy aktuální kurzy:

http://www.cnb.cz/cs/financni_trhy/devizovy_trh/kurzy_devizoveho_trhu/denni_kurz.txt

Adresu souboru s kurzy si uložíme do konstanty SOUBOR_KURZY. Tuto konstantu je potřeba definovat před spuštěním následujících funkcí, jinak ukázka nebude fungovat.

Define("SOUBOR_KURZY", "http://www.cnb.cz/cs/financni_trhy/devizovy_trh/kurzy_devizoveho_trhu/denni_kurz.txt");

Tento soubor má velmi jednoduchý formát – na jednom řádku jsou informace o jedné měně, a to v pořadí země, název měny, množství měny, třípísmenný kód měny a kurz. Na prvním řádku je ještě informace o dni, pro který jsou kurzy platné. Pro zjištění kurzu můžeme použít následující funkci:

  function zjistiKurz($mena) {
    // vstupnim parametrem je tripismenny kod meny, jejiz kurz chceme zjistit
    $kurzy = file(SOUBOR_KURZY);
    foreach ($kurzy as $v) {
      $h = explode("|", $v);
      if ((count($h) >= 5) && ($h[3] == $mena)) {
        return $h[2]." ".$h[3]." = ".$h[4]." CZK";
      }
    }
  }

Chceme-li například zjistit, jaký je kurz pro Euro, zavoláme echo zjistiKurz("EUR");. Výsledkem je 1 EUR = 28,145 CZK.

Chceme-li převést konkrétní částku v cizí měně na české koruny, použijeme následující funkci:

  function prevedNaKoruny($mena, $mnozstvi = 1, $long = false) {
    // vstupnimi parametry jsou tripismenny kod meny a mnozstvi (vychozi hodnota je 1 jednotka)
    // a take prepinac, ktery urci, jaky chceme vystup - zda-li jen cislo ($long == false)
    // nebo "dlouhy zapis"
    $kurzy = file(SOUBOR_KURZY);
    foreach ($kurzy as $v) {
      $h = explode("|", $v);
      if (isset($h[4])) $h[4] = str_replace(",", ".", $h[4]); // prevod desetinne carky na tecku
      if ((count($h) >= 5) && ($h[3] == $mena)) {
        if ($long) return "$mnozstvi ".$h[3]." = ".($mnozstvi * $h[4] / (float)$h[2])." CZK";
        else return ($mnozstvi * $h[4] / (float)$h[2]);
      }
    }
    return -1; // zadana mena nebyla nalezena
  }

Zavoláme přepočet 10 EUR na české koruny – echo prevedNaKoruny("EUR", 10, true); a dostaneme výsledek 10 EUR = 281.45 CZK. Chtěli-li bychom výsledek vhodný například pro zobrazení v e-shopu, zavoláme funkci následovně – echo prevedNaKoruny("EUR", 10); a dostaneme pouze číselnou hodnotu 281.45.

Poslední možností je převedení finanční částky z českých korun do cizí měny.

  function prevedNaCizi($mena, $pocetKorun = 1, $long = false) {
    // vstupnimi parametry jsou tripismenny kod meny a mnozstvi korun (vychozi hodnota je 1 Kc)
    // a take prepinac, ktery urci, jaky chceme vystup - zda-li jen cislo ($long == false)
    // nebo "dlouhy zapis"
    $kurzy = file(SOUBOR_KURZY);
    foreach ($kurzy as $v) {
      $h = explode("|", $v);
      if (isset($h[4])) $h[4] = str_replace(",", ".", $h[4]); // prevod desetinne carky na tecku
      if ((count($h) >= 5) && ($h[3] == $mena)) {
        if ($long) return $pocetKorun." CZK = ".($pocetKorun / (float)$h[4] * $h[2])." $mena";
        else return ($pocetKorun / (float)$h[4] * $h[2]);
      }
    }
    return -1 // zadana mena nebyla nalezena
  }

Výše uvedená funkce nám třeba převede 100 Kč na Eura – echo prevedNaCizi("EUR", 100, true);. Výsledkem je 100 CZK = 3.55 EUR. Chtěli-li bychom, aby výstup z funkce byl použitelný například v internetové prodejně, zavoláme funkci následovně – echo prevedNaCizi("EUR", 100); – výsledkem bude jen číselná hodnota, tedy 3.55

U navštěvovanějších internetových obchodů by mohlo opakované načítání jednak zbytečně zatěžovat server ČNB, druhak způsobovat zbytečné prodlevy při zobrazování webových stránek. Proto je nanejvýš vhodné soubor s kurzy stahovat pouze čas od času – například jednou za hodinu pomocí úlohy v cronu a ve skriptech načítat lokální kopii tohoto souboru.

Kurzy exotičtějších měn

Skript je taktéž možno doplnit o možnost přepočtu kurzů exotičtějších měn – k tomu nám poslouží následující soubor:

http://www.cnb.cz/cs/financni_trhy/devizovy_trh/kurzy_ostatnich_men/kurzy.txt

Formát je stejný jako u výše uvedeného souboru, liší se jen četnost aktualizací – soubor s exotickými měnami je vydáván jednou měsíčně (vždy na konci měsíce), zatímco ostatní měny jsou aktualizovány každý pracovní den.