Temat: zamiana cyferek na słowa
Czesc,
Kiedyś też szukalem informacji i wskazowek jak cos takiego zrobic kiedy pisalem generator faktur pro forma i w efekcie wyszlo cos takiego:
function num2word($liczba) {
$liczba = str_replace(",", ".", $liczba);
$liczba = number_format($liczba, 2, ",", "");
$kwota=explode(",", $liczba);
$kwotazl=sprintf("%012d",$kwota[0]);
$kwotagr=sprintf("%03d",$kwota[1]);
$txt .= policz(substr($kwotazl, 0,3),"miliard","miliardy","miliardów");
$txt .= policz(substr($kwotazl, 3,3),"milion","miliony","milionów");
$txt .= policz(substr($kwotazl, 6,3),"tysiąc","tysiące","tysięcy");
$txt .= policz(substr($kwotazl, 9,3),"złoty","złote","złotych");
if ($kwotazl==0) $txt .= "zero złotych ";
$txt .= " i ";
$txt .= policz($kwotagr,"grosz","grosze","groszy");
if ($kwotagr==0) $txt .= "zero groszy";
return $txt;
}
function policz($l,$t1,$t2,$t3) {
//jedności
$j = array("", "jeden ", "dwa ", "trzy ", "cztery ", "pięć ", "sześć ",
"siedem ", "osiem ", "dziewięć ", "dziesięć ", "jedenaście ",
"dwanaście ", "trzynaście ", "czternaście ", "piętnaście ",
"szesnaście ", "siedemnaście ", "osiemnaście ", "dziewiętnaście ");
//dziesiątki
$d = array("", "", "dwadzieścia ", "trzydzieści ", "czterdzieści ",
"pięćdziesiąt ", "sześćdziesiąt ", "siedemdziesiąt ",
"osiemdziesiąt ", "dziewięćdziesiąt ");
//stówki
$s = array("","sto ", "dwieście ", "trzysta ", "czterysta ", "pięćset ",
"sześćset ", "siedemset ", "osiemset ", "dziewięćset ");
$txt = $s[0+substr($l,0,1)];
if (substr($l,1,2)20 or substr($l,1,2)
Piotrek M. edytował(a) ten post dnia 12.12.08 o godzinie 00:00