PHP Suma zodziais
Iš PHP, MySQL.
09:44, 21 gegužės 2010 versija, sukurta Minde (Aptarimas | įnašas) (Naujas puslapis: Suma žodžiais PHP <pre> <? function sk_to_lt($l) { $sk1000[0] = "tûkstantis "; $sk1000[1] = "tûkstanèiai "; $sk1000[2] = "tûkstanèiø "; $sk1000000[0] = "milijonas ...)
Suma žodžiais PHP
<? function sk_to_lt($l) { $sk1000[0] = "tûkstantis "; $sk1000[1] = "tûkstanèiai "; $sk1000[2] = "tûkstanèiø "; $sk1000000[0] = "milijonas "; $sk1000000[1] = "milijonai "; $sk1000000[2] = "milijonø "; $minus = "minus "; $skaiz = ""; if ($l < 0) { $skaiz = $skaiz . $minus; $l1 = $l*(-1); } else $l1 = $l; // skaidom skaiciu $lv = $l1; settype($lv,"integer"); for ($i = 8; $i >= 0; $i--) { $ls =(integer)( $lv / 10); $ll = $lv % 10; $ld[$i] = $ll; $lv = $ls; } // rasom zodzius $skaiz = $skaiz . simtai($ld[0],$ld[1],$ld[2]); // milijonai if ($ld[1] <> 1 and $ld[2] == 1) $skaiz = $skaiz . $sk1000000[0]; if ($ld[1] <> 1 and $ld[2] <> 1 and $ld[2] <> 0) $skaiz = $skaiz . $sk1000000[1]; if ($ld[1] == 1 and $ld[2] <> 0) $skaiz = $skaiz . $sk1000000[2]; if (($ld[0] <> 0 or $ld[1] <> 0) and $ld[2] == 0) $skaiz = $skaiz . $sk1000000[2]; $skaiz = $skaiz . simtai($ld[3],$ld[4],$ld[5]); // tukstanciai if ($ld[4] <> 1 and $ld[5] == 1) $skaiz = $skaiz . $sk1000[0]; if ($ld[4] <> 1 and $ld[5] <> 1 and $ld[5] <> 0) $skaiz = $skaiz . $sk1000[1]; if ($ld[4] == 1 and $ld[5] <> 0) $skaiz = $skaiz . $sk1000[2]; if (($ld[3] <> 0 or $ld[4] <> 0) and $ld[5] == 0) $skaiz = $skaiz . $sk1000[2]; $skaiz = $skaiz . simtai($ld[6],$ld[7],$ld[8]); return ucfirst ($skaiz); } function simtai($s,$d,$v) { $sk1[0] = "vienas "; $sk1[1] = "du "; $sk1[2] = "trys "; $sk1[3] = "keturi "; $sk1[4] = "penki "; $sk1[5] = "ðeði "; $sk1[6] = "septyni "; $sk1[7] = "aðtuoni "; $sk1[8] = "devyni "; $sk1[9] = "deðimt "; $sk11[0] = "vienuolika "; $sk11[1] = "dvylika "; $sk11[2] = "trylika "; $sk11[3] = "keturiolika "; $sk11[4] = "penkiolika "; $sk11[5] = "ðeðiolika "; $sk11[6] = "septyniolika "; $sk11[7] = "aðtuoniolika "; $sk11[8] = "devyniolika "; $sk11[9] = "dvideðimt "; $sk10[0] = "deðimt "; $sk10[1] = "dvideðimt "; $sk10[2] = "trisdeðimt "; $sk10[3] = "keturiasdeðimt "; $sk10[4] = "penkiasdeðimt "; $sk10[5] = "ðeðiasdeðimt "; $sk10[6] = "septyniasdeðimt "; $sk10[7] = "aðtuoniasdeðimt "; $sk10[8] = "devyniasdeðimt "; $sk10[9] = "ðimtas "; $sk100[0] = "ðimtas "; $sk100[1] = "ðimtai "; $simtz = ""; if ($s <> 0) { $simtz = $simtz . $sk1[$s-1]; if ($s == 1) $simtz = $simtz . $sk100[0]; else $simtz = $simtz . $sk100[1]; } if ($d <> 0) { if ($d <> 1 or $v == 0) $simtz = $simtz . $sk10[$d-1]; } if ($v <> 0) { if ($d == 1) $simtz = $simtz . $sk11[$v-1]; else $simtz = $simtz . $sk1[$v-1]; } return $simtz; } ?>