module1.bas

用VB开发的一些数据库的例子

Attribute VB_Name = "Module1"
Private Function setdata(num As Integer) As String
  Select Case num
  Case 0
      setdata = "零"
  Case 1
      setdata = "壹"
  Case 2
      setdata = "贰"
  Case 3
      setdata = "叁"
  Case 4
      setdata = "肆"
  Case 5
      setdata = "伍"
  Case 6
      setdata = "陆"
  Case 7
      setdata = "柒"
  Case 8
      setdata = "捌"
  Case 9
      setdata = "玖"
  End Select
End Function
Private Function chang(aaa As Integer) As String
  Select Case aaa
  Case 1
      chang = ""
  Case 2
      chang = "十"
  Case 3
      chang = "百"
  Case 4
      chang = "千"
  Case 5
      chang = "万"
  Case 6
      chang = "十"
  Case 7
      chang = "百"
  Case 8
      chang = "千"
  Case 9
      chang = "亿"
  Case 10
      chang = "十"
  End Select
End Function
Public Function changemoney(num) As String
  Dim i As Integer
  Dim j As Integer
  Dim myint As Integer
  Dim myint1 As Integer
  Dim mydoub As Double
  Dim mystr As String
  Dim mystr1 As String
  Dim mystr2 As String
  Dim mystr3 As String
  Dim mystr4 As String
  Dim money As Long
  Dim money1 As Integer
  Dim money2 As Long
  mystr = num
  myint = InStr(mystr, ".")
  If myint = 0 Then
     mystr = num
   Else
     mystr3 = Right(num, Len(num) - myint)
     If mystr3 <> "" Then
        mystr4 = Left(mystr3, 1)
        mystr3 = Right(mystr3, Len(mystr3) - 1)
        If mystr4 <> "0" Then
           mystr2 = mystr2 + setdata(Val(mystr4)) + "角"
        End If
        If mystr3 <> "" Then
           mystr4 = Left(mystr3, 1)
           mystr2 = mystr2 + setdata(Val(mystr4)) + "分"
        End If
     End If
     mystr = Left(num, myint - 1)
  End If
  j = Len(mystr)
  For i = 1 To Len(mystr)
      money2 = Left(mystr, i)
      money1 = Right(money2, 1)
      If money1 = 0 Then
         If j = 5 Then
            If Right(mystr1, 1) <> "万" Then mystr1 = mystr1 & "万"
             Else
               If Right(mystr1, 1) <> "零" And Right(money, j) > 0 Then mystr1 = mystr1 & "零"
            End If
          Else
            mystr1 = mystr1 & setdata(money1) + chang(j)
         End If
         j = j - 1
  Next i
  changemoney = mystr1 & "元" & mystr2
End Function