金额转换成大写

/******************************************************************************/ //函数名： gf_MoneyToString //功能说明：金额转换成大写 //输入参数：1.data 待转换的金额 //返回值： string 转换后的大写金额 //函数完成：woods //调用关系：本函数为公共外部函数，可被系统开发的任何地方调用 /******************************************************************************/ constant string ls_bit = "万仟佰拾亿仟佰拾万仟佰拾元角分" constant string ls_num = "壹贰叁肆伍陆柒捌玖" long lmax = len( ls_bit ) + 1 string ls_je, ls_dw, ls_result = '' long ll_len, i, k

ls_je = string( data, "#############.00" ) ll_len = len( ls_je ) - 1 ls_je = replace( ls_je, ll_len - 1, 1, '' ) for i = ll_len to 1 step -1  lmax -= 2  ls_dw = mid( ls_bit, lmax, 2 )  k = long( mid( ls_je, i, 1 ) )  if k = 0 then   choose case ls_dw    case '元','万','亿'     ls_result = ls_dw + ls_result    case '分'     ls_result = '整'    case '角'     if ls_result <> '整' then ls_result = '零' + ls_result    case else     choose case left( ls_result, 2 )      case '万', '亿', '元', '零'      case else       ls_result = '零' + ls_result     end choose   end choose  else   ls_result = mid( ls_num, k * 2 - 1, 2 ) + ls_dw + ls_result  end if next return ls_result