[ASP]人民币小写转换为大写

最新推荐文章于 2022-04-13 00:34:30 发布
最新推荐文章于 2022-04-13 00:34:30 发布
阅读量633 收藏
点赞数
分类专栏： ASP 文章标签： asp input html
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/mh_rock/article/details/1888759
版权

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>人民币小写转换为大写</title>
</head>

<body>
人民币小写转换为大写

<%
'****人民币大小写转换格式****
dim str(9)
str(0)="零"
str(1)="壹"
str(2)="贰"
str(3)="叁"
str(4)="肆"
str(5)="伍"
str(6)="陆"
str(7)="柒"
str(8)="捌"
str(9)="玖"
aa=Request.form("source")
hh=formatnumber(aa,2,-1)
aa=replace(hh,".","")
aa=replace(aa,",","")
for i=1 to len(aa)
s=mid(aa,i,1)
mynum=str(s)
select case(len(aa)+1-i)
case 1: k= mynum&"分"
case 2: k= mynum&"角"
case 3: k= mynum&"元"
case 4: k= mynum&"拾"
case 5: k= mynum&"佰"
case 6: k= mynum&"仟"
case 7: k= mynum&"万"
case 8: k= mynum&"拾"
case 9: k= mynum&"佰"
case 10: k= mynum&"仟"
end select
m=m&k
next
%>


<html>
<head>
<title>数字转换</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<!--
Elseif(s=".") then
n=m
i=i+2
for j=i to len(aa)
s=mid(aa,i,1)
mynum=str(s)
select case(len(aa)+1-i)
case 1: p= mynum&"分"
case 2: p= mynum&"角"
end select
m=m&p
next
-->

<body bgcolor="#FFFFFF">
<form method="post" name="forma">
<input type="text" name="source" value="<%=hh%>">
=
<input type="text" name="result" value="<%=m%>" size="40">

<input type="submit" name="Submit" value="提交 " >
</form>
</body>
</html>


</body>

</html>

 
mh_rock
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
使用java将人民币金额转换成大写并使用自定义标签显示到页面
08-14
NULL 博文链接：https://1017401036.iteye.com/blog/2312722
ASP字符串大写转换成小写 ASP小写转换成大写 ucase lcase
10-29
Response.Write("LCase转换小写" & str1 & ", UCase转换大写" & str2) %> ``` 上述代码会输出： ``` LCase转换小写abcdef, UCase转换大写ABCDEF ``` 在.NET框架中，字符串的大小写转换分别通过ToUpper()和ToLower()...
ASP程序编写的人民币小写转换为大写的程序
axl19530209的专栏
01-14 520
内容提要：ASP程序编写的人民币小写转换为大写的程序，ASP程序编写的人民币小写转换为大写的程序如下： 　　ASP程序编写的人民币小写转换为大写的程序如下： '****人民币大小写转换格式**** dim str(9) str(0)="零" str(1)="壹" str(2)="贰" str(3)="叁" str(4)="肆" str(5)="伍" str(6)="陆"
将数字转换成大写的金额换算函数
cqhand的专栏
09-27 1327
Function rmb(num)num = FormatNumber(num, 2)Dim numList Dim rmbList Dim numLenDim numCharDim numstrDim n Dim n1, n2 Dim hznumList = "零壹贰叁肆伍陆柒捌玖"rmbList = "分角元拾佰仟万拾佰仟亿拾佰仟万"If num > 9999999999999.99
ASP金额转人民币大写的函数
weixin_30432579的博客
05-07 157
把As .....这些去掉就能在ASP里用了，网上找来的，测试可用Public Function UMoney(ByVal money) As String Dim lnP As Integer Dim Prc As String Dim Tmp As String Dim NoB As Currency Dim Dx As String Dim Xx As S...
一个Asp中将小写金额转换为大写的函数
李豹
09-22 1066
 function returnGB(N)  Dim Snz,A,B,C,WeiSz,JieG,i  Snz=split(cstr(N),".")(0)//整数部分转字串  A=array( "零","壹","贰","叁","肆","伍","陆","柒","捌","玖")  B=array("元","拾","佰","仟","万","拾","佰","仟","亿","拾","佰","仟","万") 
文本框中输入小写字母即时转换为大写实现思路
10-27
要实现文本框中输入小写字母即时转换为大写的功能，我们可以采用前端技术。首先，要在网页中放置一个文本框控件，然后通过编写相应的脚本程序来实现即时转换的逻辑。接下来，我将详细地介绍这个实现思路，包括前端...
asp.net(vb)实现金额转换成大写的函数
01-02
代码如下: ”’ <summary> ”’ 将数据转换为Double数字 ”’ </summary> ”’ ”Obj”></param> ”’ <returns></returns> ”’ <remarks></remarks> Public Shared Function todbl(ByVal Obj As Object) As Double...
新写了一个转中文大写金额的ASP函数
worldwind13的专栏
05-31 1142
格式化中文金额的方法@ prmtType 为"A" 时表示返回带零的全字串，否则返回中文习惯的金额调用方法：FormatChineseMoney(30503.34,"")Function FormatChineseMoney(prmtMoney,prmtType) dim strMoney,strMoneyLeft,strMoneyRight if IsNumeric(prmtMoney
将人民币的数字转化成大写表示 [asp]
伴老
12-14 3068
 call Money(1605893.21)function Money(thenumber)dim Money,i,String1,String2,length,checkp定义变量dim one(),onestr()定义数组 String1 = "零壹贰叁肆伍陆柒捌玖"String2 = "万仟佰拾亿仟佰拾万仟佰拾元角分厘毫" checkp=instr(thenumb
asp 货币大小写转换
08-13
货币大小写转换货币大小写转换货币大小写转换货币大小写转换货币大小写转换货币大小写转换货币大小写转换货币大小写转换货币大小写转换货币大小写转换货币大小写转换货币大小写转换货币大小写转换货币大小写转换货币大小写转换
金额大小写转换的asp完全无错版本
spook768的专栏
06-03 3277
dim tmpnum从第一张页面传过来的小写金额tmpnum=request("page1num")调用并显示大写金额response.write rmb(cdbl(tmpnum))response.end%>common.aspFunction rmb(num)num = FormatNumber(num, 2)Dim numList Dim rmbList Dim numLenDi
ASP.NET 对字符串大小写切换
weixin_33985507的博客
12-29 202
来源：http://www.codeproject.com/Tips/297011/How-to-Toggle-String-Case-in-NET#alternative22 使用LINQ: public static string ToggleCase(this string str) { if (string.IsNullOrEmpty(str)) return str...
ASP数字大小写转换的一种方法
kueruo的专栏
09-07 2140
     function   regInput(reg)     {     var   srcElem =   event.srcElement     var   oSel =   document.selection.createRange()     oSel   =   oSel.duplicate()     oSel.text   =   ""     var   srcRange
ASP.NET内容小写转为大写
全栈川川
04-13 803
效果 代码 <!-- directives --> <% @Page Language="C#" %> <!--函数编写 --> <script runat="server"> private void convertoupper(object sender, EventArgs e) { string str = mytext.Value; changed_text.InnerHtml = str.ToUpper()
ASP.NET C# 货币转换函数 中文大写金额 英文金额
10-07 2145
using System; using System.Data; using System.Configuration; using System.Linq; using System.Web; using System.Web.Security; using Sys
数字到人民币转换(转)
Wind_Lam的专栏
05-11 641
public class NumToRmb    {        public ArrayList chLen = new ArrayList();        public ArrayList ToRmb = new ArrayList();        //public string[] 位数=new string[]("个","拾","百","千","万","拾万","百万","千
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值