PB realizes printing Chinese capital

zhaozj2021-02-08  186

According to the current characteristics of my country's financial bill, there is still a need for a capital bill. I now use PB to write a function of RMB uppercase. You only need to take out the renminbi lowercase data value in your data window, use my function to convert it into a capital method, and then assign it to an item of the data window.

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 = 'zero 壹 叁 肆 伍 柒捌 /' 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 (XXXS, JEW2) * 2 - 1, 2) "" jew1 = MID (DXS, POS (XXS, Jew1) * 2 - 1, 2) "Pick up" Jew = MID (DXS, POS (XXS, JEW) * 2 - 1, 2) "Wan" 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) " Pick "JEG = MID (DXS, POS (XXS, JEG) * 2 - 1, 2) "Yuan" JEJ = MID (DXS, POS (XXS, JEJ) * 2 - 1, 2) "Corner" JEF = MID (DXS, POS (XXS, JEF) * 2 - 1, 2) "Division"

JEDX = JEW1 JEW JEQ JEB JES JEG JEJ JEF RETURN JEDX

转载请注明原文地址:https://www.9cbs.com/read-2383.html

New Post(0)