数字转换为大写(vfp)

原创 2001年07月18日 12:55:00

PARAMETERS lnMoney
lnNumber = lnMoney
ChinaMoney = ""
DIME ChinaNo(10)
ChinaNo(1) = "零"
ChinaNo(2) = "壹"
ChinaNo(3) = "贰"
ChinaNo(4) = "叁"
ChinaNo(5) = "肆"
ChinaNo(6) = "伍"
ChinaNo(7) = "陆"
ChinaNo(8) = "柒"
ChinaNo(9) = "捌"
ChinaNo(10) = "玖"
DIME Cdw(2)
Cdw(1)="角"
Cdw(2)="分"
DIME ChinaNum(10)
ChinaNum(1) = "元"
ChinaNum(2) = "拾"
ChinaNum(3) = "佰"
ChinaNum(4) = "仟"
ChinaNum(5) = "万"
ChinaNum(6) = "拾"
ChinaNum(7) = "佰"
ChinaNum(8) = "仟"
ChinaNum(9) = "亿"
ChinaNum(10) = "拾"
lnIntNumber = INT(lnNumber)
lcIntNumber = ALLTRIM(STR(lnIntNumber,10,0))
lnDicNumber = Int((lnNumber-lnIntNumber)*100)
lcDicNumber = IIF(!EMPTY(lnDicNumber),STR(lnDicNumber,2,0),"")

N = 1
FOR I = LEN(lcIntNumber) TO 1 STEP -1
 FOR J = 1 TO 10
  IF VAL(SUBST(lcIntNumber,I,1)) = J-1
   ChinaMoney = ChinaNo(J)+ChinaNum(N)+ChinaMoney
   N = N+1
   EXIT
  ENDIF
 ENDFOR
ENDFOR
IF !EMPTY(lcDicNumber)
 FOR Z = 1 TO 2
  FOR P = 1 TO 10
   IF VAL(SUBST(lcDicNumber,Z,1)) = P-1
    ChinaMoney = ChinaMoney+ChinaNo(P)+Cdw(Z)
    EXIT
   ENDIF
  ENDFOR
 ENDFOR
ELSE
 ChinaMoney=ChinaMoney+"整"
ENDIF
RETURN ChinaMoney

编写函数进行日期转换;键输入的大写的日期转换成阿拉伯数字的形式

用winfrom实现的!!!! Dictionary doct = new Dictionary();        private void button1_Click(object sen...
  • shang_111111
  • shang_111111
  • 2012年09月11日 22:10
  • 597

如何数字转换为中文大写[winform学习实例]

转:http://topic.csdn.net/u/20111108/09/b720c3be-5374-4ee0-b81f-468a5886bf5b.html#replyachor 16楼的内容如下:...
  • xianfajushi
  • xianfajushi
  • 2011年11月10日 22:17
  • 2854

JS数字转换为人民币大写

 /**将数字转换成大写人民币**/ function cmycurd(num){  //转成人民币大写金额形式   var str1 = '零壹贰叁肆伍陆柒捌玖';  //0-9所对应...
  • yangshijin1988
  • yangshijin1988
  • 2014年06月26日 17:59
  • 420

一个将阿拉伯数字转换成中文大写的好算法【原创】(C#)

//加到类的定义部分private static string[] cstr={"零","壹","贰","叁","肆", "伍", "陆","柒","捌","玖"};private  static s...
  • fanz2000
  • fanz2000
  • 2004年08月16日 14:55
  • 4546

C#实现的【阿拉伯数字转换成中文大写金额】代码(原创)

以下C#代码实现了将阿拉伯数字转换成中文大写金额的功能,并Visual Studio.NET 2003 下调试基本通过(未经严格测试,希望各位发现错误后与作者联系fanz2000@sohu.com,或...
  • fanz2000
  • fanz2000
  • 2004年08月14日 12:14
  • 4373

C#,数字转人民币大写方法

using System; namespace Test {     /**////      /// Rmb 的摘要说明。     ///      public class Rmb     { ...
  • seapen
  • seapen
  • 2007年02月11日 16:19
  • 5440

数字转换为大写,人民币

public string CBMoney(string  num)     {         string zNum="",xNum="";         int dPos=num.Ind...
  • hjingtao
  • hjingtao
  • 2011年11月08日 17:36
  • 394

将人民币的数字转化成大写表示 [asp]

 call Money(1605893.21)function Money(thenumber)dim Money,i,String1,String2,length,checkp定义变量dim one...
  • abandonship
  • abandonship
  • 2004年12月14日 14:18
  • 2035

数字转换为大写汉字

CREATE FUNCTION dbo.f_digit_chn(@num bigint)RETURNS varchar(20)ASBEGIN--作者:pbsql--@num为要转换为汉字字符串的整数,...
  • pbsql
  • pbsql
  • 2006年01月05日 17:23
  • 1144

数字转换为中文大写

想要实现人民币大写,在发票等场景中使用?? 1234.56显示为:壹仟贰佰叁拾肆元伍角陆分,那就往下看看吧! 本程序可以实现 0 到 9999 9999 9999.994 以内的人民币大写转换,...
  • xxssyyyyssxx
  • xxssyyyyssxx
  • 2016年08月04日 12:57
  • 207
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:数字转换为大写(vfp)
举报原因:
原因补充:

(最多只允许输入30个字)