对于数字大小写的转换，也是有一定中国特色的东西。但是在账务报表中，我们还是需要有这样的功能的。今天写了一个将数字金额转化为大写的函数。
功能：将任意长度的数字金额转化为大写。***位为圆或角时，后面加“整”；为“分”时不加“整”。
说明：小数点后保留两位。超过两位的部分被截断。
代码：
测试SQL如下：
结果：
玖仟叁佰贰拾肆亿零贰佰玖拾叁万肆仟零贰拾肆圆贰角整
测试通过
链接：
oracle数据库sql命令怎么改
oracle中修改数据用update语句。语法：UPDATE 表名 SET 字段=XXX WHERE 条件;如，数据库中，test表数据如下：现在要将王五的名字改成王九，可用如下语句：update test set where;commit;执行后结果：
oracle中的nvl函数
NVL(EXPR1,EXPR2) 若EXPR1是NULL,则返回EXPR2,否则返回EXPR1. select NAME,NVL(TO_CHAR(COMM),NOT APPLIcatION) FROM TABLE1;
pascal val 用法
1............2. 求子串。 Copy(s,I,L) 从字符串s中截取第I个字符开始后的长度为l的子串。 例:copy(‘abdag’,2,3)=’bda’3. 删除子串。 过程 Delete(s,I,l) 从字符串s中删除第I个字符开始后的长度为l的子串。 例：s:=’abcde’;delete(s,2,3);结果s:=’ae’4. 插入子串。 过程Insert(s1,s2,I) 把s1插入到s2的第I个位置例：s:=abc;insert(‘12’,s,2);结果s:=’a12bc’5. 求字符串长度 length(s) 例：length(‘12abc’)=56. 搜索子串的位置 pos(s1,s2) 如果s1是s2的子串 ，则返回s1的第一个字符在s2中的位置，若不是子串，则返回0. 例：pos(‘ab’,’12abcd’)=37. 字符的大写转换。 Upcase(ch) 求字符ch的大写体。 例：upcase(‘a’)=’A’8. 数值转换为数串。 过程 Str(x,s) 把数值x化为数串s.例：str(,s); 结果s=’’9. 数串转换为数值。 过程val(s,x,I) 把数串s转化为数值x,如果成功则i=0,不成功则I为无效字符的序数例：val(‘1234’,x,I);结果 x:=.求字符序号。 ord(a)求char型字符a的ASCII码。 例：ord(A)=65.
发表评论