预览加载中，请您耐心等待几秒...

在PB中实现数字的英文大写和中文大写.net-电脑资料.docx

预览
1/8
2/8
3/8
4/8
5/8
6/8
7/8
8/8

在线预览结束，喜欢就下载吧，查找使用更方便

下载提示 文本预览

如果您无法下载资料，请参考说明：

1、部分资料下载需要金币，请确保您的账户上有足够的金币

2、已购买过的文档，再次下载不重复扣费

3、资料包下载后请先用软件解压，在使用对应软件打开

在PB中实现数字的英文大写和中文大写.net-电脑资料  PowerBuilder是当前得到广泛应用的C/S数据库前端开发工具,在使用PB的过程中,经常遇到要将数字进行英文或中文的大写转换，尤其是在处理金额的时候，本文整理了我在实践中用到的转换方法，提供给大家参考，在PB中实现数字的英文大写和中文大写.net。一、英文大写转换以下是进行英文大写转换的函PowerBuilder是当前得到广泛应用的C/S数据库前端开发工具,在使用PB的过程中,经常遇到要将数字进行英文或中文的大写转换，尤其是在处理金额的时候，本文整理了我在实践中用到的转换方法，提供给大家参考。  一、英文大写转换  以下是进行英文大写转换的函数内容，函数名为dtoe：  //******阿拉伯数--->英文数******  stringaa,bb,T1,T2,T3,B,W,CC,a1  decimala=0,c=0,a2  INTEGERV,M  aa="ONE      TWO      THREE    FOUR  FIVE     SIX      SEVEN    "+&  "EIGHT    NINE     TEN      ELEVEN   TWELVE  THIRTEENFOURTEENFIFTEEN  "+&  "SIXTEEN  SEVENTEENEIGHTEENNINETEEN"  bb="TWENTYTHIRTYFORTY  FIFTY  SIXTY  SEVENTYEIGHTYNINETY"  //****进入时--->t  T=round(t,2)  T1=STRING(T)  DOWHILEPOS(T1,",")0  V=POS(T1,",")  T1=MID(T1,1,V-1)+MID(T1,V+1)  LOOP  T2=""  T3=T1  IFPOS(T3,".")0THEN  V=POS(T3,".")  T1=MID(T3,1,V-1)  T2=MID(T3,V+1)  ENDIF  T1=SPACE(10-LEN(T1))+T1  CC=T1  B=""  W=""  M=9  //***整数处理***  dowhilem>0  ifMID(clearcase/"target="_blank">cc,m+1,1)=""then  exit  endif  ifINTEGER(MID(cc,m-1,3))0then  ifm=6then  W="THOUSAND"+w  else  ifm=3then  W="MILLION"+w  endif  endif  A=INTEGER(MID(cc,m,2))  //***  小于100的数  ***  ifa0then  ifa  B=RIGHTtrim(MID(aa,(a-1)