谈到在线,大家都了解,有朋友问如何在word中转换成横向页面,当然了,还有人问银行人民币大写规则,这到底怎么回事呢?事实上怎样在excel中筛选想要的数据呢,下面是小编分享的人民币大写在线转换器,希望能帮到大家。
人民币大写在线转换器
Private Sub Command1_Click()
Dim lon As Long
Dim ll As Long
Dim number As Long
Dim Bn() As Variant
Dim An() As Variant
Dim isO As Long
Bn() = Array("零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖")
An() = Array("", "拾", "佰", "仟", "万", "拾", "佰", "仟")
If Val(Text1.Text) >= 10000000 Then
MsgBox "暂时不能换超过仟万位"
Exit Sub
End If
number = Val(Text1.Text)
lon = 1
ll = 1
While number >= 10
number = number / 10
lon = lon + 1
ll = ll * 10
Wend
number = Val(Text1.Text)
Text2 = ""
For i = 1 To lon
If (number \ ll) <> 0 Then
Text2 = Text2 & Bn(number \ ll)
Text2 = Text2 & An(lon - i)
isO = 1
Else
If isO = 1 Then
If (lon - i) Mod 4 = 0 Then
If Right(Text2, 1) = "零" Then
Text2 = Left(Text2, Len(Text2.Text) - 1) & An(lon - i)
isO = 1
End If
Else
Text2 = Text2 & Bn(number \ ll)
isO = 0
End If
Else
If (lon - i) Mod 4 = 0 Then
If Right(Text2, 1) = "零" Then
Text2 = Left(Text2, Len(Text2.Text) - 1) & An(lon - i)
isO = 1
End If
End If
End If
End If
number = number Mod ll
ll = ll / 10
Next i
End Sub
(不明白Q我)
不知道WORD中有没有这个功能,不过强大的百度可以帮助你
百度“转换人民币大写”,就能找到“人民币大写在线转换工具”,输入数值转换后拷贝回WORD即可。
自动生成人民币大写的条件公式是什么?
1、在电脑中打开EXCEL表格,在表格中A2中输入数字金额,在B1中输入大写金额的条目。
2、在B2表格中输入下列公示。
=IF(A2=0,"",IF(A2<0,"负","")&SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TEXT(INT(ABS(A2)),"[DBNum2]")&"元"&TEXT(RIGHT(TEXT(A2,".00"),2),"[DBNum2]0角0分"),"零角零分","整"),"零分","整"),"零","零"),"零元零",""))
3、输入完成后按回车键,则自动生成了对应的大写金额。
4、将鼠标放置在如图所示的表格右下角,使鼠标形状变为黑色实心加号。
5、下拉至需要的区域,则其他列的数字金额均自动生成为中文大写金额。
C++人民币大写转换的一道题
#include "stdafx.h"
#include <string>
#include <iostream>
#include <algorithm>
using namespace std;
// 将数字对应的中文返回
string GetCName(int nVal, int nUnit)
{
// 根据当前位置判断额度与单位
string ArrCName[] = {"零", "壹", "贰", "参", "肆", "伍", "陆", "柒", "捌", "玖"};
string ArrUnit[] = {"元", "拾", "佰", "仟", "万", "舍", "佰", "仟"};
// 合并
string strTemp;
if (nVal == 0) // 防止出现零万零佰等情况,还有很多其它情况
strTemp = ArrCName[nVal];
else
strTemp = ArrCName[nVal] + ArrUnit[nUnit];
return strTemp;
}
int main()
{
int nVal; // 阿拉伯
string strVal; // 中文
cout<<"请输出额度:";
cin>>nVal;
// 把数据与10相取并取余逐位判断
int nUnit=0; // 单位仟,万什么的
while (nVal != 0)
{
int nRemainder; // 余数
nRemainder = nVal%10;
nVal = nVal / 10;
strVal = GetCName(nRemainder, nUnit++) + strVal;
}
cout<<strVal<<endl;
return 0;
}
我没有直接用你的代码,而是新写了一段,我觉得这个题还是比较有意思的
转换到中文后还会有很多种情况我就没有一一进行判断,像1000001会出现很多零呀什么,你自己来做吧,对防错也没有进行处理,有需要自己加,主要是交流思路
人民币大写规则,万后的零要写吗,人民币大写转换器
这个数目是怎么读的就怎么写,有些零是不用读出来的也就不用写,但如果写小写就要直接写出来。
如何在ORACLE中实现人民币大写的转换
不知道WORD中有没有这个功能,不过强大的百度可以帮助你 百度“转换人民币大写”,就能找到“人民币大写在线转换工具”,输入数值转换后拷贝回WORD即可。
如何在Excel中自动生成人民币大写
可以通过输入法和公式的方式进行大写的转换,具体操作步骤如下:
工具/原材料
excel2016版、电脑。
1、打开电脑找到并点击excel2016版表格软件;
2、打开表格软件以后,可以通过在输入数字前加“v”的方式自动选择大写的金额;
3、选中B列的单元格以后,在编辑栏里输入下列公式:=IF(A1=0,"",IF(A1<0,"负","")&SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TEXT(INT(ABS(A1)),"[DBNum2]")&"元"&TEXT(RIGHT(TEXT(A1,".00"),2),"[DBNum2]0角0分"),"零角零分","整"),"零分","整"),"零角","零"),"零元零",""))
4、输入公式以后,此时同时按“ctrl+回车键”即可对B列的单元格进行公式的填充即可。
怎样在EXCEL中数字转人民币大写
工具:excel2010
1、打开excel文档,如下图所示
2、在B2单元格输入如下公式:
=IF(TRIM(B1)="","",IF(B1=0,"",IF(B1<0,"负",)&IF(INT(B1),TEXT(INT(ABS(B1)),"[dbnum2]")&"元",)&IF(INT(ABS(B1)*10)-INT(ABS(B1))*10,TEXT(INT(ABS(B1)*10)-INT(ABS(B1))*10,"[dbnum2]")&"角",IF(INT(ABS(B1))=ABS(B1),,IF(ABS(B1)<0.1,,"零")))&IF(ROUND(ABS(B1)*100-INT(ABS(B1)*10)*10,),TEXT(ROUND(ABS(B1)*100-INT(ABS(B1)*10)*10,),"[dbnum2]")&"分","整")))
3、效果如下
怎么用Excel将小写金额转换成人民币的大写金额
可以先将小写金额所在的单元格选中,然后设置单元格格式为中文大写数字。
1、打开Excel文档,用鼠标将所有小写金额所在的单元格选中,然后右击被选中的单元格,点击“从下拉列表中选择...”按钮:
2、在打开的单元格格式设置窗口中,点击分类下面的“特殊”按钮,然后点击类型里面的“中文大写数字”按钮:
3、设置完成后,这时所有的小写金额都会转换成大写金额,然后将Excel文档进行保存即可:
Excel中将人民币小写转大写的公式?
工具/原材料
excel2018版、电脑。
1、打开电脑找到并双击打开excel2018新建工作表格;
2、双击打开excel新建工作表格以后,为了示范在A1输入好数字,在复制粘贴到B1中;
3、编辑数字并选中B1后,点击鼠标右键选择”设置单元格格式“的命令;
4、在弹出的对话框中点击特殊,并在右边的界面选择人民币大写点击确定;
5、设置并确定好以后,此时B1的单元格就自动的转换为大写;
6、也可以在单元格内直接输入v+数字,如:”v365874.51“选择大写的金额即可完成。