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 )