Lotus的金额大小写转换

在群里找人要来的，原来打算改成C#，熊找腾讯的同学要了一份C#的，就省点力气了。

Dim Session As New NotesSession
    Dim db As NotesDatabase
    Dim doc As NotesDocument    
    Set db = Session.CurrentDatabase
    Set doc = Session.DocumentContext    
        '将数字转换在人民币在写
    Dim  strMoney ,strDec, strInt, cNum ,tmp1 As String
    Dim subString As String
    Dim locDec, i, j As Integer 
    Dim d(4) As String                                  '元以下的单位
    Dim t(3) As String                                  '万以下的单位
    Dim w(3) As String                                  '阶符
    Dim n(9) As String                                  '数字
    Dim s(4) As String                                  '用以保存临时转化后的值
    
    d(0) = ""
    d(1) = "角"
    d(2) = "分"
    d(3) = "厘"
    d(4) = "毫"
    t(0) = ""
    t(1) = "拾"
    t(2) = "佰"
    t(3) = "仟"
    w(0) = ""
    w(1) = "圆"
    w(2) = "万"
    w(3) = "亿"
    n(0) = "零"
    n(1) = "壹"
    n(2) = "贰"
    n(3) = "叁"
    n(4) = "肆"
    
    n(5) = "伍"
    n(6) = "陆"
    n(7) = "柒"
    n(8) = "捌"
    n(9) = "玖"     

If Trim(doc.Smoney(0))<>"" Then
        
        strMoney = Trim(doc.Smoney(0))
        
        locDec = Instr(strMoney, ".")  
        s(0) = ""
        
        If locDec > 0 Then
            strDec = Right(strMoney, Len(strMoney) - locDec)
            
            If strDec <> "" Then                        '转化小数部分
                For i = 1 To Len(strDec)
                    cNum = Left(strDec, 1)
                    strDec = Right(strDec, Len(strDec) - 1)
                    If cNum <> "0" Then
                        s(0) = s(0) & n(Val(cNum)) & d(i)
                        
                    End If
                Next
            End If
            strInt = Left(strMoney, locDec - 1)         '取整数部分的值
        Else
            strInt = strMoney
        End If
        
        For i = 0 To Len(strInt) / 4            '每4个数字一组进行转换
            
            s(i + 1) = ""
            For j = 0 To 3
                If strInt <> "" Then
                    cNum = Right(strInt, 1)     '取末位数
                    strInt = Left(strInt, Len(strInt) - 1)
                    If cNum <> "0" Then         '不为零则加单位
                        s(i + 1) = n(Val(cNum)) & t(j) & s(i + 1)
                    Else
                        
                        s(i + 1) = n(Val(cNum)) & s(i + 1)
                    End If
                End If 
                doc.temp1=s(i+1)
                                           '删除重复的"零"
                doc.temp1=Evaluate(|@ReplaceSubstring(temp1;"零零";"零")|,doc)
                s(i+1)=doc.temp1(0)
            Next 
    If Right(s(i + 1), 1) = "零" Then   '删除末位的"零"
                s(i + 1) = Left(s(i + 1), Len(s(i + 1)) - 1)
            End If
            
            
        Next
        
        Num2Money = ""
        For i = 0 To 2 
            If Trim(s(3 - i)) = "" Then
                temp=""
            Else 
                temp=w(3 - i)
            End If
                                '连接整数位
            Num2Money = Num2Money & s(3 - i) &  temp
        Next
        
                                            '加上"元"
        If Trim(Num2Money) <> "" And Right(Num2Money, 1) <> "圆" Then
            Num2Money = Num2Money & "圆"
            
        End If
                                            '若无小数则加应加上"整"
        If Trim(s(0)) = "" Then
            Num2Money = Num2Money & "正"
            doc.Bmoney=Num2Money
        Else
            Num2Money = Num2Money & s(0)
            doc.Bmoney=Num2Money
        End If    
    Else
        doc.Bmoney=""
    End If        
    Call doc.save(True,True)