214 lines
9.3 KiB
PHP
214 lines
9.3 KiB
PHP
<?php
|
|
|
|
namespace PhpOffice\PhpSpreadsheet\Calculation\Engineering;
|
|
|
|
use PhpOffice\PhpSpreadsheet\Calculation\Exception;
|
|
use PhpOffice\PhpSpreadsheet\Calculation\Information\ExcelError;
|
|
|
|
class ConvertDecimal extends ConvertBase
|
|
{
|
|
const LARGEST_OCTAL_IN_DECIMAL = 536870911;
|
|
const SMALLEST_OCTAL_IN_DECIMAL = -536870912;
|
|
const LARGEST_BINARY_IN_DECIMAL = 511;
|
|
const SMALLEST_BINARY_IN_DECIMAL = -512;
|
|
const LARGEST_HEX_IN_DECIMAL = 549755813887;
|
|
const SMALLEST_HEX_IN_DECIMAL = -549755813888;
|
|
|
|
/**
|
|
* toBinary.
|
|
*
|
|
* Return a decimal value as binary.
|
|
*
|
|
* Excel Function:
|
|
* DEC2BIN(x[,places])
|
|
*
|
|
* @param array|string $value The decimal integer you want to convert. If number is negative,
|
|
* valid place values are ignored and DEC2BIN returns a 10-character
|
|
* (10-bit) binary number in which the most significant bit is the sign
|
|
* bit. The remaining 9 bits are magnitude bits. Negative numbers are
|
|
* represented using two's-complement notation.
|
|
* If number < -512 or if number > 511, DEC2BIN returns the #NUM! error
|
|
* value.
|
|
* If number is nonnumeric, DEC2BIN returns the #VALUE! error value.
|
|
* If DEC2BIN requires more than places characters, it returns the #NUM!
|
|
* error value.
|
|
* Or can be an array of values
|
|
* @param array|int $places The number of characters to use. If places is omitted, DEC2BIN uses
|
|
* the minimum number of characters necessary. Places is useful for
|
|
* padding the return value with leading 0s (zeros).
|
|
* If places is not an integer, it is truncated.
|
|
* If places is nonnumeric, DEC2BIN returns the #VALUE! error value.
|
|
* If places is zero or negative, DEC2BIN returns the #NUM! error value.
|
|
* Or can be an array of values
|
|
*
|
|
* @return array|string Result, or an error
|
|
* If an array of numbers is passed as an argument, then the returned result will also be an array
|
|
* with the same dimensions
|
|
*/
|
|
public static function toBinary($value, $places = null)
|
|
{
|
|
if (is_array($value) || is_array($places)) {
|
|
return self::evaluateArrayArguments([self::class, __FUNCTION__], $value, $places);
|
|
}
|
|
|
|
try {
|
|
$value = self::validateValue($value);
|
|
$value = self::validateDecimal($value);
|
|
$places = self::validatePlaces($places);
|
|
} catch (Exception $e) {
|
|
return $e->getMessage();
|
|
}
|
|
|
|
$value = (int) floor((float) $value);
|
|
if ($value > self::LARGEST_BINARY_IN_DECIMAL || $value < self::SMALLEST_BINARY_IN_DECIMAL) {
|
|
return ExcelError::NAN();
|
|
}
|
|
|
|
$r = decbin($value);
|
|
// Two's Complement
|
|
$r = substr($r, -10);
|
|
|
|
return self::nbrConversionFormat($r, $places);
|
|
}
|
|
|
|
/**
|
|
* toHex.
|
|
*
|
|
* Return a decimal value as hex.
|
|
*
|
|
* Excel Function:
|
|
* DEC2HEX(x[,places])
|
|
*
|
|
* @param array|string $value The decimal integer you want to convert. If number is negative,
|
|
* places is ignored and DEC2HEX returns a 10-character (40-bit)
|
|
* hexadecimal number in which the most significant bit is the sign
|
|
* bit. The remaining 39 bits are magnitude bits. Negative numbers
|
|
* are represented using two's-complement notation.
|
|
* If number < -549,755,813,888 or if number > 549,755,813,887,
|
|
* DEC2HEX returns the #NUM! error value.
|
|
* If number is nonnumeric, DEC2HEX returns the #VALUE! error value.
|
|
* If DEC2HEX requires more than places characters, it returns the
|
|
* #NUM! error value.
|
|
* Or can be an array of values
|
|
* @param array|int $places The number of characters to use. If places is omitted, DEC2HEX uses
|
|
* the minimum number of characters necessary. Places is useful for
|
|
* padding the return value with leading 0s (zeros).
|
|
* If places is not an integer, it is truncated.
|
|
* If places is nonnumeric, DEC2HEX returns the #VALUE! error value.
|
|
* If places is zero or negative, DEC2HEX returns the #NUM! error value.
|
|
* Or can be an array of values
|
|
*
|
|
* @return array|string Result, or an error
|
|
* If an array of numbers is passed as an argument, then the returned result will also be an array
|
|
* with the same dimensions
|
|
*/
|
|
public static function toHex($value, $places = null)
|
|
{
|
|
if (is_array($value) || is_array($places)) {
|
|
return self::evaluateArrayArguments([self::class, __FUNCTION__], $value, $places);
|
|
}
|
|
|
|
try {
|
|
$value = self::validateValue($value);
|
|
$value = self::validateDecimal($value);
|
|
$places = self::validatePlaces($places);
|
|
} catch (Exception $e) {
|
|
return $e->getMessage();
|
|
}
|
|
|
|
$value = floor((float) $value);
|
|
if ($value > self::LARGEST_HEX_IN_DECIMAL || $value < self::SMALLEST_HEX_IN_DECIMAL) {
|
|
return ExcelError::NAN();
|
|
}
|
|
$r = strtoupper(dechex((int) $value));
|
|
$r = self::hex32bit($value, $r);
|
|
|
|
return self::nbrConversionFormat($r, $places);
|
|
}
|
|
|
|
public static function hex32bit(float $value, string $hexstr, bool $force = false): string
|
|
{
|
|
if (PHP_INT_SIZE === 4 || $force) {
|
|
if ($value >= 2 ** 32) {
|
|
$quotient = (int) ($value / (2 ** 32));
|
|
|
|
return strtoupper(substr('0' . dechex($quotient), -2) . $hexstr);
|
|
}
|
|
if ($value < -(2 ** 32)) {
|
|
$quotient = 256 - (int) ceil((-$value) / (2 ** 32));
|
|
|
|
return strtoupper(substr('0' . dechex($quotient), -2) . substr("00000000$hexstr", -8));
|
|
}
|
|
if ($value < 0) {
|
|
return "FF$hexstr";
|
|
}
|
|
}
|
|
|
|
return $hexstr;
|
|
}
|
|
|
|
/**
|
|
* toOctal.
|
|
*
|
|
* Return an decimal value as octal.
|
|
*
|
|
* Excel Function:
|
|
* DEC2OCT(x[,places])
|
|
*
|
|
* @param array|string $value The decimal integer you want to convert. If number is negative,
|
|
* places is ignored and DEC2OCT returns a 10-character (30-bit)
|
|
* octal number in which the most significant bit is the sign bit.
|
|
* The remaining 29 bits are magnitude bits. Negative numbers are
|
|
* represented using two's-complement notation.
|
|
* If number < -536,870,912 or if number > 536,870,911, DEC2OCT
|
|
* returns the #NUM! error value.
|
|
* If number is nonnumeric, DEC2OCT returns the #VALUE! error value.
|
|
* If DEC2OCT requires more than places characters, it returns the
|
|
* #NUM! error value.
|
|
* Or can be an array of values
|
|
* @param array|int $places The number of characters to use. If places is omitted, DEC2OCT uses
|
|
* the minimum number of characters necessary. Places is useful for
|
|
* padding the return value with leading 0s (zeros).
|
|
* If places is not an integer, it is truncated.
|
|
* If places is nonnumeric, DEC2OCT returns the #VALUE! error value.
|
|
* If places is zero or negative, DEC2OCT returns the #NUM! error value.
|
|
* Or can be an array of values
|
|
*
|
|
* @return array|string Result, or an error
|
|
* If an array of numbers is passed as an argument, then the returned result will also be an array
|
|
* with the same dimensions
|
|
*/
|
|
public static function toOctal($value, $places = null)
|
|
{
|
|
if (is_array($value) || is_array($places)) {
|
|
return self::evaluateArrayArguments([self::class, __FUNCTION__], $value, $places);
|
|
}
|
|
|
|
try {
|
|
$value = self::validateValue($value);
|
|
$value = self::validateDecimal($value);
|
|
$places = self::validatePlaces($places);
|
|
} catch (Exception $e) {
|
|
return $e->getMessage();
|
|
}
|
|
|
|
$value = (int) floor((float) $value);
|
|
if ($value > self::LARGEST_OCTAL_IN_DECIMAL || $value < self::SMALLEST_OCTAL_IN_DECIMAL) {
|
|
return ExcelError::NAN();
|
|
}
|
|
$r = decoct($value);
|
|
$r = substr($r, -10);
|
|
|
|
return self::nbrConversionFormat($r, $places);
|
|
}
|
|
|
|
protected static function validateDecimal(string $value): string
|
|
{
|
|
if (strlen($value) > preg_match_all('/[-0123456789.]/', $value)) {
|
|
throw new Exception(ExcelError::VALUE());
|
|
}
|
|
|
|
return $value;
|
|
}
|
|
}
|