用Delphi编写人民币大小写转换程序.docxVIP

——华佾搜集整理 ——华佾搜集整理 ——————————————————————————————————————————— PAGE 1 PAGE 1 用 Delphi编写人民币大小写转换程序 ○ 在财务管理系统中,有时需要打印大写人民币数字,于是笔者编写了以下一些函数使这一需要得以满足,现介绍如下: FUNCTION JISUAN TM real STRING var shu array of string 2 //保存单位 shu1 array of string 2 //保存数字大写字符SHUZI STRING //保存数字小写 ZIFU STRING //保存数字转换后的结果TMP1 INTEGER //临时变量 BEGIN SetLength shu 10 SetLength shu1 10 shu 9 =仟 shu 8 =佰 shu 7 =拾 shu 6 =万 shu 5 =仟 shu 4 =佰 shu 3 =拾 shu 2 =元 shu 1 =角 shu 0 =分 SHU1 0 =零 SHU1 1 =壹 SHU1 2 =贰 SHU1 3 = 叁 SHU1 4 =肆 SHU1 5 =伍 SHU1 6 =陆 SHU1 7 =柒 SHU1 8 = 捌 SHU1 9 =玖 SHUZI =INTTOSTR round TM 100 //将浮点型数字转换成字符型数字(保留二位小数) if T99 then result =ERROR ELSE BEGIN ZIFU = tmp1 =1 while tmp1=LENGTH SHUZI DO begin if COPY SHUZI TMP1 1 0 then begin if COPY SHUZI TMP1-1 1 =0 then zifu =zifu+shu1 0 ZIFU =ZIFU+SHU1 STRTOINT COPY SHUZI TMP1 1 +SHU length shuzi -tmp1 end if COPY SHUZI TMP1 1 =0 then BEGIN IF TMP1=LENGTH SHUZI -2 THEN//个位 zifu =zifu+SHU 2 IF TMP1=LENGTH SHUZI -6 THEN//万位 zifu =zifu+SHU 6 END //END IF tmp1 =tmp1+1 end //END FOR RESULT =ZIFU END//END IF end 注:本程序在 Delphi5 Win98 下调试通过。(天津 李春)