虚拟货币代码byc
1. 百特币是啥
百特币（Bytecoin），又名字节币，缩写为BYC，算法采用SHA256，就像一个字节等于八个比特一样，总数量也是比特币的八倍，共1.68亿个。百特币的货币符号是β。百特币每个块产生的货币数量为100个，平均5分钟出一个矿，每840000个块后产生数量减半，即约8年后将产生总量的一半，之后每过8年新产生数量又减半。难度每2016个块（平均一个星期）调整一次。
2. vb 模拟键盘↓向下键 (人民币求解)
使用PostMessage。支持最小化。
'API申明
Private Declare Function PostMessage Lib "USER32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'向下键常数申明
Private Const WM_KEYDOWN = &H100
’请在代码中加入以下补充部分
Private Function MakeKeyLparam(ByVal VirtualKey As Long, ByVal flag As Long) As Long
Dim s As String
Dim Firstbyte As String 'lparam参数的24-31位
If flag = WM_KEYDOWN Then '如果是按下键
Firstbyte = "00"
Else
Firstbyte = "C0" '如果是释放键
End If
Dim Scancode As Long '获得键的扫描码
Scancode = MapVirtualKey(VirtualKey, 0)
Dim Secondbyte As String 'lparam参数的16-23位，即虚拟键扫描码
Secondbyte = Right("00" & Hex(Scancode), 2)
s = Firstbyte & Secondbyte & "0001" '0001为lparam参数的0-15位，即发送次数和其它扩展信息
MakeKeyLparam = Val("&H" & s)
End Function
‘以下为替换你原本使用sendkeys的地方的代码
Dim chwnd as string
chwnd = FindWindow(vbNullString, "XXX") '获得窗口句柄,XXX处为你需要发送指令的窗口标题，标题要求一摸一样，如果不是很明确的标题的话，追问教你取标题的方法
PostMessage chwnd, WM_KEYDOWN, vbKeyDown, MakeKeyLparam(vbKeyDown, WM_KEYDOWN)
3. 在Office Excel中人民币大写无元角分如何解决
a、单击“工具”--“宏”--“Visual Basic 编辑器”
b、单击“Visual Basic 编辑器”菜单栏“运行”--“运行宏”
c、输入宏名，如 "zh" ,单击“创建”
d、键入以下代码：
'a1为数字小写单元格，a2为中文大写单元格
Const strN = "零壹贰叁肆伍陆柒捌玖"
Const strG = "拾佰仟万亿"
Const intN = "0123456789"
Dim Zero_Count As Long '读零计数
Private Function GetN(ByVal N As Long) As String
GetN = Mid(strN, N + 1, 1)
End Function
Private Function GetG(ByVal G As Long) As String
Select Case G
Case 1
GetG = ""
Case 2, 6
GetG = Mid(strG, 1, 1)
Case 3, 7
GetG = Mid(strG, 2, 1)
Case 4, 8
GetG = Mid(strG, 3, 1)
Case 5
GetG = Mid(strG, 4, 1)
Case 9
GetG = Mid(strG, 5, 1)
End Select
End Function
Private Function ReadLongNumber(ByVal LongX As String) As String
Dim numberx As String
Dim l As Long '长度
Dim m As Long '多余位数
Dim c As Long '循环次数
Dim i As Long, j As Long '标志
Dim CurN As String
numberx = LongX
l = Len(numberx)
Do Until l < 9
m = l Mod 8
If m = 0 Then m = 8
CurN = Left(numberx, m)
If ReadIntNumber(CurN) <> "零" Then
ReadLongNumber = ReadLongNumber & ReadIntNumber(CurN) & "亿"
Else
ReadLongNumber = ReadLongNumber & "亿"
End If
numberx = Right(numberx, Len(numberx) - m)
l = Len(numberx)
Loop
ReadLongNumber = ReadLongNumber & ReadIntNumber(numberx)
If Len(ReadLongNumber) > 2 And Right(ReadLongNumber, 1) = "零" Then '去尾 零
ReadLongNumber = Left(ReadLongNumber, Len(ReadLongNumber) - 1)
End If
If Mid(ReadLongNumber, 1, 2) = "壹拾" Then
'掐头 壹拾
ReadLongNumber = Right(ReadLongNumber, Len(ReadLongNumber) - 1)
Mid(ReadLongNumber, 1, 1) = "拾"
End If
Zero_Count = 0
End Function
Private Function ReadIntNumber(ByVal numberx As String) As String
Dim l As Long '长度
Dim m As Long '多余位数
Dim c As Long '循环次数
Dim i As Long, j As Long '标志
Dim CurN As String
If Val(numberx) = 0 Then ReadIntNumber = GetN(0): Exit Function
l = Len(numberx)
If l > 8 Then Exit Function
m = l Mod 9
CurN = Right(numberx, m)
For i = Len(CurN) To 1 Step -1
If GetN(Int(Mid(CurN, i, 1))) = "零" And Zero_Count = 1 Then
If GetG(Len(CurN) - i + 1) = "万" Then
If (Not (Val(Left(CurN, Len(CurN) - 5)) = 0)) Then
ReadIntNumber = GetG(Len(CurN) - i + 1) & ReadIntNumber
End If
End If
Else
If GetN(Int(Mid(CurN, i, 1))) = "零" Then
ReadIntNumber = GetN(Int(Mid(CurN, i, 1))) & ReadIntNumber
If GetG(Len(CurN) - i + 1) = "万" Then
If (Not (Val(Left(CurN, Len(CurN) - 5)) = 0)) Then ReadIntNumber = GetG(Len(CurN) - i + 1) & ReadIntNumber
End If
Zero_Count = 1
Else
ReadIntNumber = GetG(Len(CurN) - i + 1) & ReadIntNumber
ReadIntNumber = GetN(Int(Mid(CurN, i, 1))) & ReadIntNumber
Zero_Count = 0
End If
End If
Next i
'Loop
If Len(ReadIntNumber) > 2 And Right(ReadIntNumber, 1) = "零" Then
'去尾 零
ReadIntNumber = Left(ReadIntNumber, Len(ReadIntNumber) - 1)
End If
If Mid(ReadIntNumber, 1, 2) = "壹拾" Then
'掐头 壹拾
ReadIntNumber = Right(ReadIntNumber, Len(ReadIntNumber) - 1)
Mid(ReadIntNumber, 1, 1) = "拾"
End If
End Function
Public Function ReadNumber(ByVal numberx As String) As String
Dim LongX As String
Dim PointX As String
Dim LongLong As Long
Dim bFS As Boolean '负数
If Not IsNumeric(numberx) Then
ReadNumber = ""
Exit Function
End If
If CDbl(numberx) < 0 Then
numberx = -numberx
bFS = True
End If
numberx = CStr(Format(numberx, "General Number"))
LongLong = InStr(1, numberx, ".")
If LongLong <> 0 Then
ReadNumber = ReadLongNumber(Left(numberx, LongLong - 1))
ReadNumber = ReadNumber & "点" & ReadSmallNumber(Right(numberx, Len(numberx) - LongLong))
Else
ReadNumber = ReadLongNumber(numberx)
End If
If bFS = True Then
ReadNumber = "负" & ReadNumber
End If
End Function
Private Function ReadSmallNumber(SmallNumber As String) As String
Dim i As Long
For i = 1 To Len(SmallNumber)
ReadSmallNumber = ReadSmallNumber & GetN(Mid(SmallNumber, i, 1))
Next i
End Function
Private Function ReadSmallNumberToRMB(SmallNumber As String) As String
ReadSmallNumberToRMB = GetN(Mid(SmallNumber, 1, 1)) & "角" & GetN(Mid(SmallNumber, 2, 1)) & "分"
End Function
Public Function ReadNumberToRMB(ByVal numberx As String) As String
Dim LongX As String
Dim PointX As String
Dim LongLong As Long
Dim bFS As Boolean '负数
If Not IsNumeric(numberx) Then
ReadNumberToRMB = ""
Exit Function
End If
If CDbl(numberx) < 0 Then
numberx = -numberx
bFS = True
End If
numberx = CStr(Format(numberx, "#.00"))
LongLong = InStr(1, numberx, ".")
If Right(numberx, Len(numberx) - LongLong) <> "" Then
ReadNumberToRMB = ReadLongNumber(Left(numberx, LongLong - 1))
ReadNumberToRMB = ReadNumberToRMB & "元" & ReadSmallNumberToRMB(Right(numberx, Len(numberx) - LongLong))
Else
ReadNumberToRMB = ReadLongNumber(numberx)
End If
If bFS = True Then
ReadNumberToRMB = "负" & ReadNumberToRMB
End If
End Function
Sub zh()
Range("a2") = ReadNumberToRMB(Range("a1"))
End Sub
4. 请问什么是币种代码各种币种的代码是什么
币种代码即是货币代码指一国货币在交易中为了方便而使用的代码。一般以三个大写的英文字母表示，其中前两个字一般代表国名，后一个字一般代表货币名。
各种币种的代码是全世界150多个国家及地区其中大约有30种货币属于交易活跃的货币。单以这30种货币来说，每一种货币对其它货币一共有29种汇率，就会有435种不同汇率。
常见的币种代码：人民币 CNY(RMB)、美元 USD、日元JPY、欧元EUR、英镑 GBP、德国马克 DEM、瑞士法郎CHF、法国法郎FRF、加拿大元CAD、澳大利亚元AUD、港币 HKD。
(4)虚拟货币代码byc扩展阅读：
目前世界外汇市场上重要外汇之间的基本格局是：
大多数货币之间的基本定价关系仍以美元为主，美元的国际地位是与美国强大的发展实力和国际汇率制度形成与发展的历史相联系的。
日本经济的飞跃和相当实力使日元地位得以稳固和扩张。欧元是一个新生儿，欧洲区统一政策的强大后劲及其内在经济实力决定了欧元必将成为21世纪与美元、日元统领外汇市场风骚的重要货币。
为了防范外汇风险，目前亚洲各国中央银行已经控制了世界外汇储备的一半。中国大陆的外汇储备已有3.82万亿美元，日本、中国台湾、中国香港紧随其后。亚洲各国的增长趋势正在使国际货币体系的权力平衡格局向着有利于亚洲的方向发展。
5. 虚拟货币诈骗集团惯用手法
首先，我想向大家解释一下虚拟货币的原理。以比特币为例，它是密码学货币，其原理是给出不可逆算法的解，经过不可逆算法的运算，能得出这个解的原值，就是一个比特币。由于算法的不可逆性，你无法从解中反推出原值，所以你能做的只有拿不同的值一个个试，即所谓“挖矿”。
这里给大家举一个“XX币”的算法例子：原值为一个三位数：abc，加密算法后得出密码，第一位为（a+15）^(b+2)/c后取小数点后第一位，第二位为c开（b+1）次方+5.25*a后取小数点后第一位，第三位为（c+25）乘以（b+43）后除以a的a次方，再取小数点后第一位。由此，得出加密后的数据xyz。问题是，您就算知道xyz，同时知道密码的算法，您依然没办法由xyz倒求出原值abc，唯一的办法是拿各种数据一个个套，直到有一个解为xyz（假设我们的算法每一个abc都只能求出唯一的xyz）。那么，由于xyz是三位数，其值域为0-999，共有1000个可能，我们选出其中的10个，比如990-999，作为验证“XX币”的有效值，能求出这10个解的abc的原值，就是“XX币”。
由于990到999只有10个数，因此能够算出这10个数的原值也只有10个，也就是说XX币总共只有10个，没人能够多变出一个来。这就保证了XX币总量恒定，不会“通货膨胀”，保证其总额不变的是数学规律，没人有办法更改，就仿佛没人能在1到10之间变出第11个整数一样。而挖出矿的人，要证明他对某个XX币的持有权，只要公布经过算法计算后得出的那个值，比如996，就可以在不泄露XX币的真值的前提下确认他对该XX币的所有权。
所以，判断一个虚拟货币是否靠谱，第一点就要看它是否公布了算法或者说源代码。因为算法是保证其总额不变和持有人所有权的根本前提。
其次，这个货币必须可以自由交易。自由交易的意思是，在任何时间，与任何人，以任何数量交易。这个道理更简单了，如果国家突然规定，你手里的人民币只能去指定的商店买东西，每月只能买一次，每次不得花费超过你持有人民币总额的5%，那你还不跳起来造反？
第三，这个货币必须有第三方交易平台。大家都知道，虚拟币本身没什么价值，大家愿意花那个钱买它才有价值。有第三方交易平台起码代表大家认同它。试想，假如你的单位告诉你，以后工资不发人民币，改发白条，所有人必须拿着白条到单位会计那，按照当日单位规定的兑换率兑换。你难道会觉得你们单位欣欣向荣吗？
6. 什么是瑞波币XRP
简介：由瑞博公司发行的一种协议币，瑞波网络的基础货币，它可以在整个瑞波网络中流通，总数量为1000亿，并且随着交易的增多而逐渐减少，瑞波币是ripple系统中唯一的通用货币，其不同于ripple系统中的其他货币，瑞波币的运营公司为RippleLabs(其前身为OpenCoin)。
发行时间：2011年
最大供给量：100，000，000，000XRP
目前流通总量：39，029，011，631XRP
交易量份额：目前占加密货币市场的10.1%。
市值：$44，270，765，264
7. 百特币这个用手机挖矿，一天能挖几元钱
不好说是几元，我只知道一天我能挖8000个左右吧。不过折合人民币只有0.1CNY（人民币）
8. 在Excel2000忠如何将数字转换成人民币大写
我给你一个方法将此复制下来粘贴到Excel单元格内就可以了。
=IF(ROUND(A5,2)<0,"无效数值","人民币"&IF(ROUND(A5,2)=0,"零元",IF(ROUND(A5,2)<1,"",TEXT(INT(ROUND(A5,2)),"[dbnum2]")&"元")&IF(INT(ROUND(A5,2)*10)-INT(ROUND(A5,2))*10=0,IF(INT(ROUND(A5,2))*(INT(ROUND(A5,2)*100)-INT(ROUND(A5,2)*10)*10)=0,"","零"),TEXT(INT(ROUND(A5,2)*10)-INT(ROUND(A5,2))*10,"[dbnum2]")&"角")&IF((INT(ROUND(A5,2)*100)-INT(ROUND(A5,2)*10)*10)=0,"整",TEXT((INT(ROUND(A5,2)*100)-INT(ROUND(A5,2)*10)*10),"[dbnum2]")&"分")))
还有以下方法：Excel将小写金额转换成人民币的大写金额
1、如何自定义：
打开EXCEL,新建一个文件Book1,按ALT+F11进入VBA编程环境,选中这个BOOK1文件,插入模块,将下面的源代码复制到右边的模块代码区内,然后将此BOOK1保存,保存类型一定选加载宏,文件名嘛可自由发挥,我就填"中文大写",确定OK!然后回到EXCEL,工具--加载宏-找到"中文大写",打勾确定,我们这个自定义函数就可以象内置函数样使用了!--->=rmbdx(123456.78),爽吧!
2、例子:
A、直接在函数内输入数值的（请注意参数的用法，默认用法是不用输入）
=rmbdx(123456.78)--->壹拾贰万叁仟肆佰伍拾陆元柒角捌分
=rmbdx(123456.78,0)--->壹拾贰万叁仟肆佰伍拾陆元柒角捌分
=rmbdx(123456.78,1)--->壹拾贰万叁仟肆佰伍拾陆元柒角捌分
=rmbdx(56.78)--->伍拾陆元柒角捌分
=rmbdx(0.78)--->柒角捌分
=rmbdx(0.784)--->柒角捌分
=rmbdx(0.785,1)--->柒角玖分
=rmbdx(0.02,1)--->贰分
B、引用某单元格数值进行转换的
假设你的D3单元格的数据（也可以是求和或其它公式得出的结果）需要转换，大写格式放在D4单元格，则D4输入公式：=rmbdx(d3)即可
C、其它形如=rmbdx(SUM(C4:C6))的也可以，用法象内置函数，请灵活使用
3、源代码：
Functionrmbdx(value,Optionalm=0)
’中文大写源代码,By对面男孩、redwin
’支持负数,支持小数点后的第三位数是否进行四舍五入处理
’默认参数为0,即不将小数点后的第三位数进行四舍五入处理
’2002-10-11--2002-10-13
OnErrorResumeNext
Dima
DimjfAsString’定义角分位
Dimj’定义角位
Dimf’定义分位
Ifvalue<0Then’处理正负数的情况
a="负"
Else
a=""
EndIf
IfIsNumeric(value)=FalseThen’判断待转换的value是否为数值
rmbdx="需转换的内容非数值"
Else
value=Abs(CCur(value))
’当参数m不输入(默认为0)或为0时,小数点后的第三数不进行四舍五入处理
’当参数m为1或其它数值时,小数点后的第三数进行四舍五入处理
Ifm=0Then
jf=Fix((value-Fix(value))*100)
value=Fix(value)+jf/100
Else’厘位进行四舍五入实践很少用到,但还是要照顾到
value=Application.WorksheetFunction.Round(value,2)’-->这句是关键!只用round有bug
jf=Round((value-Fix(value))*100,0)
EndIf
Ifvalue=0Orvalue=""Then’当待转换数值为0或空时,不进行转换
rmbdx=""
Else
strrmbdx=Application.WorksheetFunction.Text(Int(value),"[DBNum2]")&"元"’转换整数位
IfInt(value)=0Then
strrmbdx=""
EndIf
IfInt(value)<>valueThen
Ifjf>9Then’判断小数位
j=Left(jf,1)
f=Right(jf,1)
Else
j=0
f=jf
EndIf
Ifj<>0Andf<>0Then’角分位都有时
jf=Application.WorksheetFunction.Text(j,"[DBNum2]")&"角"_
&Application.WorksheetFunction.Text(f,"[DBNum2]")&"分"
Else
’处理出现零几分的情况
IfInt(value)=0Andj=0Andf<>0Then
jf=Application.WorksheetFunction.Text(f,"[DBNum2]")&"分"
Else
Ifj=0Then’有分无角时
jf="零"&Application.WorksheetFunction.Text(f,"[DBNum2]")&"分"
Else
Iff=0Then’有角无分时
jf=Application.WorksheetFunction.Text(j,"[DBNum2]")&"角整"
EndIf
EndIf
EndIf
EndIf
strrmbdx=strrmbdx&jf’组装
Else
strrmbdx=strrmbdx&"整"
EndIf
rmbdx=a&strrmbdx’最后成型了,各位MM满意了吧
EndIf
EndIf
EndFunction
9. 人民币100代码有x开头的么
有啊，以下是2005版100元的冠号列表
05100冠号投放进度(截至2010年1月28日)
1 一 6 AD AE AG AH AI AJ 2004年7月--2006年1月 AA——JJ
2 二 6 UA UB UC UD UE UF 2005年4月--2006年12月 PA——ZJ
3 三 7 HS HT HU HW HX HY HZ 2006年3月--2008年1月 AP——JZ
4 四 7 XS XT XU XW XX XY XZ 2007年4月--2008年7月 PP——ZZ
5 五 6 UO YK YL YM YN YO 2008年2月--至今 PK——ZO
6 六 3 MS MY MZ 2008年8月--至今 KP——OZ
7 七 1 JM 2009年2月--至今 AK——JO
第一大组(99种)
AA AB AC AD AE □ AG AH AI AJ
BA BB BC BD BE BF BG BH BI BJ
CA CB CC CD CE CF CG CH CI CJ
DA DB DC DD DE DF DG DH DI DJ
EA EB EC ED EE EF EG EH EI EJ
FA FB FC FD FE FF FG FH FI FJ
GA GB GC GD GE GF GG GH GI GJ
HA HB HC HD HE HF HG HH HI HJ
IA IB IC ID IE IF IG IH II IJ
JA JB JC JD JE JF JG JH JI JJ
第二大组(100种)
PA PB PC PD PE PF PG PH PI PJ
QA QB QC QD QE QF QG QH QI QJ
RA RB RC RD RE RF RG RH RI RJ
SA SB SC SD SE SF SG SH SI SJ
TA TB TC TD TE TF TG TH TI TJ
UA UB UC UD UE UF UG UH UI UJ
WA WB WC WD WE WF WG WH WI WJ
XA XB XC XD □ XF XG XH XI XJ
YA YB YC YD YE YF YG YH YI YJ
ZA ZB ZC ZD ZE ZF ZG ZH ZI ZJ
第三大组(99种)
AP AQ AR AS AT AU AW AX AY AZ
BP BQ BR BS BT □ BW BX BY BZ
CP □ CR CS CT CU CW CX CY CZ
DP DQ DR DS DT DU DW DX DY DZ
EP EQ ER ES ET EU EW EX EY EZ
FP FQ FR FS FT FU FW FX FY FZ
GP GQ GR GS GT GU GW GX GY GZ
HP HQ HR HS HT HU HW HX HY HZ
IP IQ IR IS IT IU IW IX IY IZ
JP JQ JR JS JT JU JW JX JY JZ
第四大组(97种)
PP PQ PR PS PT PU PW PX PY PZ
QP QQ QR QS QT QU QW QX □ QZ
RP RQ RR RS RT RU RW RX RY RZ
SP SQ SR SS ST SU SW SX SY SZ
TP TQ TR TS TT TU TW TX TY □
UP UQ UR US UT UU.UWUX UY UZ
WP WQ WR WS WT WU WW WX WY WZ
XP XQ XR XS XT XU XW XX XY XZ
YP YQ YR YS YT YU YW YX YY YZ
□ ZQ ZR ZS ZT ZU ZW ZX ZY ZZ
第五大组(44种)
PK PL □ □ □ QK QL QM QN QO
RK RL RM RN RO SK SL SM SN SO
TK TL TM TN TO UK UL UM UN UO
WK WL WM WN WO XK XL XM □ XO
□ YL □ YN YO ZK ZL ZM ZN ZO
第六大组(45种)
KP KQ KR KS KT KU KW KX KY
LP LQ LR LS LT LU LW LX □ LZ
MP MQ MR MS □ MU □ MX MY MZ
NP NQ □ NS NT NU NW NX NY NZ
OM OQ OR OS OT OU OW OX OY OZ
第七大组(26种)
□ □ □ □ □ BK □ □ □ □
CK CL □ □ □ DK DL DM □ DO
EK EL EM EN EO FK FL FM FN FO
GK GL □ □ □ □ HL HM HN □ □
□ □ IM IN □ □ JL □ □ □ JO
第八大组(3种)
KF MG NI
05100补票冠号(29.种)：AC.AD AE AH AI UE UF UG UH UI UJ HT HU HW HY HZ XT XU XW XX XY XZ YLYN MX MY MZ JL JO
05100. 已发现投放513个冠号(含AA)
10. excel中人民币小写转大写的函数怎么写
我给你一个方法将此复制下来粘贴到Excel单元格内就可以了。
=IF(ROUND(A5,2)<0,"无效数值","人民币"&IF(ROUND(A5,2)=0,"零元",IF(ROUND(A5,2)<1,"",TEXT(INT(ROUND(A5,2)),"[dbnum2]")&"元")&IF(INT(ROUND(A5,2)*10)-INT(ROUND(A5,2))*10=0,IF(INT(ROUND(A5,2))*(INT(ROUND(A5,2)*100)-INT(ROUND(A5,2)*10)*10)=0,"","零"),TEXT(INT(ROUND(A5,2)*10)-INT(ROUND(A5,2))*10,"[dbnum2]")&"角")&IF((INT(ROUND(A5,2)*100)-INT(ROUND(A5,2)*10)*10)=0,"整",TEXT((INT(ROUND(A5,2)*100)-INT(ROUND(A5,2)*10)*10),"[dbnum2]")&"分")))
还有以下方法：Excel将小写金额转换成人民币的大写金额
1、如何自定义：
打开EXCEL,新建一个文件Book1,按ALT+F11进入VBA编程环境,选中这个BOOK1文件,插入模块,将下面的源代码复制到右边的模块代码区内,然后将此BOOK1保存,保存类型一定选加载宏,文件名嘛可自由发挥,我就填"中文大写",确定OK!然后回到EXCEL,工具--加载宏-找到"中文大写",打勾确定,我们这个自定义函数就可以象内置函数样使用了!--->=rmbdx(123456.78),爽吧!
2、例子:
A、直接在函数内输入数值的（请注意参数的用法，默认用法是不用输入）
=rmbdx(123456.78)--->壹拾贰万叁仟肆佰伍拾陆元柒角捌分
=rmbdx(123456.78,0)--->壹拾贰万叁仟肆佰伍拾陆元柒角捌分
=rmbdx(123456.78,1)--->壹拾贰万叁仟肆佰伍拾陆元柒角捌分
=rmbdx(56.78)--->伍拾陆元柒角捌分
=rmbdx(0.78)--->柒角捌分
=rmbdx(0.784)--->柒角捌分
=rmbdx(0.785,1)--->柒角玖分
=rmbdx(0.02,1)--->贰分
B、引用某单元格数值进行转换的
假设你的D3单元格的数据（也可以是求和或其它公式得出的结果）需要转换，大写格式放在D4单元格，则D4输入公式：=rmbdx(d3)即可
C、其它形如=rmbdx(SUM(C4:C6))的也可以，用法象内置函数，请灵活使用
3、源代码：
Functionrmbdx(value,Optionalm=0)
’中文大写源代码,By对面男孩、redwin
’支持负数,支持小数点后的第三位数是否进行四舍五入处理
’默认参数为0,即不将小数点后的第三位数进行四舍五入处理
’2002-10-11--2002-10-13
OnErrorResumeNext
Dima
DimjfAsString’定义角分位
Dimj’定义角位
Dimf’定义分位
Ifvalue<0Then’处理正负数的情况
a="负"
Else
a=""
EndIf
IfIsNumeric(value)=FalseThen’判断待转换的value是否为数值
rmbdx="需转换的内容非数值"
Else
value=Abs(CCur(value))
’当参数m不输入(默认为0)或为0时,小数点后的第三数不进行四舍五入处理
’当参数m为1或其它数值时,小数点后的第三数进行四舍五入处理
Ifm=0Then
jf=Fix((value-Fix(value))*100)
value=Fix(value)+jf/100
Else’厘位进行四舍五入实践很少用到,但还是要照顾到
value=Application.WorksheetFunction.Round(value,2)’-->这句是关键!只用round有bug
jf=Round((value-Fix(value))*100,0)
EndIf
Ifvalue=0Orvalue=""Then’当待转换数值为0或空时,不进行转换
rmbdx=""
Else
strrmbdx=Application.WorksheetFunction.Text(Int(value),"[DBNum2]")&"元"’转换整数位
IfInt(value)=0Then
strrmbdx=""
EndIf
IfInt(value)<>valueThen
Ifjf>9Then’判断小数位
j=Left(jf,1)
f=Right(jf,1)
Else
j=0
f=jf
EndIf
Ifj<>0Andf<>0Then’角分位都有时
jf=Application.WorksheetFunction.Text(j,"[DBNum2]")&"角"_
&Application.WorksheetFunction.Text(f,"[DBNum2]")&"分"
Else
’处理出现零几分的情况
IfInt(value)=0Andj=0Andf<>0Then
jf=Application.WorksheetFunction.Text(f,"[DBNum2]")&"分"
Else
Ifj=0Then’有分无角时
jf="零"&Application.WorksheetFunction.Text(f,"[DBNum2]")&"分"
Else
Iff=0Then’有角无分时
jf=Application.WorksheetFunction.Text(j,"[DBNum2]")&"角整"
EndIf
EndIf
EndIf
EndIf
strrmbdx=strrmbdx&jf’组装
Else
strrmbdx=strrmbdx&"整"
EndIf
rmbdx=a&strrmbdx’最后成型了,各位MM满意了吧
EndIf
EndIf
EndFunction