双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

ASP的貨幣書寫怎樣轉換成英文

2002-05-06 02:14:59 176 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

brinkboy 墨衍会员 · AI 创作全网分发关注 + 加入社区

基于Pixi.js的Live2D看板娘离线加载实战指南本文详细介绍了基于Pixi.js实现Live2D看板娘离线加载的完整方案，涵盖环境搭建、模型加载、交互功能实现及常见问题解决。通过Pixi.js的硬件加速优势，开发者可在Web和Electron项目中无缝集成离线运行的Live2D模型，提升用户体验并避免网络依赖问题。阅读详情

各位高手我有個問題想請教大家
如何將貨幣轉換成英文的輸入寫形式
如:83.20 為: EIGHTY-TREE AND CENTS TWENTY ONLY

...全文

用Playwright MCP让AI帮你完成所有浏览器自动化 Playwright MCP（Model Context Protocol）是微软基于 Playwright 框架推出的 AI 浏览器自动化新协议。它通过结构化快照数据和自然语言指令结合大型语言模型（如 GPT），实现无需编码的网页交互。无论你是要测试登录流程、抓取价格数据，还是用 AI 远程控制浏览器，Playwright MCP 都能大幅降低门槛，让“说人话”也能驱动自动化脚本。本篇将从功能介绍、技术架构、使用方法到实际场景，带你全面理解这一自动化革命。阅读详情

brinkboy

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

micher_yan 2002-05-06

打赏
举报

不能给你现成的例子，不过你可以参考以下以下数字转换中文大写的情况：
'将传入的数字转换成中文大写，并通过函数返回，不是通过response.write返回的
'num是传入的数字型参数
'传入的数不能大于99999,9999,9999.99，否则将得不到正确结果！！！！！
'功能表示13位数字
function y_big_write(num)
'需要调用以下两个自定义函数y_big_num,y_big_Unit
dim i
dim num_str
dim big_num,small_num
dim num_for
dim outputnum,outputnum1
outputnum=""
num_str=cstr(formatnumber(num,2,true,false,false))
big_num=left(num_str,len(num_str)-3)
small_num=right(num_str,2)
if len(big_num)>13 then
response.write "所需要转换成人民币大写的数字超出系统运算范围，系统运算非正常退出....."
response.end
end if
for i=1 to len(big_num)
num_for=right(left(big_num,len(big_num)-i+1),1)
'outputnum=y_big_num(num_for)&y_big_Unit(i)&outputnum
if y_big_num(num_for)="零" and (y_big_Unit(i)="元" or y_big_Unit(i)="万" or y_big_Unit(i)="亿") then '是标志位
outputnum=y_big_Unit(i)&outputnum
elseif y_big_num(num_for)="零" and (y_big_Unit(i)<>"元" and y_big_Unit(i)<>"万" and y_big_Unit(i)<>"亿") then '不是标志位
outputnum=y_big_num(num_for)&outputnum
else '其他情况
outputnum=y_big_num(num_for)&y_big_Unit(i)&outputnum
end if
next
'将连续的零替换成一个“零”
outputnum=replace(outputnum,"零零零零","零")
outputnum=replace(outputnum,"零零零","零")
outputnum=replace(outputnum,"零零","零")
'注意替换的先后顺序,换掉标志位前的零
outputnum=replace(outputnum,"零元","元")
outputnum=replace(outputnum,"零万","万")
outputnum=replace(outputnum,"零亿","亿")
'换掉大单位到小单位造成的误差，因为只可能出现万亿，而不可能出现亿万
outputnum=replace(outputnum,"亿万","亿")
'重新考虑整数为零的情况
if big_num="0" then
outputnum="" '将整数位设置成空
end if
'处理小数
outputnum1=""
if left(small_num,1)<>"0" then
outputnum1=y_big_num(left(small_num,1))&"角"
else
if big_num="0" then
outputnum1=""
else
outputnum1="零"
end if
end if
if right(small_num,1)<>"0" then
outputnum1=outputnum1&y_big_num(right(small_num,1))&"分"
end if
if small_num="00" then
outputnum1=""
end if
y_big_write=outputnum&outputnum1&"整"
if num_str="0.00" then
y_big_write="零元整"
end if
end function
'response.write y_big_write(100001.01)

'把传入的数字字符转换成大写，通过函数返回
'以下程序段已经通过测试
function y_big_num(strT)
select case strT
case "1"
y_big_num="壹"
case "2"
y_big_num="贰"
case "3"
y_big_num="叁"
case "4"
y_big_num="肆"
case "5"
y_big_num="伍"
case "6"
y_big_num="陆"
case "7"
y_big_num="柒"
case "8"
y_big_num="捌"
case "9"
y_big_num="玖"
case "0"
y_big_num="零"
end select
end function
function y_big_Unit(i)
select case i
case 1
y_big_Unit="元"
case 2
y_big_Unit="拾"
case 3
y_big_Unit="佰"
case 4
y_big_Unit="仟"
case 5
y_big_Unit="万"
case 6
y_big_Unit="拾"
case 7
y_big_Unit="佰"
case 8
y_big_Unit="仟"
case 9
y_big_Unit="亿"
case 10
y_big_Unit="拾"
case 11
y_big_Unit="佰"
case 12
y_big_Unit="仟"
case 13
y_big_Unit="万"
end select
end function

✦双11狂欢大促✦

ASP的貨幣書寫怎樣轉換成英文

相关推荐

双11狂欢大促