function.vbs

来自「20041230162250801409： 浙江省丽水市公铁联运有限公司OA系」· VBS 代码 · 共 293 行

Function Up(Dxs)
  dim Sw 
  dim SzP 
  dim TempStr 
  dim TempA 
  dim i 
  dim DXStr
  
  Sw = Len(Trim(Dxs))
  SzP = InStr(1, Trim(Dxs), ".")
  If SzP = 0 Then
   For i = 1 To Sw
       TempStr = Right(Trim(Dxs), i)
          TempStr = Left(TempStr, 1)
          TempStr = Converts(TempStr)
          Select Case i
              Case 1
                  If TempStr = "零" Then
                     TempStr = "元"
                     Else
                     TempStr = TempStr + "元"
                  End If
              Case 2
                  If TempStr = "零" Then
                     TempStr = "零"
                  Else
                     TempStr = TempStr + "拾"
                  End If
              Case 3
                  If TempStr = "零" Then
                     TempStr = "零"
                     Else
                     TempStr = TempStr + "佰"
                  End If
              Case 4
                  If TempStr = "零" Then
                     TempStr = "零"
                     Else
                     TempStr = TempStr + "仟"
                  End If
              Case 5
                  If TempStr = "零" Then
                     TempStr = "万"
                     Else
                     TempStr = TempStr + "万"
                  End If
              Case 6
                  If TempStr = "零" Then
                     TempStr = "零"
                     Else
                     TempStr = TempStr + "拾"
                  End If
              Case 7
                  If TempStr = "零" Then
                     TempStr = "零"
                     Else
                     TempStr = TempStr + "佰"
                  End If
              Case 8
                  If TempStr = "零" Then
                     TempStr = "零"
                     Else
                     TempStr = TempStr + "仟"
                  End If
              Case 9
                  If TempStr = "零" Then
                     TempStr = "亿"
                     Else
                     TempStr = TempStr + "亿"
                  End If
           End Select
       TempA = Left(Trim(DXStr), 1)
       If TempStr = "零" Then
          Select Case TempA
            Case "零"
                DXStr = DXStr
            Case "元"
                DXStr = DXStr
            Case "万"
                DXStr = DXStr
            Case "亿"
                DXStr = DXStr
            Case Else
                DXStr = TempStr + DXStr
          End Select
         Else
           DXStr = TempStr + DXStr
       End If
       Next
    Else
      For i = 1 To SzP - 1
           TempStr = Right(Trim(Dxs), i + (Sw - SzP + 1))
           TempStr = Left(TempStr, 1)
           TempStr = Converts(TempStr)
           Select Case i
              Case 1
                  If TempStr = "零" Then
                     TempStr = "元"
                     Else
                     TempStr = TempStr + "元"
                  End If
              Case 2
                  If TempStr = "零" Then
                     TempStr = "零"
                  Else
                     TempStr = TempStr + "拾"
                  End If
              Case 3
                  If TempStr = "零" Then
                     TempStr = "零"
                     Else
                     TempStr = TempStr + "佰"
                  End If
              Case 4
                  If TempStr = "零" Then
                     TempStr = "零"
                     Else
                     TempStr = TempStr + "仟"
                  End If
              Case 5
                  If TempStr = "零" Then
                     TempStr = "万"
                     Else
                     TempStr = TempStr + "万"
                  End If
              Case 6
                  If TempStr = "零" Then
                     TempStr = "零"
                     Else
                     TempStr = TempStr + "拾"
                  End If
              Case 7
                  If TempStr = "零" Then
                     TempStr = "零"
                     Else
                     TempStr = TempStr + "佰"
                  End If
              Case 8
                  If TempStr = "零" Then
                     TempStr = "零"
                     Else
                     TempStr = TempStr + "仟"
                  End If
              Case 9
                  If TempStr = "零" Then
                     TempStr = "亿"
                     Else
                     TempStr = TempStr + "亿"
                  End If
              Case Else
              
                 TempStr = ""
           End Select
          TempA = Left(Trim(DXStr), 1)
       If TempStr = "零" Then
          Select Case TempA
            Case "零"
                DXStr = DXStr
            Case "元"
                DXStr = DXStr
            Case "万"
                DXStr = DXStr
            Case "亿"
                DXStr = DXStr
            Case Else
                DXStr = TempStr + DXStr
          End Select
         Else
           DXStr = TempStr + DXStr
       End If
       Next
        XStr = Right(Trim(Dxs), Sw - SzP)
         For i = 1 To Sw - SzP
           TempStr = Left(XStr, i)
           TempStr = Right(TempStr, 1)
           TempStr = Converts(TempStr)
           Select Case i
              Case 1
               If TempStr = "零" Then
                   TempStr = ""
                  Else
                   TempStr = TempStr + "角"
               End If
              Case 2
               If TempStr = "零" Then
                   TempStr = ""
                  Else
                   TempStr = TempStr + "分"
                  End If
              Case Else
         
                TempStr = ""
           End Select
          DxstrX = DxstrX + TempStr
       Next
       DXStr = DXStr + DxstrX
  End If
     Up = DXStr & "整"
End Function

Function Converts(NumStr)
     Select Case NumStr
        Case 0
          Converts = "零"
        Case 1
    Converts = "壹"
        Case 2
          Converts = "贰"
        Case 3
          Converts = "叁"
        Case 4
          Converts = "肆"
        Case 5
          Converts = "伍"
        Case 6
           Converts = "陆"
        Case 7
           Converts = "柒"
        Case 8
           Converts = "捌"
        Case 9
           Converts = "玖"
     End Select
End Function

function switch()
value=login("ww11").Value
login("ww10").value=up(value)
end function
function switch1()
value=login("ww5").Value
login("ppp").value=up(value)
end function
function mult1()
dim a(2)
'if login("rr").value="" or login("uu").value="" then 
'Alert "数量或单价不能为空"
'else
a(1)=login("rr").value
a(2)=login("uu").value
login("vv1").value=cstr(a(1)*a(2))
'end if
end function

function mult2()
dim a(2)
'if login("rr1").value="" or login("uu1").value="" then 
'Alert "数量或单价不能为空"
'else
a(1)=login("rr1").value
a(2)=login("uu1").value
login("vv2").value=cstr(a(1)*a(2))
'end if
end function

function mult3()
dim a(2)
'if login("rr2").value="" or login("uu2").value="" then 
'Alert "数量或单价不能为空"
'else
a(1)=login("rr2").value
a(2)=login("uu2").value
login("vv3").value=cstr(a(1)*a(2))
'end if
end function

function add()
dim a(9)
for i=1 to 8
if login("ww"&i).value="" then
a(i)=0
else
a(i)=login("ww"&i).value
end if
a(9)=a(i)+a(9)
next
login("vv4").value=cstr(a(9))
end function

function add2()
dim a(5)
for i = 1 to 4
if login("vv"&i).value="" then
a(i)=0
else
a(i)=login("vv"&i).value
end if
a(5)=a(5)+a(i)
next 
login("ww11").value=cstr(a(5))
switch()
switch1()
end function