成人免费xxxxx在线视频软件_久久精品久久久_亚洲国产精品久久久_天天色天天色_亚洲人成一区_欧美一级欧美三级在线观看

詳解Oracle中數字與大寫交換

數據庫 Oracle
在這里我們將介紹Oracle中數字與大寫交換,希望能對大家了解Oracle一些功能有所幫助。

對于數字大小寫的轉換,也是有一定中國特色的東西。但是在賬務報表中,我們還是需要有這樣的功能的。今天寫了一個將數字金額轉化為大寫的函數。

功能:將任意長度的數字金額轉化為大寫。***位為圓或角時,后面加“整”;為“分”時不加“整”。

說明:小數點后保留兩位。超過兩位的部分被截斷。

代碼:

  1. PL/SQL 代碼  
  2. Create Or Replace Function Money2Chinese(Money In Number) Return Varchar2 Is 
  3.   strYuan       Varchar2(150);  
  4.   strYuanFen    Varchar2(152);  
  5.   numLenYuan    Number;  
  6.   numLenYuanFen Number;  
  7.   strRstYuan    Varchar2(600);  
  8.   strRstFen     Varchar2(200);  
  9.   strRst        Varchar2(800);  
  10.   Type typeTabMapping Is Table Of Varchar2(2) Index By Binary_Integer;  
  11.   tabNumMapping  typeTabMapping;  
  12.   tabUnitMapping typeTabMapping;  
  13.   numUnitIndex   Number;  
  14.   i              Number;  
  15.   j              Number;  
  16.   charCurrentNum Char(1);  
  17. Begin 
  18.   If Money Is Null Then 
  19.     Return Null;  
  20.   End If;  
  21.   strYuan := TO_CHAR(FLOOR(Money));  
  22.   If strYuan = '0' Then 
  23.     numLenYuan := 0;  
  24.     strYuanFen := lpad(TO_CHAR(FLOOR(Money * 100)), 2, '0');  
  25.   Else 
  26.     numLenYuan := length(strYuan);  
  27.     strYuanFen := TO_CHAR(FLOOR(Money * 100));  
  28.   End If;  
  29.   If strYuanFen = '0' Then 
  30.     numLenYuanFen := 0;  
  31.   Else 
  32.     numLenYuanFen := length(strYuanFen);  
  33.   End If;  
  34.   If numLenYuan = 0 Or numLenYuanFen = 0 Then 
  35.     strRst := '零圓整';  
  36.     Return strRst;  
  37.   End If;  
  38.   tabNumMapping(0) := '零';  
  39.   tabNumMapping(1) := '壹';  
  40.   tabNumMapping(2) := '貳';  
  41.   tabNumMapping(3) := '叁';  
  42.   tabNumMapping(4) := '肆';  
  43.   tabNumMapping(5) := '伍';  
  44.   tabNumMapping(6) := '陸';  
  45.   tabNumMapping(7) := '柒';  
  46.   tabNumMapping(8) := '捌';  
  47.   tabNumMapping(9) := '玖';  
  48.   tabUnitMapping(-2) := '分';  
  49.   tabUnitMapping(-1) := '角';  
  50.   tabUnitMapping(1) := '';  
  51.   tabUnitMapping(2) := '拾';  
  52.   tabUnitMapping(3) := '佰';  
  53.   tabUnitMapping(4) := '仟';  
  54.   tabUnitMapping(5) := '萬';  
  55.   tabUnitMapping(6) := '拾';  
  56.   tabUnitMapping(7) := '佰';  
  57.   tabUnitMapping(8) := '仟';  
  58.   tabUnitMapping(9) := '億';  
  59.   For i In 1 .. numLenYuan Loop  
  60.     j            := numLenYuan - i + 1;  
  61.     numUnitIndex := Mod(i, 8);  
  62.     If numUnitIndex = 0 Then 
  63.       numUnitIndex := 8;  
  64.     End If;  
  65.     If numUnitIndex = 1 And i > 1 Then 
  66.       strRstYuan := tabUnitMapping(9) || strRstYuan;  
  67.     End If;  
  68.     charCurrentNum := substr(strYuan, j, 1);  
  69.     If charCurrentNum <> 0 Then 
  70.       strRstYuan := tabNumMapping(charCurrentNum) ||  
  71.                     tabUnitMapping(numUnitIndex) || strRstYuan;  
  72.     Else 
  73.       If (i = 1 Or i = 5) Then 
  74.         If substr(strYuan, j - 3, 4) <> '0000' Then 
  75.           strRstYuan := tabUnitMapping(numUnitIndex) || strRstYuan;  
  76.         End If;  
  77.       Else 
  78.         If substr(strYuan, j + 1, 1) <> '0' Then 
  79.           strRstYuan := tabNumMapping(charCurrentNum) || strRstYuan;  
  80.         End If;  
  81.       End If;  
  82.     End If;  
  83.   End Loop;  
  84.   For i In -2 .. -1 Loop  
  85.     j              := numLenYuan - i;  
  86.     charCurrentNum := substr(strYuanFen, j, 1);  
  87.     If charCurrentNum <> '0' Then 
  88.       strRstFen := tabNumMapping(charCurrentNum) || tabUnitMapping(i) ||  
  89.                    strRstFen;  
  90.     End If;  
  91.   End Loop;  
  92.   If strRstYuan Is Not Null Then 
  93.     strRstYuan := strRstYuan || '圓';  
  94.   End If;  
  95.   If strRstFen Is Null Then 
  96.     strRstYuan := strRstYuan || '整';  
  97.   Elsif length(strRstFen) = 2 And substr(strRstFen, 2) = '角' Then 
  98.     strRstFen := strRstFen || '整';  
  99.   End If;  
  100.   strRst := strRstYuan || strRstFen;  
  101.   --strRst := Replace(strRst, '億零', '億');  
  102.   --strRst := Replace(strRst, '萬零', '萬');  
  103.   Return strRst;  
  104. End Money2Chinese; 

測試SQL如下:

  1. Select Money2Chinese(0932402934024.213) From dual; 

結果:

玖仟叁佰貳拾肆億零貳佰玖拾叁萬肆仟零貳拾肆圓貳角整

測試通過

原文標題:Oracle中將數字金額轉化為大寫

鏈接:http://www.cnblogs.com/Ira_Young/archive/2009/11/11/1601168.html

責任編輯:彭凡 來源: 博客園
相關推薦

2010-04-16 09:37:51

Oracle

2018-12-18 09:40:27

LinuxCtrl命令

2019-04-18 15:00:36

2009-11-04 10:50:48

Oracle創建用戶授

2010-04-02 09:07:26

Oracle sqlp

2010-02-01 10:10:41

Oracle數據庫優化

2009-04-29 16:05:23

Oracle連接輸出SQL

2010-03-29 13:19:10

OracleMulti

2010-04-02 17:11:45

Oracle數據庫

2011-08-18 13:44:42

Oracle悲觀鎖樂觀鎖

2011-05-19 13:25:14

Oracle數據庫

2010-11-18 11:08:30

oracle授權語句

2010-11-15 11:58:02

Oracle物理結構

2013-09-24 15:24:08

Oracle營銷云

2010-03-16 17:14:19

Python字符串

2011-03-29 10:47:49

ORACLE數據庫

2010-04-08 10:17:37

Oracle體系結構

2009-05-13 10:28:30

OracleDUAL數據庫

2011-08-03 13:11:10

Oracle數據庫序列

2009-10-27 16:36:07

Oracle如何解鎖
點贊
收藏

51CTO技術棧公眾號

主站蜘蛛池模板: 日韩在线观看网站 | 久青草影院 | 激情91| 欧美日韩成人在线 | 红色av社区| 日韩精品一区二区三区在线观看 | 亚洲一区二区中文字幕 | 国产精品 欧美精品 | 成人在线观看免费爱爱 | 一区二区国产精品 | 欧美日韩一区在线观看 | 久久久久九九九九 | 三级在线视频 | 国产激情一区二区三区 | 在线午夜电影 | www.国产精品| 欧美一区二区免费在线 | 尤物在线 | 特黄一级 | 四虎影音 | 亚洲国产精品一区二区第一页 | 九九热在线免费视频 | 国产一级在线观看 | 综合视频在线 | 在线日韩欧美 | 天天操人人干 | 国产成人一区在线 | 日韩毛片在线免费观看 | 亚洲一区欧美一区 | 精品一区二区三区在线视频 | 91在线精品一区二区 | 中文字幕在线一 | 亚洲视频三区 | 羞羞视频网站免费观看 | 久久久久一区 | 日本精品视频在线观看 | 欧美一级特黄aaa大片在线观看 | 成人一区二区三区在线观看 | 日日草夜夜草 | www.黄色在线观看 | 欧美一级片a |