版权声明:本文为博主原创文章,遵循 CC 4.0 BY-SA版权协议,转载请附上原文出处链接和本声明。
DATA:I_INPUT TYPEBSEG-DMBTR , "金额数字
O_OUTPUT) TYPESTRING. “金额汉字
DATA:
V_S00 (2)VALUE'零',
V_S01 (2)VALUE'壹',
V_S02 (2)VALUE'贰',
V_S03 (2)VALUE'叁',
V_S04 (2)VALUE'肆',
V_S05 (2)VALUE'伍',
V_S06 (2)VALUE'陆',
V_S07 (2)VALUE'柒',
V_S08 (2)VALUE'捌',
V_S09 (2)VALUE'玖',
V_W00 (2)VALUE'',
V_W01 (2)VALUE'拾',
V_W02 (2)VALUE'佰',
V_W03 (2)VALUE'仟',
V_W04 (2)VALUE'万',
V_W05 (4)VALUE'拾',
V_W06 (4)VALUE'佰',
V_W07 (4)VALUE'仟',
V_W08 (2)VALUE'亿',
V_W09 (4)VALUE'拾',
V_W10 (4)VALUE'佰',
V_W11 (4)VALUE'仟',
V_W12 (4)VALUE'万',
V_SY (2)VALUE'圆',
V_SJ (2)VALUE'角',
V_SF (2)VALUE'分',
V_AMOUNT (16),"将金额转换成字符型
V_LEN TYPEI,"v_amount或out的长度
V_VAR (5),"v_s0,v_s1,...,v_w0,v_w1,...
V_NUM (2)TYPEN ,"每一位的数值
V_S_NUM (2),"v_s0,v_s1,...中的值
V_WEIGHT (2)TYPEN ,"权数
V_W_NUM (4),"v_w0,v_w1,...中的值
V_FLAG0 TYPEIVALUE0,"是否输出'零',0不输出,1输出
V_N TYPEIVALUE0,
V_INDEX TYPESY -INDEX.
V_AMOUNT =I_INPUT .
SHIFTV_AMOUNT LEFTDELETING LEADINGSPACE .
SHIFTV_AMOUNT LEFTDELETING LEADING'0'.
*-计算分-----------------------------------------
V_LEN =STRLEN(V_AMOUNT ).
V_LEN =V_LEN -1.
V_NUM =V_AMOUNT+V_LEN (1).
IFV_NUM