Pogledajte određenu poruku
Staro 25. 10. 2007.   #6
filjo
novi član
Na probnom radu
 
Datum učlanjenja: 31.07.2007
Poruke: 23
Hvala: 0
7 "Hvala" u 5 poruka
filjo is on a distinguished road
Default

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 13:47.
filjo je offline   Odgovorite uz citat
3 članova zahvaljuje filjo za poruku: