function moneyToString($num)
{
$digits = ['零', '壹', '贰', '叁', '肆', '伍', '陆', '柒', '捌', '玖'];
$radices =['', '拾', '佰', '仟', '万', '亿'];
$bigRadices = ['', '万', '亿'];
$decimals = ['角', '分'];
$cn_dollar = '元';
$cn_integer = '整';
$num_arr = explode('.', $num);
$int_str = $num_arr[0] ?? '';
$float_str = $num_arr[1] ?? '';
$outputCharacters = '';
if ($int_str) {
$int_len = strlen($int_str);
$zeroCount = 0;
for ($i = 0; $i < $int_len; $i++) {
$p = $int_len - $i - 1;
$d = substr($int_str, $i, 1);
$quotient = $p / 4;
$modulus = $p % 4;
if ($d == "0") {
$zeroCount++;
}
else {
if ($zeroCount > 0)
{
$outputCharacters += $digits[0];
}
$zeroCount = 0;
$outputCharacters .= $digits[$d] . $radices[$modulus];
}
if ($modulus == 0 && $zeroCount < 4) {
$outputCharacters .= $bigRadices[$quotient];
$zeroCount = 0;
}
}
$outputCharacters .= $cn_dollar;
}
if ($float_str) {
$float_len = strlen($float_str);
for ($i = 0; $i < $float_len; $i++) {
$d = substr($float_str, $i, 1);
if ($d != "0") {
$outputCharacters .= $digits[$d] . $decimals[$i];
}
}
}
if ($outputCharacters == "") {
$outputCharacters = $digits[0] . $cn_dollar;
}
if ($float_str) {
$outputCharacters .= $cn_integer;
}
return $outputCharacters;
}
阿拉比数字转中文大写
©著作权归作者所有,转载或内容合作请联系作者
【社区内容提示】社区部分内容疑似由AI辅助生成,浏览时请结合常识与多方信息审慎甄别。
平台声明:文章内容(如有图片或视频亦包括在内)由作者上传并发布,文章内容仅代表作者本人观点,简书系信息发布平台,仅提供信息存储服务。
【社区内容提示】社区部分内容疑似由AI辅助生成,浏览时请结合常识与多方信息审慎甄别。
平台声明:文章内容(如有图片或视频亦包括在内)由作者上传并发布,文章内容仅代表作者本人观点,简书系信息发布平台,仅提供信息存储服务。
相关阅读更多精彩内容
- 学习王晓华老师的《算法的乐趣》一书中第四章之后,用Java重写并实现这一功能。[图片上传失败...(image-4...
- NUMBERSTRING函数的缺陷 韩老师此前写过一篇文章:Excel113 | NUMBERSTRING和TEX...
- 操作步骤: 1、选中需要转换的数字所在单元格,点击菜单栏【开始】(一般为默认)中的【格式】,选择【设置单元格格式】...