热门 购物 团购 理财 文学 人才 体育 汽车 游戏 软件 军事 音乐 视频 媒体 论坛 博客 银行 交友 综合
一起购 唯品会 梦芭莎 趣玩网 凡客诚品 麦考林 乐淘鞋网 弗克尚品 绿盒子 俏物悄语 新蛋网 当当网 玛萨玛索
拉手网 糯米网 爱帮团 聚划算 58团购 美团网 QQ团购 大众点评团 窝窝团 美淘网 满座网 团宝网 饭统饭团
起点网 榕树下 小说阅读 潇湘书院 红袖添香 幻剑书盟 新浪游戏 太平洋游戏 163邮箱 中国游戏 游戏中国 霏凡软件 铁血军事
访问本站赠送红包啦!凡在支付宝搜索数字口令 528131323 都将获得红包,天天搜索此口令天天得红包^_^
Health Sitology Family Finance Appliances Shopping Clothing Education Legal Rituals Beauty Property Travel Pet Medical Cyclopedia History Military Computers Sports Job Anecdote Geographic Mixed Entertain Literature Emotion Agriculture
/**
 * 任何人任何机构皆可用于任何项目,此软件免费无需书面授权
 * 在软件和软件的所有副本中都必须包含版权声明和软件相关注解
 *
 * 模块: rmb.c
 * 简述: 数字钱转大写中文
 * 作者: woods zhang  ->  hoojar@163.com -> http://www.hecart.com/
 * 版权: 2006-2018, 张树林 拥有此源码所有版权 (MIT许可协议)
 * Copyright 2006-2018, Woods Zhang All Rights Reserved (The MIT License)
 */
#include<stdio.h>
#include<string.h>

char *MoneyToChina(double mon)
{
    char *f1[] = {
            "零",
            "壹",
            "贰",
            "叁",
            "肆",
            "伍",
            "陆",
            "柒",
            "捌",
            "玖"
    };
    char *f2[] = {
            "仟",
            "佰",
            "拾",
            "亿",
            "仟",
            "佰",
            "拾",
            "万",
            "仟",
            "佰",
            "拾",
            "元",
            "角",
            "分"
    };

    char strre[99];
    char strbak[99];
    char *value;
    int len, i, k;

    /*此处在原有数字上乘上100主要是为了分析角与分*/
    sprintf(strbak, "%.0lf", 100 * mon);
    strbak[14] = ''; /*数据的最大值为14位不能大于仟亿*/
    len = strlen(strbak);
    strre[0] = '';

    k = 14 - len;
    for (i = 0; i < len; i++)
    {
        /*strbak[i] - '0'主要是为了获取ASCII码,这要才能获取数组中的值*/
        strcat(strre, f1[strbak[i] - '0']);
        strcat(strre, f2[k]);
        k++;
    }

    strcat(strre, "整");
    value = strre;
    return value;
}

int main()
{
    double mon;
    printf("请输入要转换的金额值:");
    scanf("%lf", &mon);
    printf("您输入的金额转换后的金额为:< %s > ", MoneyToChina(mon));
}
Reply content :
Photo link :
具体代码和实现方法见下: 第一个办法,这个程序可以进行万亿以下的货币金额转换(够用的了吧),其中汉字与数字均按一位计: Function AtoC(a As Currency) As String ' 定义两个字符串,A…  Details
<% dim a '要转换成大写的金额 dim atoc '转换之后的值 Dim String1 '如下定义 Dim String2 '如下定义 Dim String3 '从原A值中取出的值 Dim I '循环变量 Dim J 'A的值乘以100的字符串长度 Dim…  Details
/** * 任何人任何机构皆可用于任何项目,此软件免费无需书面授权 * 在软件和软件的所有副本中都必须包含版权声明和软件相关注解 * * 模块: rmb.c * 简述: 数字钱转大写…  Details
/** * 任何人任何机构皆可用于任何项目,此软件免费无需书面授权 * 在软件和软件的所有副本中都必须包含版权声明和软件相关注解 * * 模块: strtolwer.c * 简述: 将字符串…  Details
我们在编程的过程中,特别是开发和财务相关的应用程序的时候,几乎都会遇到要将阿拉伯数字(一般是货币金额)转换为中文大写的要求。也有一些转换程序,但大都不符合财务实际要求,…  Details
问:我是搞会计工作的,最近刚用电脑,在用Excel处理数据的过程中,发现大写金额一栏的输入特别烦琐,尤其是我用拼音输入法输入选择很麻烦。请问,有什么更好的办法来实现…  Details
<% dim txtFname txtFName = "steve schofield" txtFName = UCase(Left(txtFName,1)) & Mid(txtFName,2) response.write txtFname mynewvar = myfunc(txtFname) ' 调用函数 Function syntax function myfunc(a) &nbsp;&nbsp;&…  Details