number to words

function numtowordscrisdev($num){
        $num = $_GET['test'];
        $decones = array(
            '1' => "One",
            '2' => "Two",
            '3' => "Three",
            '4' => "Four",
            '5' => "Five",
            '6' => "Six",
            '7' => "Seven",
            '8' => "Eight",
            '9' => "Nine",
            10 => "Ten",
            11 => "Eleven",
            12 => "Twelve",
            13 => "Thirteen",
            14 => "Fourteen",
            15 => "Fifteen",
            16 => "Sixteen",
            17 => "Seventeen",
            18 => "Eighteen",
            19 => "Nineteen"
        );
        $ones = array(
            0 => " ",
            1 => "One",
            2 => "Two",
            3 => "Three",
            4 => "Four",
            5 => "Five",
            6 => "Six",
            7 => "Seven",
            8 => "Eight",
            9 => "Nine",
            10 => "Ten",
            11 => "Eleven",
            12 => "Twelve",
            13 => "Thirteen",
            14 => "Fourteen",
            15 => "Fifteen",
            16 => "Sixteen",
            17 => "Seventeen",
            18 => "Eighteen",
            19 => "Nineteen"
        );
        $tens = array(
            0 => "",
            2 => "Twenty",
            3 => "Thirty",
            4 => "Forty",
            5 => "Fifty",
            6 => "Sixty",
            7 => "Seventy",
            8 => "Eighty",
            9 => "Ninety",
        );
        $hundreds = array(
            "Hundred",
            "Thousand",
            "Million",
            "Billion",
            "Trillion",
            "Quadrillion"
        ); //limit t quadrillion
        $num = number_format($num,2,".",",");
        $num_arr = explode(".",$num);
        $wholenum = $num_arr[0];
        $decnum = $num_arr[1];
        $whole_arr = array_reverse(explode(",",$wholenum));
        krsort($whole_arr);
        $rettxt = "";
        foreach($whole_arr as $key => $i){
//            die(printa($whole_arr));
            if($i < 20){
                if(substr($i,1,2) < 20){
                    if(substr($i,1,2) < 10){
                        $rettxt .= $ones[$i];
                        $rettxt .= "".$ones[substr($i,1,2)];

                        $rettxt .= " ".$decones[substr($i,2,1)];
                       // var_dump(substr($i,2,1));
                    }else{
                        $rettxt .= $ones[$i];
                        $rettxt .= "".$ones[substr($i,1,2)];
                        $rettxt .= " ".$decones[substr($i,3,1)];
                    }
                }else{
                    $rettxt .= $ones[$i];
                    $rettxt .= "".$ones[substr($i,2,1)];
                    $rettxt .= " ".$decones[substr($i,3,1)];
                }

            }elseif($i < 100){
                $rettxt .= $tens[substr($i,0,1)];
                if(substr($i,1,2) < 20 && substr($i,1,2) != 0){
                    $rettxt .= " ".$ones[substr($i,1,2)];
                    $rettxt .= " ".$ones[substr($i,2,1)];
                    $rettxt .= " ".$decones[substr($i,3,1)];
                }elseif(substr($i,1,2) != 0){
                    $rettxt .= " ".$tens[substr($i,1,1)];
                    $rettxt .= " ".$ones[substr($i,2,1)];
                    $rettxt .= " ".$decones[substr($i,3,1)];
                }
            }else{
                $rettxt .= $ones[substr($i,0,1)]." ".$hundreds[0];
                if(substr($i,1,2) < 20 && substr($i,1,2) != 0){
                    if(substr($i,1,2) < 10){
                        //var_dump(substr($i,1,2));
                        $rettxt .= " ".$ones[substr($i,1,2)];
                        $rettxt .= " ".$ones[substr($i,2,1)];
                    }else{
                        //var_dump(substr($i,1,2));
                        $rettxt .= " ".$ones[substr($i,1,2)];
                        //$rettxt .= " ".$ones[substr($i,2,1)];
                        $rettxt .= " ".$decones[substr($i,3,1)];
                    }
                }elseif(substr($i,1,2) != 0){
                    $rettxt .= " ".$tens[substr($i,1,1)];
                    $rettxt .= " ".$ones[substr($i,2,1)];
                    $rettxt .= " ".$decones[substr($i,3,1)];
                }elseif (substr($i,1,3)!=0){
                    $rettxt .= " ".$tens[substr($i,1,1)];
                    $rettxt .= " ".$ones[substr($i,2,1)];
                    $rettxt .= " ".$decones[substr($i,3,1)];

                }


            }
            if($key > 0){
                $rettxt .= " ".$hundreds[$key]." ";
            }
        }
        $rettxt = $rettxt." pesos";

        if($decnum > 0){
            $rettxt .= " and ";
            if($decnum < 20){
                $rettxt .= $decones[$decnum];
            }
            elseif($decnum < 100){
                $rettxt .= $tens[substr($decnum,0,1)];
                $rettxt .= " ".$ones[substr($decnum,1,1)];
            }
            $rettxt = $rettxt." cents only";
        }else{
            $rettxt = $rettxt." and 0/100 only";
        }
        return $rettxt;

    }