将数字转换成大写的金额换算函数

大写|函数|换算|金额|转换

<%
Function rmb(num)

num = FormatNumber(num, 2)
Dim numList
Dim rmbList
Dim numLen
Dim numChar
Dim numstr
Dim n
Dim n1, n2
Dim hz
numList = "零壹贰叁肆伍陆柒捌玖"
rmbList = "分角元拾佰仟万拾佰仟亿拾佰仟万"

If num > 9999999999999.99 Then
rmb = "超出范围的人民币值"
Exit Function
End If

numstr = CStr(num * 100)
numLen = Len(numstr)
n = 1
Do While n <= numLen
numChar = CInt(Mid(numstr, n, 1))
n1 = Mid(numList, numChar + 1, 1)
n2 = Mid(rmbList, numLen - n + 1, 1)
If Not n1 = "零" Then
hz = hz + CStr(n1) + CStr(n2)
Else
If n2 = "亿" Or n2 = "万" Or n2 = "元" Or n1 = "零" Then
Do While Right(hz, 1) = "零"
hz = Left(hz, Len(hz) - 1)
Loop
End If
If (n2 = "亿" Or (n2 = "万" And Right(hz, 1) <> "亿") Or n2 = "元") Then
hz = hz + CStr(n2)
Else
If Left(Right(hz, 2), 1) = "零" Or Right(hz, 1) <> "亿" Then
hz = hz + n1
End If
End If
End If
n = n + 1
Loop
Do While Right(hz, 1) = "零"
hz = Left(hz, Len(hz) - 1)
Loop
If Right(hz, 1) = "元" Then
hz = hz + "整"
End If
rmb = hz
End Function

%>

时间: 2024-11-03 13:08:03

将数字转换成大写的金额换算函数的相关文章

将数字转换成大写的人民币表达式的js函数

  将数字转换成大写的人民币,方法有很多,本例介绍的是使用js来完成的,看看下面的实现代码 function changeNumMoneyToChinese(money) { var cnNums = new Array("零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖&q

将数字转换成大写的人民币表达式的js函数_javascript技巧

将数字转换成大写的人民币,方法有很多,本例介绍的是使用js来完成的,看看下面的实现代码 function changeNumMoneyToChinese(money) { var cnNums = new Array("零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖&quo

SQL SERVER函数将人民币数字转换成大写形式

  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

JavaScript将数字转换成大写中文的方法

 这篇文章主要介绍了JavaScript将数字转换成大写中文的方法,涉及javascript字符串及匹配的技巧,具有一定参考借鉴价值,需要的朋友可以参考下     本文实例讲述了JavaScript将数字转换成大写中文的方法.分享给大家供大家参考.具体实现方法如下: ? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 function intToChinese ( str ) { str

JavaScript将数字转换成大写中文的方法_javascript技巧

本文实例讲述了JavaScript将数字转换成大写中文的方法.分享给大家供大家参考.具体实现方法如下: function intToChinese ( str ) { str = str+''; var len = str.length-1; var idxs = ['','十','百','千','万','十','百','千','亿','十','百','千','万','十','百','千','亿']; var num = ['零','壹','贰','叁','肆','伍','陆','柒','捌',

excel表格中数字转换成大写的函数方式介绍

在a1单元格输入一个数值 鼠标左键点一下b1单元格,然后输入=numberstring(),然后将鼠标左键点击一下括号内部 鼠标左键点击一下a1单元格 然后输入一个半角逗号,一个1,然后点击绿色的对号 函数的返回值变成了一个很大的用一二三形式显示的中文数字 鼠标点击函数第二个参数1前面的位置,然后向后拖动选中1,此时1的背景是黑色,最后键盘输入2 输入一个2之后然后点击绿色的对号完成输入 此时函数的返回值是大写的很大的一个数字 如果第三个参数是3,函数将返回数码而不是一个很大的数字,数码是大写一

C/C++小写数字转换成大写数字

#include<stdio.h> void main() { double x,y; char *ch[]={"零","壹","贰","叁","肆","伍","陆","柒","捌","玖"}; char *ch1[]={"拾","佰","仟&qu

excel怎么把小写的阿拉伯数字转换成大写

第一种: 如图所示,需要把表格里的数字转换成大写 如图所示 如图,右击鼠标,选择设置单元格格式,点开 出现一个窗口,选择特殊--中文大写数字--确定 结果就出来了 第二种:手动输入法 输入V+需要转换成大写的数字--选择第二行即可 这样就出来了 两种方法其实都差不多,只是相对于来讲,第一种的准确性大的多!看个人喜好吧!

php实现字符串首字母转换成大写的方法

 这篇文章主要介绍了php实现字符串首字母转换成大写的方法,涉及php中ucfirst及ucwords函数的使用技巧,需要的朋友可以参考下     本文实例讲述了php实现字符串首字母转换成大写的方法.分享给大家供大家参考.具体分析如下: php中可以通过ucfirst函数将一个字符串中的第一个字母转换成大写,而ucwords函数可以将一个字符串中每个单词的首字母转换成大写 ? 1 2 3 4 5 6 7 8 <?php $string = "php string functions ar