首页 相关文章 人民币金额转换例程

人民币金额转换例程

'调用方法Text2=ChMoney(Val(Text1))
  '名称:CCh
  '得到一位数字N1的汉字大写
  '0返回""
  PrivateFunctionCCh(N1)AsString
  SelectCaseN1
  Case0
  CCh="零"
  Case1
  CCh="壹"
  Case2
  CCh="贰"
  Case3
  CCh="叁"
  Case4
  CCh="肆"
  Case5
  CCh="伍"
  Case6
  CCh="陆"
  Case7
  CCh="柒"
  Case8
  CCh="捌"
  Case9
  CCh="玖"
  EndSelect
  EndFunction
  '名称:ChMoney
  '得到数字N1的汉字大写
  '最大为千万位
  'O返回""
  PublicFunctionChMoney(N1)AsString
  DimtMoneyAsS...[ 查看全文 ]

2016-02-19 标签:

人民币金额转换例程的相关文章

手机页面
收藏网站 回到头部