PHP Suma zodziais

Iš PHP, MySQL.
Peršokti į: navigaciją, paiešką

Suma žodžiais PHP

<?php
function sk_to_lt($l) {

  $sk1000[0] = "tûkstantis ";
  $sk1000[1] = "tûkstanèiai ";
  $sk1000[2] = "tûkstanèiø ";

  $sk1000000[0] = "milijonas ";
  $sk1000000[1] = "milijonai ";
  $sk1000000[2] = "milijonø ";

  $minus = "minus ";
  $skaiz = "";

  if ($l < 0) {
    $skaiz = $skaiz . $minus;
    $l1 = $l*(-1); 
  }
  else $l1 = $l;

// skaidom skaiciu
  $lv = $l1; 

  settype($lv,"integer"); 
  for ($i = 8; $i >= 0; $i--) {
    $ls =(integer)( $lv / 10);
    $ll = $lv % 10;
    $ld[$i] = $ll;
    $lv = $ls; 

    }
// rasom zodzius
  $skaiz = $skaiz . simtai($ld[0],$ld[1],$ld[2]);

// milijonai
  if ($ld[1] <> 1 and $ld[2] == 1)
    $skaiz = $skaiz . $sk1000000[0];
  if ($ld[1] <> 1 and $ld[2] <> 1 and $ld[2] <> 0)
    $skaiz = $skaiz . $sk1000000[1];
  if ($ld[1] == 1 and $ld[2] <> 0)
    $skaiz = $skaiz . $sk1000000[2];
  if (($ld[0] <> 0 or $ld[1] <> 0) and $ld[2] == 0)
    $skaiz = $skaiz . $sk1000000[2];

  $skaiz = $skaiz . simtai($ld[3],$ld[4],$ld[5]);

// tukstanciai
  if ($ld[4] <> 1 and $ld[5] == 1)
    $skaiz = $skaiz . $sk1000[0];
  if ($ld[4] <> 1 and $ld[5] <> 1 and $ld[5] <> 0)
    $skaiz = $skaiz . $sk1000[1];
  if ($ld[4] == 1 and $ld[5] <> 0)
    $skaiz = $skaiz . $sk1000[2];
  if (($ld[3] <> 0 or $ld[4] <> 0) and $ld[5] == 0)
    $skaiz = $skaiz . $sk1000[2];

  $skaiz = $skaiz . simtai($ld[6],$ld[7],$ld[8]);

  return ucfirst ($skaiz); 
  }

function simtai($s,$d,$v) {
  $sk1[0] = "vienas ";
  $sk1[1] = "du ";
  $sk1[2] = "trys ";
  $sk1[3] = "keturi ";
  $sk1[4] = "penki ";
  $sk1[5] = "ðeði ";
  $sk1[6] = "septyni ";
  $sk1[7] = "aðtuoni ";
  $sk1[8] = "devyni ";
  $sk1[9] = "deðimt ";
  $sk11[0] = "vienuolika ";
  $sk11[1] = "dvylika ";
  $sk11[2] = "trylika ";
  $sk11[3] = "keturiolika ";
  $sk11[4] = "penkiolika ";
  $sk11[5] = "ðeðiolika ";
  $sk11[6] = "septyniolika ";
  $sk11[7] = "aðtuoniolika ";
  $sk11[8] = "devyniolika ";
  $sk11[9] = "dvideðimt ";
  $sk10[0] = "deðimt ";
  $sk10[1] = "dvideðimt ";
  $sk10[2] = "trisdeðimt ";
  $sk10[3] = "keturiasdeðimt ";
  $sk10[4] = "penkiasdeðimt ";
  $sk10[5] = "ðeðiasdeðimt ";
  $sk10[6] = "septyniasdeðimt ";
  $sk10[7] = "aðtuoniasdeðimt ";
  $sk10[8] = "devyniasdeðimt ";
  $sk10[9] = "ðimtas ";
  $sk100[0] = "ðimtas ";
  $sk100[1] = "ðimtai ";

  $simtz = "";

  if ($s <> 0) {
    $simtz = $simtz . $sk1[$s-1];
    if ($s == 1)
      $simtz = $simtz . $sk100[0];
    else
      $simtz = $simtz . $sk100[1];
    }

  if ($d <> 0) {
    if ($d <> 1 or $v == 0)
      $simtz = $simtz . $sk10[$d-1];
    }

  if ($v <> 0) {
    if ($d == 1)
      $simtz = $simtz . $sk11[$v-1];
    else
      $simtz = $simtz . $sk1[$v-1];
    }
  return $simtz;
  }
 ?>