cifre u brojeve, za fakture i sl. obracune?

[LiquidBrain]

U R welcome Samo sto ti ne dodaje ono dinara na kraju... jer mi je trebalo za razlicite valute... Inace zbog padza trebas samo da vidis koja je zadnja cifra pa na osnovu nje da odredis da li ce da stoji dinar ili dinara.

Ako je 1 onda je dinar
ako je 5 onda je dinara

Pozdrav.

[filjo]

Probaj ovo, trebalo bi da radi

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';
};