您現在的位置是:電腦技術吧?>? 故障問題 ??>??excel人民幣大寫函數,人民幣大寫公式??>??正文詳情

excel人民幣大寫函數,人民幣大寫公式

麥山梅2019-12-20 17:02:22 人圍觀
簡介excel數字轉人民幣大寫SQL server函數將人民幣數字轉換為大寫形式的創建函數[dbo]。[f﹣num﹣(@num numeric(14,5))返回帶加密的varchar(100電子表格人民幣大寫函數

SQL SERVER函數將人民幣數字轉換成大寫形式  CREATE FUNCTION [dbo].[f_num_chn] (@num numeric(14,5))  RETURNS varchar(100) WITH ENCRYPTION  AS  BEGIN  DECLARE @n_data VARCHAR(20),@c_data VARCHAR(100),@n_str VARCHAR(10),@i int  SET @n_data=RIGHT(SPACE(14) CAST(CAST(ABS(@num*100) AS bigint) AS varchar(20)),14)  SET @c_data=''  SET @i=1  WHILE @i=14  BEGIN  SET @n_str=SUBSTRING(@n_data,@i,1)  IF @n_str' '  BEGIN  IF not ((SUBSTRING(@n_data,@i,2)='00') or  ((@n_str='0') and ((@i=4) or (@i=8) or (@i=12) or (@i=14))))  SET @[email protected]_data SUBSTRING('零壹貳叁肆伍陸柒捌玖',CAST(@n_str AS int) 1,1)  IF not ((@n_str='0') and (@i4) and (@i8) and (@i12))  SET @[email protected]_data SUBSTRING('仟佰拾億仟佰拾萬仟佰拾圓角分',@i,1)  IF SUBSTRING(@c_data,LEN(@c_data)-1,2)='億萬'  SET @c_data=SUBSTRING(@c_data,1,LEN(@c_data)-1)  END  SET @[email protected] 1  END  IF @num0  SET @c_data='(負數)' @c_data  IF @num=0  SET @c_data='零圓'  IF @n_str='0'  SET @[email protected]_data '整'  RETURN(@c_data)  END  SQL SERVER函數將人民幣數字轉換成大寫形式  閑著也是閑著,歡迎大家多提寶貴意見  --阿拉伯數字轉中文大寫數字  Create function NToCC(@n int)  returns varchar(2)  as  begin  declare @s varchar(2)  if @n=0  set @s=''零''  if @n=1  set @s=''壹''  if @n=2  set @s=''貳''  if @n=3  set @s=''叁''  if @n=4  set @s=''肆''  if @n=5  set @s=''伍''  if @n=6  set @s=''陸''  if @n=7  set @s=''柒''  if @n=8  set @s=''捌''  if @n=9  set @s=''玖''  return @s  end  --可支持到上億  Create function numbertoChineseBigString(@m money)  returns varchar(255)  begin  declare @i varchar(255)  declare @f varchar(255)  declare @r varchar(255)  declare @s varchar(255)  set @s=convert(varchar(255),@m)  if charindex(''.'',@s)0  begin  set @i=substring(@s,1,charindex(''.'',@s)-1)  set @f=substring(@s,charindex(''.'',@s) 1,len(@s))  end  else  set @[email protected]  set @r=''''  declare @k int  set @k=len(@i)  while @k=1  begin  --最多9位  if @k=9  set @[email protected]   dbo.NToCC(convert(int,substring(REVERSE(@i),@k,1)))  [email protected]   ''億''  if @k=8  set @[email protected] dbo.NToCC(convert(int,substring(REVERSE(@i),@k,1))) ''千''  if @k=7  set @[email protected] dbo.NToCC(convert(int,substring(REVERSE(@i),@k,1))) ''佰''  if @k=6  set @[email protected] dbo.NToCC(convert(int,substring(REVERSE(@i),@k,1))) ''拾''  if @k=5  set @[email protected] dbo.NToCC(convert(int,substring(REVERSE(@i),@k,1))) ''萬''  if @k=4  set @[email protected] dbo.NToCC(convert(int,substring(REVERSE(@i),@k,1))) ''千''  if @k=3  set @[email protected] dbo.NToCC(convert(int,substring(REVERSE(@i),@k,1))) ''佰''  if @k=2  set @[email protected] dbo.NToCC(convert(int,substring(REVERSE(@i),@k,1))) ''拾''  if @k=1  set @[email protected] dbo.NToCC(convert(int,substring(REVERSE(@i),@k,1))) ''元''  set @[email protected]  end  if convert(float,@f)=0  set @[email protected] ''整''  else  begin  if substring(@s,1,1)''''  set @[email protected] dbo.NToCC(convert(int,substring(@f,1,1))) ''角''  if substring(@s,2,1)''''  set @[email protected] dbo.NToCC(convert(int,substring(@f,2,1))) ''分''  end   set @r=replace(@r,''零千零佰零拾'',''零'')  set @r=replace(@r,''零佰零拾'',''零'')  set @r=replace(@r,''零千零佰'',''零'')  set @r=replace(@r,''零拾'',''零'')  set @r=replace(@r,''零千'',''零'')  set @r=replace(@r,''零佰'',''零'')  set @r=replace(@r,''拾零萬'',''拾萬'')  return @r  end  -- select dbo.numbertoChineseBigString(100102)  CREATE FUNCTION dbo.L2U(@n_LowerMoney numeric(15,2),@v_TransType int)  RETURNS VARCHAR(200) AS  BEGIN  Declare @v_LowerStr VARCHAR(200) -- 小寫金額  Declare @v_UpperPart VARCHAR(200)  Declare @v_UpperStr VARCHAR(200) -- 大寫金額  Declare @i_I int  set @v_LowerStr = LTRIM(RTRIM(ROUND(@n_LowerMoney,2))) --四舍五入為指定的精度并刪除數據左右空格  set @i_I = 1  set @v_UpperStr = ''  while ( @i_I = len(@v_LowerStr))  begin  select @v_UpperPart = case substring(@v_LowerStr,len(@v_LowerStr) - @i_I 1,1)  WHEN '.' THEN '元'  WHEN '0' THEN '零'  WHEN '1' THEN '壹'  WHEN '2' THEN '貳'  WHEN '3' THEN '叁'  WHEN '4' THEN '肆'  WHEN '5' THEN '伍'  WHEN '6' THEN '陸'  WHEN '7' THEN '柒'  WHEN '8' THEN '捌'  WHEN '9' THEN '玖'  END     case @i_I  WHEN 1 THEN '分'  WHEN 2 THEN '角'  WHEN 3 THEN ''  WHEN 4 THEN ''  WHEN 5 THEN '拾'  WHEN 6 THEN '佰'  WHEN 7 THEN '仟'  WHEN 8 THEN '萬'  WHEN 9 THEN '拾'  WHEN 10 THEN '佰'  WHEN 11 THEN '仟'  WHEN 12 THEN '億'  WHEN 13 THEN '拾'  WHEN 14 THEN '佰'  WHEN 15 THEN '仟'  WHEN 16 THEN '萬'  ELSE ''  END  set @v_UpperStr = @v_UpperPart @v_UpperStr  set @i_I = @i_I 1  end  if ( 0 = @v_TransType)  begin  set @v_UpperStr = REPLACE(@v_UpperStr,'零拾','零')  set @v_UpperStr = REPLACE(@v_UpperStr,'零佰','零')  set @v_UpperStr = REPLACE(@v_UpperStr,'零仟','零')  set @v_UpperStr = REPLACE(@v_UpperStr,'零零零','零')  set @v_UpperStr = REPLACE(@v_UpperStr,'零零','零')  set @v_UpperStr = REPLACE(@v_UpperStr,'零角零分','整')  set @v_UpperStr = REPLACE(@v_UpperStr,'零分','整')  set @v_UpperStr = REPLACE(@v_UpperStr,'零角','零')  set @v_UpperStr = REPLACE(@v_UpperStr,'零億零萬零元','億元')  set @v_UpperStr = REPLACE(@v_UpperStr,'億零萬零元','億元')  set @v_UpperStr = REPLACE(@v_UpperStr,'零億零萬','億')  set @v_UpperStr = REPLACE(@v_UpperStr,'零萬零元','萬元')  set @v_UpperStr = REPLACE(@v_UpperStr,'萬零元','萬元')  set @v_UpperStr = REPLACE(@v_UpperStr,'零億','億')  set @v_UpperStr = REPLACE(@v_UpperStr,'零萬','萬')  set @v_UpperStr = REPLACE(@v_UpperStr,'零元','元')  set @v_UpperStr = REPLACE(@v_UpperStr,'零零','零')  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 = substring(@v_UpperStr,2,(len(@v_UpperStr) - 1))  end  if ('整' = substring(@v_UpperStr,1,1))  begin  set @v_UpperStr = '零元整'  end  return @v_UpperStr  END

版權聲明:本文由 麥山梅 整理編輯。

原標題:人民幣小寫轉大寫公式,excel沒有人民幣大寫

轉載注明出處:http://www.dn9ww09s.icu/fault/15597.html

文章評論

    共有條評論來說兩句吧...

    用戶名:

    驗證碼:

作者推薦

  • 無法解決的問題下還有八種解決方案,下淋最快的解決方案

    無法解決的問題下還有八種解決方案,下淋最快的解決方案 相關圖片技術方案和解決方案目前,大多數使用MySQL的網站同時使用Memcache作為密鑰值緩存。盡管這種架構非常流行,并且有很多成功的案例,但它過于依賴Memcache,這實際上使Me問題解決方案格式...

  • const extern,extern static

    const extern,extern static 相關圖片extern說明本文主要介紹如何在開發中使用常量、靜態和外部關鍵字。如果你喜歡我的文章,你可以關注我的微博:你可以到曉瑤閣來了解我們的iOS培訓課程。稍后將更新更多內容。。。...

  • 怎樣獲取select的值,獲取select2選中的值

    怎樣獲取select的值,獲取select2選中的值 相關圖片jsp獲取select選中的值本文的示例描述了JavaScript獲取select值的方法。與您分享以供參考。具體分析如下:1。顯示的漢字編碼如下:document.getelementbyselect下拉框提交值...

  • sql刪除重復數據,如何刪除重復數據

    sql刪除重復數據,如何刪除重復數據 相關圖片oracle恢復刪除的表有很多方法可以刪除Internet上的重復數據,例如delete from prod,grid,Inc其中ROWID in(選擇b.row,Id2 from(選表格刪除重復項...

  • 眼鏡框制作,手機中框和邊框的區別

    眼鏡框制作,手機中框和邊框的區別 相關圖片門窗框的固定方法在從ios8升級到ios9的過程中,彈出提示框的方式發生了很大的變化。在xcode7和ios9.0的SDK中,已經明確表示不再推薦使用UIAlertView,只怎樣調眼鏡框...

  • asp連接oracle數據庫,pl/sql developer

    asp連接oracle數據庫,pl/sql developer 相關圖片Oracle10g本文主要介紹了使用ODP的asp.net防注入登錄驗證程序,即Oracle連接方式。您可以參考Internet上許多SQL連接模式的登錄驗證,但是如果沒有Oracas和casshiro比較...

  • 如何保持狀態,保持好狀態

    如何保持狀態,保持好狀態 相關圖片如何讓自己保持穩定的狀態net提供了session對象,它允許程序員識別、存儲和處理來自同一瀏覽器對象的多個請求的上下文信息,并將其發送到服務器上的特定網絡應用程序。會話對應于...

  • php for android,android運行php

    php for android,android運行php 相關圖片android php服務器下面是一個PHP如何判斷Android、IOS或WP是否會訪問網站的示例。這很實用,我希望能對你有所幫助。在PHP中,我們可以使用$_server['http_php開發安卓...

  • iOS發布流程,ios流程軟件

    iOS發布流程,ios流程軟件 相關圖片蘋果app開發流程我認為GIT進程在IOS開發中的優勢不需要詳細解釋。這和SVN的不一樣。過去,我經常通過拖拽文件的方式,讓很多人來配合開發。--! 我不想在這里討論一些基本的命iosapp上...

  • %c,8c

    %c,8c 相關圖片c-5最簡單的方法是導出頁面上的所有內容,并在加載時調用它。請注意,頁面上不能有其他控件,包括button void converttoexcel(){響應。Cleac哩...

熱評文章

  • 本年累計余額怎么算,養老保險累計賬戶余額

    本年累計余額怎么算,養老保險累計賬戶余額 相關圖片銀行日記賬的本年累計怎么算財務人員手工記賬時,會有借貸后的余額,即累計余額,即每個科目后記錄余額。如果使用計算機記賬,可以查詢完成累計余額的計算。首先,創建一個表...

  • 如何設置服務器ip地址,服務器ip地址大全

    如何設置服務器ip地址,服務器ip地址大全 相關圖片查詢app服務器ip地址本文給出了一個用PHP獲取服務器IP地址的實例。與您分享以供參考。具體分析如下:在PHP中,我們通常使用$_server['http_host']在URL中獲取時間同步服務器ip地址...

  • ADO.NET,NET是什么

    ADO.NET,NET是什么 相關圖片futurenet在使用ASP時,我們經常使用第三方控件來實現一些圖像功能。現在,隨著asp.net的引入,我們不再需要使用第三方控件來實現它,因為asp.net具有強大的功能來net開源框架...

  • g04編程實例,g03編程實例

    g04編程實例,g03編程實例 相關圖片數控車編程實例注解Java服務器頁面(JSP)作為一種構建動態web頁面的技術,正變得越來越流行。JSP不同于ASP、PHP和工作機制。通常,JSP頁面是在執行時編譯而不是解釋的數控車g03編程實...

  • ios是誰開發的,ios用什么開發

    ios是誰開發的,ios用什么開發 相關圖片ios開發難嗎Fmdb是面向對象的。它以OC的形式封裝SQLite的C語言API。它使用方便,不需要太多的數據庫操作知識。但也存在一些問題,比如跨平臺。因為它是用OC語言封裝ios 開發教程...

  • 證書異常怎么解決方法,模塊異常4怎么解決

    證書異常怎么解決方法,模塊異常4怎么解決 相關圖片如何能解除模塊異常1在IIS6中同時啟用了asp.net 2.0和asp.net 4.0之后,網站程序可能會發生以下錯誤:system.web.httpexception:pathqq綁卡異常怎么解決...

  • 一波又一波,一波還來不及

    一波又一波,一波還來不及 相關圖片一波接一波本文主要介紹了一種實用的bash shell排序方法,它適用于Ubuntu和其他Debian-Linux系統。您可以將以下內容作為朋友的命令行資源管理器。你可能來一波是什么意思...

  • kotlin android開發,安卓開發框架

    kotlin android開發,安卓開發框架 相關圖片android開發語言本文主要介紹Android開發的IDE、ADT、SDK、JDK、NDK等術語的定義。對這些概念感到困惑是件痛苦的事。本文簡要說明了這些術語的含義。讓我們共同努力android系統...

  • excel的工作簿是,excel多個工作簿匯總

    excel的工作簿是,excel多個工作簿匯總 相關圖片excel批量合并工作簿學校希望以Excel文件的形式提交校友記錄中收集到的校友電子郵件地址,方便校友團體向全體校友發出參加校慶80周年的邀請。校友記錄數據庫是access mdb格式一個工作...

  • php將html轉化為word,phpword中文手冊

    php將html轉化為word,phpword中文手冊 相關圖片html5 word文件本文的例子描述了在PHP中將上傳的word文件轉換成HTML的方法。與您分享以供參考。具體實現方法如下:上傳頁面:?12345678910121314!DOCTphpword轉html閱讀...

關注微信

变脸官网查询