数字小写到英文大写的转换

数字小写到英文大写的转换

日期：2004年8月13日 作者：gaojian 人气： 7124  今日：6     [大 中 小]

<% FUNCTION convertsz(sz) 'PARAMETERS sz 'PRIVATE xs,sz1,sz2,sz3         IF sz > 1000000000 then '超过处理范围提示                     convertsz="Number is too big" '数字大于10亿，超过处理范围！         exit FUNCTION         END IF sz=INT(sz*100+0.5)/100   ' 小数超过两位四舍五入 xs=((sz-int(sz))*100) MOD 100   ' 取小数点后两位有效数字 IF xs>0 then     'cha=" AND"&conv3(xs)&" CENTS"   ' 转换小数      cha=" AND "&xs&" CENTS" ELSE     cha="" END IF sz1=INT((sz MOD 1000))       ' sz1为百、十、个3位数字 sz=INT(sz/1000)             ' sz为千位以上数字（含千位） cha=conv3(sz1)&cha          ' 转换（sz1）         IF sz>0 then                      sz2=(sz MOD 1000)        ' sz2为十万、万、千3位数字                       sz=INT(sz/1000)         ' sz为百万位以上数字（含百万位）                              IF sz2=0 then                                                          IF sz1=0  then         ' （sz2）如果为'0'，判断在百位之前是否加'AND'                                                              cha=cha                                                          ELSE                                                              cha=" AND"&cha                                                          END IF                                      ELSE                                                 cha=conv3(sz2)&" THOUSAND"&cha   ' 如果不为'0'转换（sz2）                                      END IF                              IF sz>0 then                                          sz3=(sz MOD 1000)                                ' sz3为亿、千万、百万3位数字                                          cha=conv3(sz3)&" MILLION"&cha                   ' 转换（sz3）                                      END IF                  END IF 'cha="DOLLAR"&cha                    ' 在转换的结果之前加'DOLLAR' 'RETURN cha convertsz=cha end FUNCTION FUNCTION conv3(je) 'PARAMETERS je 'PRIVATE jews,je1,je2,je3,tmp IF je<=0 then     convertsz=""     exit FUNCTION END IF je1=(je MOD 10) je=INT(je/10)             IF je=0 then                 ' 判断数字位数（1-3）并把3位数字分别存放在je1、je2、je3中                              jews=1                          ELSE                              je2=(je MOD 10)                              je=INT(je/10)                                          IF je=0 then                                                          jews=2                                                      ELSE                                                          je3=(je MOD 10)                                                          jews=3                                                      END IF                          END IF IF jews=1 then     tmp=conv1(je1)   '如果位数为1，直接转换          conv3=tmp          'exit FUNCTION     'RETURN tmp ELSE     IF je1+10*je2<20 then      ' 转换20以下数字         tmp=conv1(je1+10*je2)     ELSE                       ' 转换20-99数字         IF je1=0 then             tmp=conv2(je2)         ELSE             'tmp=conv2(je2)&" -"&conv1(je1)             tmp=conv2(je2)&conv1(je1)         END IF     END IF     IF jews=3 then     '转换百位数字         IF je1+10*je2=0 then             tmp=conv1(je3)&" HUNDRED"         ELSE             IF je1+10*je2<20 then                 tmp=conv1(je3)&" HUNDRED  AND"&tmp             ELSE                 tmp=conv1(je3)&" HUNDRED"&tmp             END IF         END IF     END IF     conv3=tmp END IF end FUNCTION FUNCTION conv2(SUM) 'PARAMETERS SUM aaa="" select CASE SUM     CASE 2         aaa=" TWENTY"     CASE 3         aaa=" THIRTY"     CASE 4         aaa=" FORTY"     CASE 5         aaa=" FIFTY"     CASE 6         aaa=" SIXTY"     CASE 7         aaa=" SEVENTY"     CASE 8         aaa=" EIGHTY"     CASE 9         aaa=" NINETY"    END select conv2=aaa end FUNCTION FUNCTION conv1(SUM) 'PARAMETERS SUM aaa="" select CASE SUM     CASE 1         aaa=" ONE"     CASE 2         aaa=" TWO"     CASE 3        aaa=" THREE"     CASE 4        aaa=" FOUR"     CASE 5         aaa=" FIVE"     CASE 6         aaa=" SIX"     CASE 7         aaa=" SEVEN"     CASE 8         aaa=" EIGHT"     CASE 9         aaa=" NINE"     CASE 10         aaa=" TEN"     CASE 11         aaa=" ELEVEN"     CASE 12         aaa=" TWELVE"     CASE 13         aaa=" THIRTEEN"     CASE SUM=14         aaa=" FOURTEEN"     CASE 15         aaa=" FIFTEEN"     CASE 16         aaa=" SIXTEEN"     CASE 17         aaa=" SEVENTEEN"     CASE 18         aaa=" EIGHTEEN"     CASE SUM=19         aaa=" NINETEEN" END select conv1=aaa end FUNCTION fff=123456789.45 response.write fff&"<br>" xx=convertsz(fff) response.write xx %> （出处：devclub）

相关文章：

·将汉字转换成汉语拼音的一段代码 ·利用XSLT把ADO记录集转换成XML ·使用MySql ODBC进行MYsql和MS sql7的数据转换 ·GB与BIG5内码转换COM原代码 ·金额阿拉伯数字转换为中文的存储过程 ·asp程序和php程序转换要注意的问题 ·一个非常简单的将半角"转换为中文“的函数 ·货币大写转换函数的更新 ·人民币小写转换为大写 ·数据变换和转换注意事项(SQL)

相关软件：

·Leadbbs288 To 动网论坛V7.0转换程序 ·BBS3000论坛到动网论坛转换程序 ·BBSxp论坛到动网论坛转换程序 ·LB5000雷傲论坛到动网论坛转换程序 ·浩翔TO动网转换程序(For 0519) ·雷奥论坛转换动网论坛程序 ·WDB论坛转换动网论坛程序V1.0 ·神鸟公司ASP到asp.net的转换工具

说明：本站部分内容收集于网络，如有侵犯您的权益请来信告知，我们会第一时间进行处理，谢谢