其他语言

本类阅读TOP10

·基于Solaris 开发环境的整体构思
·使用AutoMake轻松生成Makefile
·BCB数据库图像保存技术
·GNU中的Makefile
·射频芯片nRF401天线设计的分析
·iframe 的自适应高度
·BCB之Socket通信
·软件企业如何实施CMM
·入门系列--OpenGL最简单的入门
·WIN95中日志钩子(JournalRecord Hook)的使用

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
大写金额转换

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

    最近做一个数据库,要用到大写的金额格式显示,于是自己写了一个,希望大家多提宝贵意见!(真是感到了C++ Builder的资料短缺了,连现成的这个函数都找不到!)

AnsiString CurrToChnNum(float CurrNum, bool DisplayZero = true, int SpaceNum = 2);

AnsiString CurrToChnNum(float CurrNum, bool DisplayZero, int SpaceNum)
//参数说明:CurrNum       这个是要转化的数值
       DisplayZero   是否要显示零 如:(显示零)壹佰 零拾 叁元 伍角 伍分
                   SpaceNum      字符间的空格数,默认值为2
{
    //数值转换为大写金额
    //18个数字单位
    const String Dw[18] = {"分","角","元","拾","佰","仟","万","拾","佰","仟","亿","拾","佰","仟","兆","拾","佰","仟"};
    //10个数码
    const String Num[10] = {"零","壹","贰","叁","肆","伍","陆","柒","捌","玖"};
    AnsiString sTemp;
    sTemp = FormatFloat("0.00", CurrNum);     //格式化数值
    sTemp.Delete(sTemp.Pos("."), 1);          //去掉小数点
    if ( sTemp.Length() > 18 )                //是否超长?
    {
        MessageDlg("数值位数太多,不能处理!",mtError,TMsgDlgButtons() << mbYes,0);
        return NULL;
    }
    AnsiString sRusult = "¥ ";               //字串的头部字符,根据喜好
    for (int i = sTemp.Length(); i > 0; i--)  //开始加工
    {
        if ( !DisplayZero && i > 2 && sTemp[sTemp.Length() - i + 1] - 48 == 0 )
            continue;
        sRusult += Num[sTemp[sTemp.Length()-i+1]-48];
        sRusult += Dw[i-1];
        sRusult += AnsiString::StringOfChar(' ', SpaceNum);
    }
    return sRusult;
}
//---------------------------------------------------------------------------




相关文章

相关软件