[PHP]kwota słownie - błąd Opcje

[krzesik]

witam, mam poniższy kod:

[PHP] pobierz, plaintext 
                        function slownie ($kw) {
 
$t_a = array('','sto','dwieście','trzysta','czterysta','pięćset','sześćset','siedemset','osiemset','dziewięćset');
$t_b = array('','dziesięć','dwadzieścia','trzydzieści','czterdzieści','pięćdziesiąt','sześćdziesiąt','siedemdziesiąt','osiemdziesiąt','dziewięćdziesiąt');
$t_c = array('','jeden','dwa','trzy','cztery','pięć','sześć','siedem','osiem','dziewięć');
$t_d = array('dziesięć','jedenaście','dwanaście','trzynaście','czternaście','piętnaście','szesnaście','siednaście','osiemnaście','dziewiętnaście');
 
$t_kw_15 = array('septyliard','septyliardów','septyliardy');
$t_kw_14 = array('septylion','septylionów','septyliony');
$t_kw_13 = array('sekstyliard','sekstyliardów','sekstyliardy');
$t_kw_12 = array('sekstylion','sekstylionów','sepstyliony');
$t_kw_11 = array('kwintyliard','kwintyliardów','kwintyliardy');
$t_kw_10 = array('kwintylion','kwintylionów','kwintyliony');
$t_kw_9 = array('kwadryliard','kwadryliardów','kwaryliardy');
$t_kw_8 = array('kwadrylion','kwadrylionów','kwadryliony');
$t_kw_7 = array('tryliard','tryliardów','tryliardy');
$t_kw_6 = array('trylion','trylionów','tryliony');
$t_kw_5 = array('biliard','biliardów','biliardy');
$t_kw_4 = array('bilion','bilionów','bilony');
$t_kw_3 = array('miliard','miliardów','miliardy');
$t_kw_2 = array('milion','milionów','miliony');
$t_kw_1 = array('tysiąc','tysięcy','tysiące');
$t_kw_0 = array('złoty','złotych','złote');
 
  if ($kw!='') {
	$kw=(substr_count($kw,'.')==0) ? $kw.'.00':$kw;
	$tmp=explode(".",$kw);
	$ln=strlen($tmp[0]);
	$tmp_a=($ln%3==0) ? (floor($ln/3)*3):((floor($ln/3)+1)*3);
	for($i = $ln; $i < $tmp_a; $i++) {
	  $l_pad .= '0';
	  $kw_w = $l_pad . $tmp[0];
	}
	$kw_w=($kw_w=='') ? $tmp[0]:$kw_w;
	$paczki=(strlen($kw_w)/3)-1;
	$p_tmp=$paczki;
	for($i=0;$i<=$paczki;$i++) {
	  $t_tmp='t_kw_'.$p_tmp;
	  $p_tmp--;
	  $p_kw=substr($kw_w,($i*3),3);
	  $kw_w_s=($p_kw{1}!=1) ? $t_a[$p_kw{0}].' '.$t_b[$p_kw{1}].' '.$t_c[$p_kw{2}]:$t_a[$p_kw{0}].' '.$t_d[$p_kw{2}];
	  if(($p_kw{0}==0)&&($p_kw{2}==1)&&($p_kw{1}<1)) $ka=${$t_tmp}[0];  //możliwe że $p_kw{1}!=1
	  else if (($p_kw{2}>1 && $p_kw{2}<5)&&$p_kw{1}!=1) $ka=${$t_tmp}[2];
	  else $ka=${$t_tmp}[1];
	  $kw_slow.=$kw_w_s.' '.$ka.' ';
	}
  }
  $text = $kw_slow.' '.$tmp[1].'/100 gr.';
  return $text;
}
$slowniekwota =  slownie(ABS($r[kwota]));
 
 
[PHP] pobierz, plaintext 

wszystko jest ok, ale jeśli w kwocie mam np 10.20 zł to pisze: dziesięć złotych 2/100 gr.
ale jeśli jest 10.23 zł to jest dobrze - reasumując, pomija mi ostatnie zero w groszach, ale jeśli jest zero groszy to jest OK....

[nospor]

Poniewaz, czy to bedzie .2 czy .20, czy .200000 to i tak to zawsze jest .2

A dzieje sie tak, poniewaz uzywac ABS na tekscie.

ALbo wiec dopisuj jedno zero na koncu gdy liczba bedzie jednocyfrowa, albie nie uzywaj ABS i przekazuj oryginalny text

A na przyszlosc sprawdzaj jak dokladnie wyglada liczba, na ktorej operujesz na kazdym etapie to bedziesz wiedzial gdzie sie psuje

[trueblue]

Tyle, że 0.2 to nie to samo co 2/100.

Zmień sobie linijkę 48 na:

[PHP] pobierz, plaintext 
$text = $kw_slow.' '.str_pad($tmp[1],2,'0').'/100 gr.';
[PHP] pobierz, plaintext 

bo tu leży problem.

[nospor]

Tyle, że 0.2 to nie to samo co 2/100.

A czy ktos twierdzi inaczej? Wlasnie dlatego autor zglosil problem, bo zamiast 20/100 wyswietlalo mu 2/100
Napisalem jak problem rozwiazac. Twoj kod jest pokazuje to, co ja napisalem slownie

wiec dopisuj jedno zero na koncu gdy liczba bedzie jednocyfrowa