欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

急请问水晶报表怎么将数字转换为英文

更新时间: 2014-01-05 03:06:53 责任编辑: Author_N1

 

急!急!!急!!!请教水晶报表如何将数字转换为英文。
如题↑
例:5000.00   转换为:    five thousand;
    1230.18$   转换为:    one thousand two hundred thirty  point one eight dollars
补充:在有小数的情况下,小数同样要转换!
或者说:将阿拉伯数字的金额,转换为英语中的金额,
--参考方法--
可以参考下面vbs代码

public   Function   NumToText(dblVal   As   Double, CurrencyCode As String)   As   String 
        Static   Ones(0   To   9)   As   String 
        Static   Teens(0   To   9)   As   String 
        Static   Tens(0   To   9)   As   String 
        Static   Thousands(0   To   4)   As   String 
        Static   bInit   As   Boolean 
        Dim   i   As   Integer,   bAllZeros   As   Boolean,   bShowThousands   As   Boolean
        Dim   strVal   As   String,   strBuff   As   String,   strTemp   As   String 
        Dim   nCol   As   Integer,   nChar   As   Integer 
        Dim CurrencyUnit As String, CurrencyCents As String
        'Only   handles   positive   values 
        if dblVal   <   0 then
exit function
        end if

        If   bInit   =   False   Then 
                'Initialize   array 
                bInit   =   True 
                Ones(0)   =   "zero " 
                Ones(1)   =   "one " 
                Ones(2)   =   "two " 
                Ones(3)   =   "three " 
                Ones(4)   =   "four " 
                Ones(5)   =   "five " 
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 03:06:53
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/18445/
本文WWW.DOC100.NET DOC100.NET版权所有。