编程开发论坛 - Powered by Discuz! Board

标题: 大小写转换 [打印本页]

作者: haifeng585 时间: 2006-3-17 12:51 标题: 大小写转换

我的页面上有一个输入框
现在要求是输入小写的金额
而后转换成大写保存到数据库中
实在想不出  各位帮我想想

作者: shanzhiyin 时间: 2006-3-17 12:52

思路：
m=""
n=trim(request("textname"))
for  i=1  to  len(n)
if  mid(n,i,1)="1"  then
m=m&"壹"
end  if
if  mid(n,i,1)="2"  then
m=m&"贰"
end  if
....
if  mid(n,i,1)="."  then
m=m&"点"
end  if

next

作者: huaerfeifei 时间: 2006-3-17 12:52

显示中文币值
Function DispMoneyCHS(Money)
 '壹拾壹亿壹仟贰佰叁拾肆万伍仟陆佰柒拾捌元玖角零分00,000,000.00 收款音
 Money=FormatNumber(trim(Money),2)
 MoneyLen=len(Money)
 TempStr=""
 '十亿位
 If MoneyLen<16 then
 TempStr=TempStr &""
 Else
 TempStr=TempStr & GetNumCHS( left( right(Money,16),1) )&" 拾 "
 End if
 '亿位
 If MoneyLen<14 then
 TempStr=TempStr &""
 Else
 TempStr=TempStr & GetNumCHS( left( right(Money,14),1) )&" 亿 "
 End if
 '千万位
 If MoneyLen<13 then
 TempStr=TempStr &""
 Else
 TempStr=TempStr & GetNumCHS( left( right(Money,13),1) )&" 仟 "
 End if
 '百万位
 If MoneyLen<12 then
 TempStr=TempStr &""
 Else
 TempStr=TempStr & GetNumCHS( left( right(Money,12),1) )&" 佰 "
 End if
 '十万位
 If MoneyLen<10 then
 TempStr=TempStr &""
 Else
 TempStr=TempStr & GetNumCHS( left( right(Money,10),1) )&" 拾 "
 End if
 '万位
 If MoneyLen<9 then
 TempStr=TempStr &""
 Else
 TempStr=TempStr & GetNumCHS( left( right(Money,9),1) )&" 万 "
 End if
 '千位
 If MoneyLen<8 then
 TempStr=TempStr &""
 Else
 TempStr=TempStr & GetNumCHS( left( right(Money,8),1) )&" 仟 "
 End if
 '百位
 If MoneyLen<6 then
 TempStr=TempStr &""
 Else
 TempStr=TempStr & GetNumCHS( left( right(Money,6),1) )&" 佰 "
 End if
 '十位
 If MoneyLen<5 then
 TempStr=TempStr &""
 Else
 TempStr=TempStr & GetNumCHS( left( right(Money,5),1) )&" 拾 "
 End if
 '个位
 If MoneyLen<4 then
 TempStr=TempStr &""
 Else
 TempStr=TempStr & GetNumCHS( left( right(Money,4),1) )&" 元 "
 End if
 '角
 If right(Money,2)="00" then
 TempStr=TempStr &"整"
 Else
 TempStr=TempStr & GetNumCHS( left( right(Money,2),1) )&" 角 "
 End if
 '分
 If right(Money,2)<>"00" then
 TempStr=TempStr & GetNumCHS( right(Money,1))&" 分"
 End if

 DispMoneyCHS=TempStr
End Function

Function GetNumCHS(Num)

 Select Case Num
 Case "1"
 GetNumCHS="壹"
 Case "2"
 GetNumCHS="贰"
 Case "3"
 GetNumCHS="叁"
 Case "4"
 GetNumCHS="肆"
 Case "5"
 GetNumCHS="伍"
 Case "6"
 GetNumCHS="陆"
 Case "7"
 GetNumCHS="柒"
 Case "8"
 GetNumCHS="捌"
 Case "9"
 GetNumCHS="玖"
 Case "0"
 GetNumCHS="零"
 End Select

End Function

作者: Nothing 时间: 2006-3-17 15:17

请看我以前写的代码

根据数字的读法，写了一个把数字转成中文字符串的程序

参数一为数字

参数二为是不是反回人民币大写

参数三为是不是直接读数字，否则带有十百等单位

参数四为设置小数点后面的位数，默认为4

使用方法是

t=GetChinaNum(20005.000436, , , 7)'返回 “二千零五点零零零四三六”

t=GetChinaNum(2005.436, True, , 7)'返回“贰仟零伍元肆角肆分”

t=GetChinaNum(2005.436, , True, 7)'返回“二零零五点四三六”

下面是程序代码<

欢迎光临编程开发论坛 (http://bbs.lihuasoft.net/)