人民币大写转换的问题。

我的单据是这样的  
   
      十           万           千               百         拾           元         角         分  
   
  我只需写入一个字。不要需要全部返回。 问题点数：100、回复次数：4Top

1 楼zhdleo（叮东）回复于 2002-11-12 00:16:29 得分 0

没明白！什么一个字？？？Top

2 楼sdcgx（醒目仔）回复于 2002-11-12 00:24:29 得分 10

GenSingleAmt((TranFee),12)  
   
   
  long   PrAmt  
  integer   CharLen  
  String   UResult  
   
  PrAmt   =   Abs(TranAmt*100)  
   
  CharLen   =   len(string(PrAmt))  
   
  PrAmt   =   mod(PrAmt   ,   10^PrintPos   )/10^PrintPos   *   10  
   
  UResult   =   mid(String(PrAmt),1,1)  
   
  if   PrintPos   >   CharLen     then   UResult   =   ""  
  if   PrintPos   =   CharLen+1     then   UResult   =   "￥"  
   
  return   UResult  
   
  我建议打这种最好一个一个来打，比较容易调间距，现在是数字的函数，你再转换为中文就可以了  
   
  可能有点让人看不懂。  
   
  打银行票据很实用  
  Top

3 楼scu96124678（冰河）回复于 2002-11-12 10:35:09 得分 90

根据长度倒数计数Top

4 楼scu96124678（冰河）回复于 2002-11-13 10:30:48 得分 0

没有揭帖？Top

相关问题

• 转换
• pramt
• printpos
• uresult
• charlen
• then

• 帖主：hdyes
• sdcgx
• scu96124678

• PowerBuilder类图书
• PowerBuilder类源码下载