novi član
Na probnom radu
Datum učlanjenja: 31.07.2007
Poruke: 23
Hvala: 0
7 "Hvala" u 5 poruka
|
Probaj ovo, trebalo bi da radi
Kôd:
function slova($broj) {
$sZeroValue = 'nula dinara';
$StotiFormat = ' i %2.0f/100';
$Jedinice[0]=array('', 'jedna', 'dve', 'tri', 'cetiri',
'pet', 'sest', 'sedam', 'osam', 'devet',
'deset', 'jedanaest', 'dvanaest', 'trinaest', 'cetrnajest',
'petnaest', 'sesnaest', 'sedamnaest', 'osamnaest', 'devetnaest');
$Jedinice[1]=array('', 'jedan', 'dva', 'tri', 'cetiri',
'pet', 'sest', 'sedam', 'osam', 'devet',
'deset', 'jedanaest', 'dvanaest', 'trinaest', 'cetrnajest',
'petnaest', 'sesnaest', 'sedamnaest', 'osamnaest', 'devetnaest');
$Desetice= array ('','','dvadeset', 'trideset', 'cetrdeset', 'pedeset',
'sezdeset', 'sedamdeset', 'osamdeset', 'devedeset');
$Stotine= array ('', 'sto', 'dvesta', 'trista', 'cetirsto',
'petsto', 'sesto', 'sedamsto', 'osamsto', 'devetsto');
$Prilozi[1]= array("-1"=>' dinar', 'a', '', 'a', 'a', 'a', 'a');
$Prilozi[2]= array("-1"=>'hiljad', 'a', 'a', 'e', 'e', 'e', 'a');
$Prilozi[3]= array("-1"=>'milion', 'a', '', 'a', 'a', 'a', 'a');
$Prilozi[4]= array("-1"=>'milijard', 'i', 'a', 'e', 'e', 'e', 'i');
$SignPrefix=array('', 'minus ');
$eCeo=abs(floor($broj));
$eStoti=substr(number_format($broj,2),-2);
if (!$broj || !$eCeo)
return $sZeroValue;
$res='';
$s=number_format($eCeo,0,'.','');
while ((strlen($s)%3)!=0) {
$s='0'.$s;
};
for ($x=1;$x<=4;$x++) {
$trojka=substr($s,strlen($s)-3,3);
$s=substr($s,0,strlen($s)-3);
if ($trojka=='') $trojka='000';
if ($trojka!='000') {
if (($trojka[1]=='0') || ($trojka[1]=='1'))
$temp=$Jedinice[$x % 2][($trojka[1].$trojka[2])*1];
else
$temp=$Desetice[$trojka[1]].$Jedinice[$x %2][$trojka[2]*1];
$temp=$Stotine[$trojka[0]].$temp;
if ((1*$trojka[1].$trojka[2])<=5)
$temp.=$Prilozi[$x][-1].$Prilozi[$x][1*($trojka[1].$trojka[2])];
else
$temp.=$Prilozi[$x][-1].$Prilozi[$x][5];
$res=$temp.$res;
}
};
return $res.' '.$eStoti.'/100 para';
};
Poslednja izmena od filjo : 25. 10. 2007. u 12:47.
|