forked from Wavyzz/dolibarr
133 lines
4.1 KiB
PHP
133 lines
4.1 KiB
PHP
<?php
|
|
/* Copyright (C) 2015 Laurent Destailleur <eldy@users.sourceforge.net>
|
|
* Copyright (C) 2015 Víctor Ortiz Pérez <victor@accett.com.mx>
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 3 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
* or see http://www.gnu.org/
|
|
*/
|
|
|
|
/**
|
|
* \file htdocs/core/lib/functionsnumbertoword.lib.php
|
|
* \brief A set of functions for Dolibarr
|
|
* This file contains all frequently used functions.
|
|
*/
|
|
|
|
/**
|
|
* Function to return number or amount in text.
|
|
*
|
|
* @param float $numero Number to convert
|
|
* @param Lang $langs Language
|
|
* @param string $numorcurrency 'number' or 'amount'
|
|
* @return string Text of the number
|
|
*/
|
|
function dolNumberToWord($numero, $langs, $numorcurrency='number')
|
|
{
|
|
$entexto=$numero;
|
|
|
|
if ($langs->default == 'es_MX' && $numorcurrency == 'currency')
|
|
{
|
|
$veintis = array("VEINTE","VEINTIUN","VEINTIDÓS","VEINTITRÉS","VEINTICUATRO","VEINTICINCO","VEINTISÉIS","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) {
|
|
$entexto .= " UN PESO ".$parte_decimal." / 100 M.N.";
|
|
}
|
|
elseif ($numero>=0 && $numero<1){
|
|
$entexto .= " CERO PESOS ".$parte_decimal." / 100 M.N.";
|
|
}
|
|
elseif ($numero>=100 && $numero<101){
|
|
$entexto .= " CIEN PESOS ".$parte_decimal." / 100 M.N.";
|
|
}
|
|
else {
|
|
$cdm = (int) ($numero / 100000);
|
|
$numero = $numero - $cdm * 100000;
|
|
$ddm = (int) ($numero / 10000);
|
|
$numero = $numero - $ddm * 10000;
|
|
$udm = (int) ($numero / 1000);
|
|
$numero = $numero - $udm * 1000;
|
|
$c = (int) ($numero / 100);
|
|
$numero = $numero - $c * 100;
|
|
$d = (int) ($numero / 10);
|
|
$u = (int) $numero - $d * 10;
|
|
$completo=FALSE;
|
|
if ($cdm==1 && $ddm==0 && $udm==0){
|
|
$entexto .= "CIEN";
|
|
$completo = TRUE;
|
|
}
|
|
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];
|
|
}
|
|
}
|
|
if ($udm!=0 && !$completo){
|
|
$entexto .= $unidades[$udm-1];
|
|
}
|
|
$completo=FALSE;
|
|
if ($number>=1000){
|
|
$entexto .= " MIL ";
|
|
}
|
|
|
|
if ($c==1 && $d==0 && $u==0){
|
|
$entexto .= "CIEN";
|
|
$completo = TRUE;
|
|
}
|
|
if ($c!=0 && !$completo){
|
|
$entexto .= $centenas[$c-1]." ";
|
|
}
|
|
if ($d>2){
|
|
$entexto .= " ".$decenas[$d-1];
|
|
if ($u!=0){
|
|
$entexto .= " Y ";
|
|
}
|
|
}
|
|
elseif ($d!=0){
|
|
$completo=TRUE;
|
|
if ($d==1){
|
|
$entexto .= " ".$diecis[$u];
|
|
}
|
|
else{
|
|
$entexto .= " ".$veintis[$u];
|
|
}
|
|
}
|
|
if ($u!=0 && !$completo){
|
|
$entexto .= $unidades[$u-1];
|
|
}
|
|
$entexto .= " PESOS ".$parte_decimal." / 100 M.N.";
|
|
}
|
|
}
|
|
|
|
return $entexto;
|
|
}
|