2017年考的计算机一级还能查吗-2017计算机等考三级数据库基础:pb实现打印中人民币大写

副标题:2017计算机等考三级数据库基础:pb实现打印中人民币大写

时间:2024-01-09 14:49:01 阅读: 最新文章 文档下载
说明:文章内容仅供预览,部分内容可能不全。下载后的文档,内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的,是否完整无缺。


  据我国的财务票据的当前特点,仍需要财务票据中人民币有大写一项。现在本人用PB编写了一个人民币大写的函数。您只要将您数据窗口中的人民币小写项数据值取出,利用我的这个函数将其转换成大写方式,然后再赋到数据窗口的某项中即可。
  string jet,dxs,xxs,jew1,jew2,jew,jeq,jeb,jes,jeg,jej,jef
  long ls,lss
  string jedx
  jet=string(yjk)
  ls=len(jet)
  lss=10 - ls
  jet=space(lss)+jet
  dxs='零壹贰叁肆伍陆柒捌玖/'
  xxs='0123456789 '
  jew2=mid(jet,1,1)
  jew1=mid(jet,2,1)
  jew=mid(jet,3,1)
  jeq=mid(jet,4,1)
  jeb=mid(jet,5,1)
  jes=mid(jet,6,1)
  jeg=mid(jet,7,1)
  jej=mid(jet,9,1)
  jef=mid(jet,10,1)
  jew2=mid(dxs,pos(xxs,jew2)*2 - 1,2)+"佰"
  jew1=mid(dxs,pos(xxs,jew1)*2 - 1,2)+"拾"
  jew=mid(dxs,pos(xxs,jew)*2 - 1,2)+"万"
  jeq=mid(dxs,pos(xxs,jeq)*2 - 1,2)+"仟"
  jeb=mid(dxs,pos(xxs,jeb)*2 - 1,2)+"佰"
  jes=mid(dxs,pos(xxs,jes)*2 - 1,2)+"拾"
  jeg=mid(dxs,pos(xxs,jeg)*2 - 1,2)+"元"
  jej=mid(dxs,pos(xxs,jej)*2 - 1,2)+"角"
  jef=mid(dxs,pos(xxs,jef)*2 - 1,2)+"分"
  jedx=jew1+jew+jeq+jeb+jes+jeg+jej+jef
  return jedx

2017计算机等考三级数据库基础:pb实现打印中人民币大写.doc

本文来源:https://www.wddqw.com/SdbI.html