The best solution for this problem is Pear package, but if you don’t like it, you can use this PHP class for converting to Lithuanian language:
Gal = "";
$c = $this->Tukst($a, "", "", "");
$skaicius = intval($skaicius / 1000);
$a = $skaicius;
If ($a % 1000 > 0) {
$c = $this->Tukst($a, "čių", "tis", "čiai") . " tūkstan" . $this->Gal . " " . $c;
}
$skaicius = intval($skaicius / 1000);
$a = $skaicius;
If ($a % 1000 > 0) {
$c = $this->Tukst($a, "ų", "as", "ai") . " milijon" . $this->Gal . " " . $c;
}
If ($formatas == 0) {
If ($sk > 0) {
$c = trim($c) . " Lt ";
}
Else {
$c = "nulis Lt ";
}
$tmp = $this->Str((1 + $sk));
//echo "$tmp
\n";
$tmp = $tmp*100;
//echo "$tmp
\n";
////$tmp = $tmp%10000;
//echo "$tmp
\n";
$tmp = trim($tmp);
//echo "$tmp
\n";
//$tmp = mid($tmp, 1, 2);
$tmp = substr($tmp, -2);
//echo "$tmp
\n";
//$c = $c . mid(trim(Str((1 + $sk) * 100 % 1000)), 1, 2) . " ct";
$c = $c . $tmp . " ct";
}
If ($formatas == 1) {
If (Intval($sk) == 0) {
$c = "nulis";
}
$c = $c . " vienet" . $this->GG(Intval($sk));
}
$c = $this->UPPER_LT($this->Mid($c, 0, 1)) . $this->Mid($c, 1, 254);
return $c;
}
private Function Tukst($A , $G1, $G2, $G3)
{
$C = "";
$this->Gal = "";
If ($A == 0) {
//return $C;
}
$B = $A % 10;
If ($B == 0) {
$this->Gal = $G1;
}
If ($B == 1) {
$this->Gal = $G2;
}
If ($B > 1) {
$this->Gal = $G3;
}
switch ($B) {
Case 1:
$C = "vienas";
break;
Case 2:
$C = "du";
break;
Case 3:
$C = "trys";
break;
Case 4:
$C = "keturi";
break;
Case 5:
$C = "penki";
break;
Case 6:
$C = "šeši";
break;
Case 7:
$C = "septyni";
break;
Case 8:
$C = "aštuoni";
break;
Case 9:
$C = "devyni";
break;
}
$B1 = $B;
$A = Intval($A / 10);
$B = $A % 10;
If ($B == 1) {
$this->Gal = $G1;
switch ($B1) {
Case 0:
$C = "dešimt";
break;
Case 1:
$C = "vienuolika";
break;
Case 2:
$C = "dvylika";
break;
Case 3:
$C = "trylika";
break;
Case 4:
$C = "keturiolika";
break;
Case 5:
$C = "penkiolika";
break;
Case 6:
$C = "šešiolika";
break;
Case 7:
$C = "septyniolika";
break;
Case 8:
$C = "aštuoniolika";
break;
Case 9:
$C = "devyniolika";
break;
}
}
switch ($B) {
Case 2:
$C = "dvidešimt " . $C;
break;
Case 3:
$C = "trisdešimt " . $C;
break;
Case 4:
$C = "keturiasdešimt " . $C;
break;
Case 5:
$C = "penkiasdešimt " . $C;
break;
Case 6:
$C = "šešiasdešimt " . $C;
break;
Case 7:
$C = "septyniasdešimt " . $C;
break;
Case 8:
$C = "aštuoniasdešimt " . $C;
break;
Case 9:
$C = "devyniasdešimt " . $C;
break;
}
$A = Intval($A / 10);
$B = $A % 10;
switch ($B) {
Case 1:
$C = "vienas šimtas " . $C;
break;
Case 2:
$C = "du šimtai " . $C;
break;
Case 3:
$C = "trys šimtai " . $C;
break;
Case 4:
$C = "keturi šimtai " . $C;
break;
Case 5:
$C = "penki šimtai " . $C;
break;
Case 6:
$C = "šeši šimtai " . $C;
break;
Case 7:
$C = "septyni šimtai " . $C;
break;
Case 8:
$C = "aštuoni šimtai " . $C;
break;
Case 9:
$C = "devyni šimtai " . $C;
break;
}
return $C;
}
private function GG($X)
{
If (Intval($X / 10) % 10 != 1) {
switch ($X % 10)
{
Case 0:
return "ų";
break;
Case 1:
return "as";
break;
default:
return "ai";
}
}
Else {
return "ų";
}
return "";
}
private function UPPER_LT($s)
{
return strtoupper($s);
}
private function Mid($s, $from, $len) {
return substr($s, $from, $len);
}
private function Str($i)
{
return $i;
}
}
?>