求小写的金额转成大写金额的程式～

0026.00 8 捌                                     
0026.00 9 玖

[ 本帖最后由 pantierui 于 2007-1-3 13:52 编辑 ]

---

 sater84 回复于：2007-01-03 16:19:28

对不起啊，大哥，我不知道您发的程式应该加在我程式的那里啊，而且您给我发的两段程式是不一样的，两个都要吗？


您能和我讲解下嘛，麻烦您了，谢谢您～～～

---

 sater84 回复于：2007-01-04 15:04:58

５５５５５５５５５５５５５５，别让他沉啊，还没解决啊～

---

 sater84 回复于：2007-01-08 08:51:10

真的很不好意思啊，这个问题我真的解决不了，所以才不停的发，不停的发

现在上面催的很紧，请会的大侠们帮下忙嘛，小弟不盛感激～谢谢了～

---

 大肥肥 回复于：2007-01-08 14:44:26

COBOL写的，编译出来就可以直接用了，编译方法和rpg一样。
  
    * FUNCTION: CGANHE NUMBER INTO CHINESE                                  *
      *     INPUT : STRING                                                    *
      *     OUTPUT : PRINT                                                    *
       *************************************************************************
       IDENTIFICATION   DIVISION.
       PROGRAM-ID.   CONVERT.
 

       ENVIRONMENT DIVISION.
       DATA DIVISION.

       WORKING-STORAGE SECTION.
       77   MIDDATA    PIC X(15).
       77   I          PIC 99 .
       77   K          PIC 99.

论坛热门帖子:	[lch203] 写得蛮好的linux学习笔记(10-21) [黑马制造] 学习java的30个目标(10-19) [笑傲股林] 做测试半年了，有点迷茫，应该再学些什么提高自己的测试水平和测试能力呢？(10-19) [udp8589] 大家用google的来吱一声? 用百度的~~也来报道下?(10-18) [沂偌掳兆] 本人总结的一些认为C++比较经典的书籍，希望对大家有用(10-18)
TAG标签:	金额 J:2 ADD2TOJ TOMIDSTR MOVEMIDDATA MOVEZHONWENTOMIDSTR