Convert dollar amount (numeric) to word(Access)

jasper3773

我想在access里面以下的效果
就是说我只要key in 123然后它自己会转去one hundred and twenty three

我找到了以下的code但是我不知道要如何把它应用在access里面。。。有谁可以帮帮我吗

-------------------------------------------------------
Function NumberToWords(InputNumber As Double, Optional NeedCents As Boolean = False) As Variant

    Dim varWords        As Variant
    Dim Billions        As Double
    Dim Millions        As Double
    Dim Thousands       As Double
    Dim Hundreds        As Double
    Dim Cents           As Integer
    Dim varNumber       As Variant
   
    Dim OneBillion      As Double
   
    If Not IsNumeric(InputNumber) Then
        NumberToWords = Null
        Exit Function
    End If
     
    If InputNumber = 0 Then
        NumberToWords = "Zero "
        Exit Function
    End If

    Cents = (InputNumber - Int(InputNumber)) * 100
      
    InputNumber = Int(InputNumber)
   
    OneBillion = 1000000000

    Billions = Int(InputNumber / OneBillion)
   
    Millions = InputNumber - (Billions * OneBillion)
    Millions = Int(Millions / 1000000)
   
    Thousands = InputNumber - (Billions * OneBillion) - (Millions * 1000000)
    Thousands = Int(Thousands / 1000)
   
    Hundreds = InputNumber - (Billions * OneBillion) - (Millions * 1000000) - (Thousands * 1000)
   
    varWords = SmallNumberToWords(Billions) + "Billion, " & _
               SmallNumberToWords(Millions) + "Million, " & _
               SmallNumberToWords(Thousands) + "Thousand, " & _
               SmallNumberToWords(Hundreds)
               
    If NeedCents Then
        varWords = varWords & "And " & IIf(Cents < 10, "0" & Cents, Cents) & "/100"
    End If
   
    NumberToWords = varWords
   
End Function

Private Function SmallNumberToWords(SmallNumber As Double) As Variant

    Dim Hundreds        As Integer
    Dim Tens            As Integer
    Dim Units           As Integer
    Dim HundredsWords   As Variant
    Dim TensWords       As Variant
    Dim UnitsWords      As Variant
   
    Hundreds = Int(SmallNumber / 100)
    Tens = SmallNumber - (Hundreds * 100)   ' Part 1 - Get rid of hundreds
    Tens = Int(Tens / 10) * 10              ' Part 2 - Truncate Units
    Units = (SmallNumber - (Hundreds * 100)) - Tens
   
    If Tens <= 19 Then
        Tens = Tens + Units
        Units = 0
    End If
   
    Select Case Hundreds
        Case 1: HundredsWords = "One Hundred "
        Case 2: HundredsWords = "Two Hundred "
        Case 3: HundredsWords = "Three Hundred "
        Case 4: HundredsWords = "Four Hundred "
        Case 5: HundredsWords = "Five Hundred "
        Case 6: HundredsWords = "Six Hundred "
        Case 7: HundredsWords = "Seven Hundred "
        Case 8: HundredsWords = "Eight Hundred "
        Case 9: HundredsWords = "Nine Hundred "
        Case Else: HundredsWords = Null
    End Select
   
    Select Case Tens
        Case 1: TensWords = "One "
        Case 2: TensWords = "Two "
        Case 3: TensWords = "Three "
        Case 4: TensWords = "Four "
        Case 5: TensWords = "Five "
        Case 6: TensWords = "Six "
        Case 7: TensWords = "Seven "
        Case 8: TensWords = "Eight "
        Case 9: TensWords = "Nine "
        Case 10: TensWords = "Ten "
        Case 11: TensWords = "Eleven "
        Case 12: TensWords = "Twelve "
        Case 13: TensWords = "Thirteen "
        Case 14: TensWords = "Fourteen "
        Case 15: TensWords = "Fifteen "
        Case 16: TensWords = "Sixteen "
        Case 17: TensWords = "Seventeen "
        Case 18: TensWords = "Eighteen "
        Case 19: TensWords = "Nineteen "
        Case 20: TensWords = "Twenty "
        Case 30: TensWords = "Thirty "
        Case 40: TensWords = "Forty "
        Case 50: TensWords = "Fifty "
        Case 60: TensWords = "Sixty "
        Case 70: TensWords = "Seventy "
        Case 80: TensWords = "Eighty "
        Case 90: TensWords = "Ninety "
        Case Else: TensWords = Null
    End Select
   
    Select Case Units
        Case 1: UnitsWords = "One "
        Case 2: UnitsWords = "Two "
        Case 3: UnitsWords = "Three "
        Case 4: UnitsWords = "Four "
        Case 5: UnitsWords = "Five "
        Case 6: UnitsWords = "Six "
        Case 7: UnitsWords = "Seven "
        Case 8: UnitsWords = "Eight "
        Case 9: UnitsWords = "Nine "
        Case Else: UnitsWords = Null
    End Select
   
    'Debug.Print "Hundreds " & Hundreds; HundredsWords
    'Debug.Print "Tens " & Tens; TensWords
    'Debug.Print "Ones " & Units; UnitsWords
   
    SmallNumberToWords = HundredsWords & TensWords & UnitsWords
        
End Function

淑仪_熟鱼

......

眼花缭乱。。。

程家伟

我做过得coding。。非常想念

这是连接
http://chinese4.cari.com.my/myforum/viewthread.php?tid=638468&highlight=

然后慢慢的理解loop。我做的coding还没有那么得成熟

加油

[ 本帖最后由 程家伟 于 18-4-2008 12:39 AM 编辑 ]

程家伟

你得coding好像把那个textbox"NumberToWords"的even换去不是focus.

然后output textbox "SmallNumberToWords"就可以知道了