ERDS网校 - ERDS企业自主信息化培训,交流

查看: 339|回复: 0

小写转大写对壹元以下的金额的处理

[复制链接]

37

主题

42

帖子

144

积分

注册会员

Rank: 2

积分
144
发表于 2015-11-27 14:01:33 | 显示全部楼层 |阅读模式
     
if ( '元' = substring(@v_UpperStr,1,1))      
begin      
set @v_UpperStr = substring(@v_UpperStr,2,(len(@v_UpperStr) - 1))      
end      
if ( '零' = substring(@v_UpperStr,1,1))      
begin      
set @v_UpperStr = substring(@v_UpperStr,2,(len(@v_UpperStr) - 1))      
end      
      
if ( '角' = substring(@v_UpperStr,1,1))      
begin      
set @v_UpperStr = substring(@v_UpperStr,2,(len(@v_UpperStr) - 1))      
end      
      
if ( '分' = substring(@v_UpperStr,1,1))      
begin      
set @v_UpperStr = substring(@v_UpperStr,2,(len(@v_UpperStr) - 1))      
end      
if ('整' = substring(@v_UpperStr,1,1))      
begin      
set @v_UpperStr = '零元整'      
end      
return @v_UpperStr      
END
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|ERDS网校   点击这里给我发消息

快速回复 返回顶部 返回列表