人民币大写转化函数（ASP版和JavaScript版）

关注

VIP免费原创最新推荐文章于 2026-09-02 15:52:43 发布 3.8k 阅读 AI 写同款· GEO 优化 ›

深度探索：Deepseek-r1、Tavily 与 LangGraph 的推理和递归检索技术融合（文末含代码）模型的发布标志着推理能力的显著提升。这款基于强化学习的开源推理模型不仅在数学、代码和自然语言推理任务上表现出色，还通过其独特的递归检索与推理能力，为信息检索增强生成（RAG）系统带来了革新。本文将深入探讨DeepSeek-R1与Tavily、LangGraph等技术结合，在实现复杂查询处理和高级信息检索方面的潜力与应用。阅读详情

ASP 版：

<%
'文件名：cmycur.asp
'作    者：二十四画生
'版    本：1.0
'简    介：转换函数文件。
'功能描述：转换货币形式的函数。(该文件包含两个函数，一个转换成一般货币形式cmycur(num)，一个转换成大写形式cmycurd(num))
%>
<%
function cmycur(num) '转换为货币形式如：￥180.00元
dim thenum
if isnull(num) or num = "" then
    cmycur = " "
else
    num = Round(num,2)
thenum = FormatCurrency(num,2,-1)
cmycur = thenum & "元"
end if
end function

function cmycurd(num) 'num为要转换成大写的金额
dim str1  '如下定义
dim str2  '如下定义
dim str3  '从原num值中取出的值
dim i   '循环变量
dim j   'num的值乘以100的字符串长度
dim ch1  '数字的汉语读法
dim ch2  '数字位的汉字读法
dim nzero  '用来计算连续的零值是几个

str1 = "零壹贰叁肆伍陆柒捌玖"
str2 = "万仟佰拾亿仟佰拾万仟佰拾元角分"
nzero = 0
if isnull(num) or num = "" then
    cmycurd = " "
    exit function
end if
num = Round(Abs(num),2) '将num取绝对值并四舍五入取2位小数
j = Len(CStr(num * 100))  '找出最高位
if j > 15 then
    cmycurd = "溢出"
    exit function
end if
str2 = Right(str2, j) '取出对应位数的str2的值。如：200.55,j为5所以str2=佰拾元角分

'循环取出每一位需要转换的值
for i = 1 to j
    str3 = Mid(num * 100, i, 1) '取出需转换的某一位的值
if i <> (j - 3) + 1 and i <> (j - 7) + 1 and i <> (j - 11) + 1 and i <>(j - 15) + 1 then    '当所取位数不为元、万、亿、万亿上的数字时<