人民币数字大写数字大写问题
我在EXCEL中做了一个人民币大写的自定义VB函数,使用时发现绝大部分数据结果正确,但个别数据结果不正确。见图标黄处是错误的。哪位大神知道是为什么?下面是代码:Funct...
我在EXCEL中做了一个人民币大写的自定义VB函数,使用时发现绝大部分数据结果正确,但个别数据结果不正确。见图标黄处是错误的。哪位大神知道是为什么? 下面是代码:Function rmbdx(sinData As Double) As String Dim strresult As String strresult = "" Dim intpart As Long, sinpart As Single If sinData = 0 Then strresult = WorksheetFunction.Text(sinData, "[dbnum2]") & "元整" ElseIf sinData < 1 Then intpart = Int(sinData) sinpart = sinData - intpart strresult = _ WorksheetFunction.Text(Int(sinpart * 10), "[dbnum2]") & "角" & _ WorksheetFunction.Text(sinpart * 100 Mod 10, "[dbnum2]") & "分" ElseIf sinData = Int(sinData) Then strresult = WorksheetFunction.Text(sinData, "[dbnum2]") & "元整" Else intpart = Int(sinData) sinpart = sinData - intpart strresult = _ WorksheetFunction.Text(intpart, "[dbnum2]") & "元" & _ WorksheetFunction.Text(Int(sinpart * 10), "[dbnum2]") & "角" & _ WorksheetFunction.Text(sinpart * 100 Mod 10, "[dbnum2]") & "分" End If rmbdx = strresultEnd Function
展开
展开全部
一、 中文大写金额数字应用正楷或行书填写,如壹(壹)、贰(贰)、叁、肆(肆)、伍(伍)、陆(陆)、柒、捌、玖、拾、伯、仟、万(万)、亿、元、角、分、零、整(正)等字样。不得用一、二(两)、三、四、五、六、七、八、九、十、念、毛、另(或0)填写,不得自造简化字。如果金额数字书写中使用繁体字,也应受理。
二、 中文大写金额数字到"元"为止的,在"元"之后,应写"整"(或"正")字,在"角"之后可以不写"整"(或"正")字。数字有"分"的,"分"后面不写"整"(或"正")字。
三、 中文大写金额数字前应标明"人民币"字样,大写金额数字应紧接"人民币"字样填写,不得留有空白。大写金额数字前未印"人民币"字样的,应加填"人民币"三字。
二、 中文大写金额数字到"元"为止的,在"元"之后,应写"整"(或"正")字,在"角"之后可以不写"整"(或"正")字。数字有"分"的,"分"后面不写"整"(或"正")字。
三、 中文大写金额数字前应标明"人民币"字样,大写金额数字应紧接"人民币"字样填写,不得留有空白。大写金额数字前未印"人民币"字样的,应加填"人民币"三字。
追问
朋友,请把问题看清楚。我的问题是:阿拉伯数字的数值转换成人民币大写方式的数值后,大部分相等,但黄色标注的几个不相等。为什么会出现这种情况?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询