public function numtochinese(number as double) as string const ex as string = "仟佰拾亿仟佰拾万仟佰

baby 2024-05-26 23:18:03
最佳回答
先抢个位置,中午帮你解答! 你的语句错误地方:少n2c函数和retstr <>restr,要仔细啊public function numtochinese(number as double) as stringconst ex as string = "仟佰拾亿仟佰拾万仟佰拾元角分"dim numstr as string, extmp as string, retstr as stringdim l as integer, i as integernumber = number * 100numstr = ltrim(str(int(number)))l = len(numstr)extmp = right(ex, l)retstr = ""for i = 1 to l restr = restr & n2c(val(mid(numstr, i, 1))) & mid(extmp, i, 1) 'mid函数,用于截取字符next inumtochinese = restr & "整"end functionprivate sub form_click()me.autoredraw = trueclsprintprint "人民币金额大小写转换"print "================================================================="print tab(12); 1300689067.89print tab(12); numtochinese(1300689067.89)print "================================================================="end subpublic function n2c(byval i as integer) as string '数值转换成大写字符select case i case 0 n2c = "零" case 1 n2c = "壹" case 2 n2c = "贰" case 3 n2c = "叁" case 4 n2c = "肆" case 5 n2c = "伍" case 6 n2c = "陆" case 7 n2c = "柒" case 8 n2c = "捌" case 9 n2c = "玖" end selectend function 20210311
汇率兑换计算器

类似问答
  • 我在佰仟金融
    • 2024-05-26 00:16:14
    • 提问者: 未知
    我在佰仟金融贷款1万元,逾期了一段时间。说要跟我终止合同,我却看不到合同合法吗?华律网根据你的法律疑问精选多位律师优质答案。
  • 佰仟上门催收吗?
    • 2024-05-26 23:26:49
    • 提问者: 未知
    不会的,但是能把你通抄讯录所有电话打bai爆确实是真的。我以du前逾期过几次,每天给我和zhi我朋友dao亲人打三十多个电话,除非你换号。民事纠纷,不可能坐牢,而且他们属于**,利息比银行高几十倍,上门,我估计不敢,不知道多少上门收钱的被砍死了,为了你那几千块。上门催收就告诉他...
  • 佰仟金融实力如何?
    • 2024-05-26 09:59:24
    • 提问者: 未知
    佰仟金融,2013年12月注册成立,是一家提供金融服务的公司,总部位于深圳,为哈尔滨银行战略合作伙伴。企业年金账户管理员是指受受托人委托,并根据受托人提供的计划规划...
  • 佰仟现金
    • 2024-05-26 07:26:34
    • 提问者: 未知
    佰仟现金贷款每个月还580其中210左右是本金其它都是利息和服务费利息是175这样合理吗?华律网根据你的法律疑问精选多位律师优质答案。
  • 1050元开**的大写金额怎样写 佰 拾 万 仟 佰 拾 元 角 分
    • 2024-05-26 01:16:06
    • 提问者: 未知
    正确的填写方法:前面的零数字可以用⊕(圈圈里边一个叉角号),但⊕不能放在后面,如果是可以填如“ ⊕ 万 ⊕ 仟 肆佰 捌 拾零 元 零 角 零 分 ,百元版**应填 肆佰 捌 拾 零元 零 角 零 分 ,这样才是正确的。1050元开**的怎样写 ⊕佰 ⊕拾 ⊕万 壹 仟 零 佰 伍 拾 零 元 零 角 零 分
  • 壹仟叁佰伍拾圆的澳币换多少人民币
    • 2024-05-26 18:01:53
    • 提问者: 未知
    按照目前最新汇率:1澳元=4.8246人民币1350澳元=6513.21人民币汇率一直变化,以交易时银行柜台汇率交易价为准!
  • 欠佰仟金融5000?
    • 2024-05-26 12:43:41
    • 提问者: 未知
    这是一家高利息的贷款**,以后可不要受骗啦!
  • 我在佰仟
    • 2024-05-26 00:58:58
    • 提问者: 未知
    你好,借贷利率未超过年利率24%,那么应该偿还,如果借贷双方约定的...提前还房屋贷款利息怎么算很多人在选择购房的时候,由于手头资金不是很充足,会选择购房贷款来买房。...
  • 佰仟贷款是必须贷款买手机的才可以贷吗??佰仟
    • 2024-05-26 14:49:41
    • 提问者: 未知
    你好,可以分期现金的,现在网贷**一般都支持现金分期和实物分期的。可以注册账号,完善好个人资料直接选择所需额度进行审核就可以了。希望可以帮助到你
  • 壹佰陆拾陆万肆仟陆佰捌拾玖元韩元转换人民币是多少
    • 2024-05-26 06:23:49
    • 提问者: 未知
    货币兑换 1664689韩元=9806.6829人
汇率兑换计算器

热门推荐
热门问答
最新问答
推荐问答
新手帮助
常见问题
房贷计算器-九子财经 | 备案号: 桂ICP备19010581号-1 商务联系 企鹅:2790-680461

特别声明:本网为公益网站,人人都可发布,所有内容为会员自行上传发布",本站不承担任何法律责任,如内容有该作者著作权或违规内容,请联系我们清空删除。