Skip to content
Snippets Groups Projects
Commit b8736b0a authored by Laurent Destailleur's avatar Laurent Destailleur
Browse files

Merge pull request #2457 from accett/patch-5 

Update functionsnumtoword.lib.php
parents 78e6aacd 60d334f6
Branches
Tags
No related merge requests found
Show whitespace changes
Inline Side-by-side
htdocs/core/lib/functionsnumtoword.lib.php
+ 107
− 89
View file @ b8736b0a
...@@ -16,117 +16,135 @@ ...@@ -16,117 +16,135 @@
* along with this program. If not, see <http://www.gnu.org/licenses/>. * along with this program. If not, see <http://www.gnu.org/licenses/>.
* or see http://www.gnu.org/ * or see http://www.gnu.org/
*/ */
/** /**
* \file htdocs/core/lib/functionsnumbertoword.lib.php * \file htdocs/core/lib/functionsnumbertoword.lib.php
* \brief A set of functions for Dolibarr * \brief A set of functions for Dolibarr
* This file contains all frequently used functions. * This file contains all frequently used functions.
*/ */
/** /**
* Function to return number or amount in text. * Function to return number or amount in text.
* *
* @param float $numero Number to convert * @param float $numero Number to convert
* @param Lang $langs Language * @param Lang $langs Language
* @param string $numorcurrency 'number' or 'amount' * @param string $numorcurrency 'number' or 'amount'
* @return string Text of the number * @return string Text of the number or -1 in case TOO LONG (more than 1000000000000.99)
*/ */
function dolNumberToWord($numero, $langs, $numorcurrency='number') function dolNumberToWord($numero, $langs, $numorcurrency='number')
{ {
$entexto=$numero; // If the number is negative convert to positive and return -1 if is too long
if ($numero < 0) $numero *= -1;
if ($langs->default == 'es_MX' && $numorcurrency == 'currency') if ($numero >= 1000000000001)
return -1;
// Get 2 decimals to cents, another functions round or truncate
$strnumber = number_format ($numero,10);
for ($i=0; $i<strlen($strnumber); $i++){
if ($strnumber[$i]=='.') {
$parte_decimal = $strnumber[$i+1].$strnumber[$i+2];
break;
}
}
/*In dolibarr 3.6.2 (my current version) doesn't have $langs->default and
in case exist why ask $lang like a parameter?*/
if ($langs == 'es_MX' && $numorcurrency == 'currency')
{ {
$veintis = array("VEINTE","VEINTIUN","VEINTID&OacuteS","VEINTITR&EacuteS","VEINTICUATRO","VEINTICINCO","VEINTIS&EacuteIS","VEINTISIETE","VEINTIOCHO","VEINTINUEVE");
$unidades = array("UN","DOS","TRES","CUATRO","CINCO","SEIS","SIETE","OCHO","NUEVE");
$decenas = array("","","TREINTA ","CUARENTA ","CINCUENTA ","SESENTA ","SETENTA ","OCHENTA ","NOVENTA ");
$centenas = array("CIENTO","DOSCIENTOS","TRESCIENTOS","CUATROCIENTOS","QUINIENTOS","SEISCIENTOS","SETECIENTOS","OCHOCIENTOS","NOVECIENTOS");
$number = $numero;
$parte_decimal = $numero - (int) $numero;
$parte_decimal = (int) round($parte_decimal*100);
if ($parte_decimal < 10)
$parte_decimal = "0".$parte_decimal;
$entexto ="";
if ($numero>=1 && $numero<2) { if ($numero>=1 && $numero<2) {
$entexto .= " UN PESO ".$parte_decimal." / 100 M.N."; return ("UN PESO ".$parte_decimal." / 100 M.N.");
} }
elseif ($numero>=0 && $numero<1){ elseif ($numero>=0 && $numero<1){
$entexto .= " CERO PESOS ".$parte_decimal." / 100 M.N."; return ("CERO PESOS ".$parte_decimal." / 100 M.N.");
}
elseif ($numero>=1000000 && $numero<1000001){
return ("UN MILL&OacuteN DE PESOS ".$parte_decimal." / 100 M.N.");
} }
elseif ($numero>=100 && $numero<101){ elseif ($numero>=1000000000000 && $numero<1000000000001){
$entexto .= " CIEN PESOS ".$parte_decimal." / 100 M.N."; return ("UN BILL&OacuteN DE PESOS ".$parte_decimal." / 100 M.N.");
} }
else { else {
$entexto ="";
$number = $numero;
if ($number >= 1000000000){
$CdMMillon = (int) ($numero / 100000000000);
$numero = $numero - $CdMMillon * 100000000000;
$DdMMillon = (int) ($numero / 10000000000);
$numero = $numero - $DdMMillon * 10000000000;
$UdMMillon = (int) ($numero / 1000000000);
$numero = $numero - $UdMMillon * 1000000000;
$entexto .= hundreds2text ($CdMMillon, $DdMMillon, $UdMMillon);
$entexto .= " MIL ";
}
if ($number >= 1000000){
$CdMILLON = (int) ($numero / 100000000);
$numero = $numero - $CdMILLON * 100000000;
$DdMILLON = (int) ($numero / 10000000);
$numero = $numero - $DdMILLON * 10000000;
$udMILLON = (int) ($numero / 1000000);
$numero = $numero - $udMILLON * 1000000;
$entexto .= hundreds2text ($CdMILLON, $DdMILLON, $udMILLON);
if (!$CdMMillon && !$DdMMillon && !$UdMMillon && !$CdMILLON && !$DdMILLON && $udMILLON==1)
$entexto .= " MILL&OacuteN ";
else
$entexto .= " MILLONES ";
}
if ($number >= 1000) {
$cdm = (int) ($numero / 100000); $cdm = (int) ($numero / 100000);
$numero = $numero - $cdm * 100000; $numero = $numero - $cdm * 100000;
$ddm = (int) ($numero / 10000); $ddm = (int) ($numero / 10000);
$numero = $numero - $ddm * 10000; $numero = $numero - $ddm * 10000;
$udm = (int) ($numero / 1000); $udm = (int) ($numero / 1000);
$numero = $numero - $udm * 1000; $numero = $numero - $udm * 1000;
$entexto .= hundreds2text ($cdm, $ddm, $udm);
if ($cdm || $ddm || $udm)
$entexto .= " MIL ";
}
$c = (int) ($numero / 100); $c = (int) ($numero / 100);
$numero = $numero - $c * 100; $numero = $numero - $c * 100;
$d = (int) ($numero / 10); $d = (int) ($numero / 10);
$u = (int) $numero - $d * 10; $u = (int) $numero - $d * 10;
$completo=FALSE; $entexto .= hundreds2text ($c, $d, $u);
if ($cdm==1 && $ddm==0 && $udm==0){ if (!$cdm && !$ddm && !$udm && !$c && !$d && !$u && $number>1000000)
$entexto .= "CIEN"; $entexto .= " DE";
$completo = TRUE; $entexto .= " PESOS ".$parte_decimal." / 100 M.N.";
}
if ($cdm!=0 && !$completo){
$entexto .= $centenas[$cdm-1]." ";
}
$completo=FALSE;
if ($ddm>2){
$entexto .= " ".$decenas[$ddm-1];
if ($udm!=0){
$entexto .= " Y ";
}
}
elseif ($ddm!=0){
$completo=TRUE;
if ($ddm==1){
$entexto .= " ".$diecis[$udm];
}
else{
$entexto .= " ".$veintis[$udm];
} }
return $entexto;
} }
if ($udm!=0 && !$completo){
$entexto .= $unidades[$udm-1];
}
$completo=FALSE;
if ($number>=1000){
$entexto .= " MIL ";
} }
if ($c==1 && $d==0 && $u==0){ function hundreds2text ($hundreds, $tens, $units){
$entexto .= "CIEN"; if ($hundreds==1 && $tens==0 && $units==0){
$completo = TRUE; return "CIEN";
} }
if ($c!=0 && !$completo){ $centenas = array("CIENTO","DOSCIENTOS","TRESCIENTOS","CUATROCIENTOS","QUINIENTOS","SEISCIENTOS","SETECIENTOS","OCHOCIENTOS","NOVECIENTOS");
$entexto .= $centenas[$c-1]." "; $decenas = array("","","TREINTA ","CUARENTA ","CINCUENTA ","SESENTA ","SETENTA ","OCHENTA ","NOVENTA ");
$veintis = array("VEINTE","VEINTIUN","VEINTID&OacuteS","VEINTITR&EacuteS","VEINTICUATRO","VEINTICINCO","VEINTIS&EacuteIS","VEINTISIETE","VEINTIOCHO","VEINTINUEVE");
$diecis = array("DIEZ","ONCE","DOCE","TRECE","CATORCE","QUINCE","DIECIS&EacuteIS","DIECISIETE","DIECIOCHO","DIECINUEVE");
$unidades = array("UN","DOS","TRES","CUATRO","CINCO","SEIS","SIETE","OCHO","NUEVE");
$entexto = "";
if ($hundreds!=0){
$entexto .= $centenas[$hundreds-1];
} }
if ($d>2){ if ($tens>2){
$entexto .= " ".$decenas[$d-1]; if ($hundreds!=0) $entexto .= " ";
if ($u!=0){ $entexto .= $decenas[$tens-1];
if ($units!=0){
$entexto .= " Y "; $entexto .= " Y ";
$entexto .= $unidades[$units-1];
} }
return $entexto;
} }
elseif ($d!=0){ elseif ($tens==2){
$completo=TRUE; if ($hundreds!=0) $entexto .= " ";
if ($d==1){ $entexto .= " ".$veintis[$units];
$entexto .= " ".$diecis[$u]; return $entexto;
}
else{
$entexto .= " ".$veintis[$u];
}
}
if ($u!=0 && !$completo){
$entexto .= $unidades[$u-1];
} }
$entexto .= " PESOS ".$parte_decimal." / 100 M.N."; elseif ($tens==1){
if ($hundreds!=0) $entexto .= " ";
$entexto .= $diecis[$units];
return $entexto;
} }
if ($units!=0) {
if ($hundreds!=0 || $tens!=0) $entexto .= " ";
$entexto .= $unidades[$units-1];
} }
return $entexto; return $entexto;
} }
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment