Notes中人民币大写换算的实现
来源:互联网 发布:冬天男士外套 知乎 编辑:程序博客网 时间:2024/05/16 18:06
'调用按钮的代码:
Sub Click(Source As Button)
Dim w As New notesUIWorkspace
Dim ui As notesUIdocument
Dim jineStr As String
Set ui = w.currentDocument
Call ui.refresh
jineStr = ui.fieldGetText("jine")
Call ui.fieldSetText("dxje",TurnResult(jineStr))
Call ui.refresh
End Sub
'换算函数
Function TurnResult(numStr As String) As String
Dim digi As Integer
Dim numLen As Integer
numLen = Len(numStr)
intStr = Left(numStr,(numLen - 3)) '取整数部分
digStr = Right(numStr,2) '取小数部分
numLen = Len(intStr)
digi_old = 9
'处理整数部分转换
While numLen <> 0
digi = Cint(Left(intStr,1))
If numLen<5 Then '完元以下的换算
If digi_old = 0 And digi = 0 And numLen<>1 Then
TurnResult = TurnResult
Else
If digi = 0 And numLen <> 1 Then
TurnResult = TurnResult + numToBigWrite(digi)
Elseif digi = 0 And digi_old = 0 And numLen = 1 Then
TurnResult = Left(TurnResult,Len(TurnResult)-1) + Unit(numLen)
Elseif digi = 0 And digi_old <> 0 And numLen = 1 Then
TurnResult = TurnResult + Unit(numLen)
Else
TurnResult = TurnResult + numToBigWrite(digi) + Unit(numLen)
End If
End If
Else '万元以上的换算
If digi_old = 0 And digi = 0 And numLen<>5 Then
TurnResult = TurnResult
Else
If digi = 0 And numLen <> 5 Then
TurnResult = TurnResult + numToBigWrite(digi)
Elseif digi = 0 And digi_old = 0 And numLen = 5 Then
TurnResult = Left(TurnResult,Len(TurnResult)-1) + Unit(numLen)
Elseif digi = 0 And digi_old <> 0 And numLen = 5 Then
TurnResult = TurnResult + Unit(numLen)
Else
TurnResult = TurnResult + numToBigWrite(digi) + Unit(numLen)
End If
End If
End If
digi_old = digi
intStr = Right(intStr,numLen - 1)
numLen = Len(intStr)
Wend
'小数部分的数值转换
TurnResult = TurnResult + numToBigWrite(Cint(Left(digStr,1))) + Unit(-1) + _
numToBigWrite(Cint(Right(digStr,1))) + Unit(-2) + "整"
End Function
'单位转换函数
Function Unit(bit As Integer) As String
Select Case bit
Case -1
Unit="角"
Case -2
Unit="分"
Case 1
Unit="元"
Case 2
Unit="拾"
Case 3
Unit="佰"
Case 4
Unit="仟"
Case 5
Unit="万"
Case 6
Unit="拾"
Case 7
Unit="佰"
Case 8
Unit="仟"
Case 9
Unit="亿"
Case Else
Unit="无效"+Cstr(bit)
End Select
End Function
- Notes中人民币大写换算的实现
- 在PB打印中实现人民币大写
- 在PB打印中实现人民币大写
- pb实现打印中人民币大写
- 数字转换大写人民币的delphi实现
- 数字转换大写人民币的delphi实现
- 数字转换大写人民币的delphi实现
- 数字转换大写人民币的delphi实现
- 数字转换大写人民币的delphi实现
- C#实现人民币大写
- java实现人民币大写
- 人民币大写的转换
- 简单实现 人民币转大写
- Java实现人民币大写代码
- python实现人民币大写转换
- java中数字转换汉语中人民币的大写
- 数值转大写人民币的类的实现
- java中人民币大写转换
- 在C#中运用SQLDMO备份和恢复Microsoft SQL Server数据库
- BS下用户登录后直接进入个人邮箱
- 拦截Internet垃圾邮件
- Notes中有关C++API的注意事项
- Notes隐藏数据库设计应用的维护
- Notes中人民币大写换算的实现
- Domino COM的HTML示例
- 通过Domino COM实现Web的痕迹保留设计思路
- Domino SMTP设置
- 解决Domino双网卡无法发送Internet邮件的问题
- BS开发技巧之一:利用Textarea实现长文本域的输入
- BS开发技巧之二:公式与JavaScript相结合处理BS出错
- BS开发技巧之三: 处理中文文件名附件存到本地时缺省出现乱码问题
- BS开发技巧之四: 处理取中文参数出现乱码问题