ÀÌ°÷Àº ±â¾÷ASP¼­ºñ½º È«º¸»çÀÌÆ®ÀÔ´Ï´Ù. [±â¾÷ASP¼­ºñ½º ÀÚ¼¼È÷ º¸±â] | [¿ÀÇǽºÆ©ÅÍ·Î À̵¿]
±³À°°úÁ¤ ³ªÀÇÇнÀ ¿ÀÇǽºÆÁ °Ë»ö ¹«·á°­ÁÂ
Home ·Î±×ÀΠȸ¿ø°¡ÀÔ °í°´¼¾ÅÍ »çÀÌÆ®¸Ê
¿ÀÇǽºÆ©ÅÍ ±â¾÷ASP¼­ºñ½º > ¹«·á°­ÁÂ
¿¢¼¿ 2000 µû¶óÇϱâ
Ȩ·¯´× ¿¢¼¿ 2000°­ÁÂ
À繫 ÇÔ¼ö °­ÁÂ
¿¢¼¿ 2002 »õ·Î¿î ±â´É
Ȳ±â¼º´ÔÀÇ VBA°­ÁÂ
°û½ÂÁÖ´ÔÀÇ VBAÀ̾߱â
Home > ¹«·á°­Á > ¿¢¼¿
¿¢¼¿, °û½ÂÁÖ´ÔÀÇ ¿ÀÆ©°ø±¸ÇÔ Á¦ÀÛÀ¸·Î ¹è¿öº¸´Â VBA À̾߱â, Excel
  

11. ¼ýÀÚ¸¦ ÇѱÛ/ÇÑÀÚ/¿µ¾î·Î º¯È¯ -¥°
ÀÚ·á´Ù¿î·Îµå : ¿ÀÆ©°ø±¸ÇÔ011.xls 

¾È³çÇϼ¼¿ä ¿ÀÆ©°¡Á· ¿©·¯ºÐ!

À̹ø ½Ã°£¿¡´Â ¼ýÀڷΠǥ½ÃµÈ ±Ý¾×À» ÇѱÛ, ÇÑÀÚ ¶Ç´Â ¿µ¾î·Î º¯°æÇÏ´Â ±â´ÉÀ» ¸¸µé¾î º¸·Á±¸ ÇÕ´Ï´Ù. Á¦ ¾÷¹«¿¡¼­´Â ÀÌ·¯ÇÑ ±â´ÉÀ» »ç¿ëÇÒ ÀÏÀÌ ¾ø¾î Á¤È®È÷ ÀÌ·± ±â´ÉÀÌ ¿Ö ÇÊ¿äÇÑ Áö´Â ¸ð¸£°Ú½À´Ï´Ù. ´Ù¸¸ ȸ°è°ü·Ã ºÎºÐ¿¡¼­´Â ÇÊ¿äÇÑ °É·Î ¸·¿¬È÷ ÃßÃøÇÏ°í ÀÖ½À´Ï´Ù. ÀÏ´Ü ¿À´ÃÀº ¿µ¹®À¸·Î º¯È¯ÇÏ´Â °ÍÀ» ¸¸µé¾î º¸·Á°í ÇÕ´Ï´Ù. ±×·±µ¥ À̹ø¿¡´Â Á÷Á¢ ¸¸µéÁö ¾Ê°í ÀÌ¹Ì ´Ù¸¥ »ç¶÷µéÀÌ °øµé¿© ¸¸µç °ÍÀ» ÀÌ¿ëÇغ¼·Á°í ÇÕ´Ï´Ù. °ü·ÃÀڷḦ ã¾Æº¸´Ï ¸¶ÀÌÅ©·Î¼ÒÇÁÆ®ÀÇ ±â¼úÁö¿øÀÚ·á¿¡ µÎ °¡Áö ¿¹Á¦°¡ ÀÖ´õ±º¿ä.

µû¶ó¼­ Àú´Â ÇٽɸðµâÀº ¿ÜºÎ¿¡¼­ °¡Á®¿À°í ²®µ¥±â¸¸ ¸¸µé·Á°í ÇÕ´Ï´Ù.

Option Explicit

     '****************
     ' Main Function *
     '****************          

     Function SpellNumber(ByVal MyNumber)
          Dim Dollars, Cents, Temp
             Dim DecimalPlace, Count   

             ReDim Place(9) As String
             Place(2) = " Thousand "
             Place(3) = " Million "
             Place(4) = " Billion "
             Place(5) = " Trillion " 

          ' String representation of amount.
             MyNumber = Trim(Str(MyNumber))

             ' Position of decimal place 0 if none. 
             DecimalPlace = InStr(MyNumber, ".")
            ' Convert cents and set MyNumber to dollar amount.
            If DecimalPlace > 0 Then
               Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) &  "00", 2))
                   MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
            End If

         Count = 1
         Do While MyNumber <> ""
               Temp = GetHundreds(Right(MyNumber, 3))
                   If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars
                   If Len(MyNumber) > 3 Then
                     MyNumber = Left(MyNumber, Len(MyNumber) - 3)
                   Else
                         MyNumber = ""
                   End If
                   Count = Count + 1
          Loop

          Select Case Dollars
               Case ""
                    Dollars = "No Dollars"
               Case "One"
                    Dollars = "One Dollar"
               Case Else
                    Dollars = Dollars & " Dollars"
          End Select

          Select Case Cents
               Case ""
                    Cents = " and No Cents"
               Case "One"
                    Cents = " and One Cent"
               Case Else
                    Cents = " and " & Cents & " Cents"
          End Select

          SpellNumber = Dollars & Cents
          End Function

     '*******************************************
     ' Converts a number from 100-999 into text *
     '*******************************************

     Function GetHundreds(ByVal MyNumber)
     Dim Result As String

          If Val(MyNumber) = 0 Then Exit Function
          MyNumber = Right("000" & MyNumber, 3)

          ' Convert the hundreds place.
          If Mid(MyNumber, 1, 1) <> "0" Then
               Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
          End If

          ' Convert the tens and ones place.
          If Mid(MyNumber, 2, 1) <> "0" Then
                Result = Result & GetTens(Mid(MyNumber, 2))
          Else
               Result = Result & GetDigit(Mid(MyNumber, 3))
          End If

          GetHundreds = Result
     End Function

     '*********************************************
     ' Converts a number from 10 to 99 into text. *
     '*********************************************

     Function GetTens(TensText)
          Dim Result As String

          Result = "" ' Null out the temporary function value.
          If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...

               Select Case Val(TensText)
                    Case 10: Result = "Ten"
                    Case 11: Result = "Eleven"
                    Case 12: Result = "Twelve"
                    Case 13: Result = "Thirteen"
                    Case 14: Result = "Fourteen"
                    Case 15: Result = "Fifteen"
                    Case 16: Result = "Sixteen"
                    Case 17: Result = "Seventeen"
                    Case 18: Result = "Eighteen"
                    Case 19: Result = "Nineteen"
                    Case Else
               End Select
          Else ' If value between 20-99...
               Select Case Val(Left(TensText, 1))
                    Case 2: Result = "Twenty "
                    Case 3: Result = "Thirty "
                    Case 4: Result = "Forty "
                    Case 5: Result = "Fifty "
                    Case 6: Result = "Sixty "
                    Case 7: Result = "Seventy "
                    Case 8: Result = "Eighty "
                    Case 9: Result = "Ninety "
                    Case Else
               End Select
               Result = Result & GetDigit _
                    (Right(TensText, 1)) ' Retrieve ones place.
          End If
          GetTens = Result
     End Function

     '*******************************************
     ' Converts a number from 1 to 9 into text. *
     '*******************************************

     Function GetDigit(Digit)
          Select Case Val(Digit)
               Case 1: GetDigit = "One"
               Case 2: GetDigit = "Two"
               Case 3: GetDigit = "Three"
               Case 4: GetDigit = "Four"
               Case 5: GetDigit = "Five"
               Case 6: GetDigit = "Six"
               Case 7: GetDigit = "Seven"
               Case 8: GetDigit = "Eight"
               Case 9: GetDigit = "Nine"
               Case Else: GetDigit = ""
          End Select
     End Function 
     Function ConvertCurrencyToEnglish(ByVal MyNumber)
          Dim Temp
          Dim Dollars, Cents
          Dim DecimalPlace, Count

          ReDim Place(9) As String
          Place(2) = " Thousand "
          Place(3) = " Million "
          Place(4) = " Billion "
          Place(5) = " Trillion "

          ' Convert MyNumber to a string, trimming extra spaces.
          MyNumber = Trim(Str(MyNumber))

          ' Find decimal place.
          DecimalPlace = InStr(MyNumber, ".")

          ' If we find decimal place...
          If DecimalPlace > 0 Then
               ' Convert cents
               Temp = Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)
               Cents = ConvertTens(Temp)

              ' Strip off cents from remainder to convert.
              MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
          End If

          Count = 1
          Do While MyNumber <> ""
               ' Convert last 3 digits of MyNumber to English dollars.
               Temp = ConvertHundreds(Right(MyNumber, 3))
               If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars
               If Len(MyNumber) > 3 Then
                    ' Remove last 3 converted digits from MyNumber.
                    MyNumber = Left(MyNumber, Len(MyNumber) - 3)
               Else
                    MyNumber = ""
               End If
               Count = Count + 1
          Loop

          ' Clean up dollars.
          Select Case Dollars
               Case ""
                    Dollars = "No Dollars"
               Case "One"
                    Dollars = "One Dollar"
               Case Else
                    Dollars = Dollars & " Dollars"
          End Select

          ' Clean up cents.
          Select Case Cents
               Case ""
                    Cents = " And No Cents"
               Case "One"
                    Cents = " And One Cent"
               Case Else
                    Cents = " And " & Cents & " Cents"
          End Select

          ConvertCurrencyToEnglish = Dollars & Cents
     End Function
     Private Function ConvertHundreds(ByVal MyNumber)
          Dim Result As String

          ' Exit if there is nothing to convert.
          If Val(MyNumber) = 0 Then Exit Function

          ' Append leading zeros to number.
          MyNumber = Right("000" & MyNumber, 3)

          ' Do we have a hundreds place digit to convert?
          If Left(MyNumber, 1) <> "0" Then
               Result = ConvertDigit(Left(MyNumber, 1)) & " Hundred "
          End If

         ' Do we have a tens place digit to convert?
          If Mid(MyNumber, 2, 1) <> "0" Then
              Result = Result & ConvertTens(Mid(MyNumber, 2))
          Else
               ' If not, then convert the ones place digit.
               Result = Result & ConvertDigit(Mid(MyNumber, 3))
          End If

          ConvertHundreds = Trim(Result)
     End Function

     Private Function ConvertTens(ByVal MyTens)
          Dim Result As String

          ' Is value between 10 and 19?
          If Val(Left(MyTens, 1)) = 1 Then
              Select Case Val(MyTens)
                    Case 10: Result = "Ten"
                    Case 11: Result = "Eleven"
                    Case 12: Result = "Twelve"
                    Case 13: Result = "Thirteen"
                    Case 14: Result = "Fourteen"
                    Case 15: Result = "Fifteen"
                    Case 16: Result = "Sixteen"
                    Case 17: Result = "Seventeen"
                    Case 18: Result = "Eighteen"
                    Case 19: Result = "Nineteen"
                    Case Else
               End Select
          Else
               ' .. otherwise it's between 20 and 99.
               Select Case Val(Left(MyTens, 1))
                    Case 2: Result = "Twenty "
                    Case 3: Result = "Thirty "
                    Case 4: Result = "Forty "
                    Case 5: Result = "Fifty "
                    Case 6: Result = "Sixty "
                    Case 7: Result = "Seventy "
                    Case 8: Result = "Eighty "
                    Case 9: Result = "Ninety "
                    Case Else
               End Select

               ' Convert ones place digit.
               Result = Result & ConvertDigit(Right(MyTens, 1))
          End If

          ConvertTens = Result
     End Function

     Private Function ConvertDigit(ByVal MyDigit)
          Select Case Val(MyDigit)
               Case 1: ConvertDigit = "One"
               Case 2: ConvertDigit = "Two"
               Case 3: ConvertDigit = "Three"
               Case 4: ConvertDigit = "Four"
               Case 5: ConvertDigit = "Five"
               Case 6: ConvertDigit = "Six"
               Case 7: ConvertDigit = "Seven"
               Case 8: ConvertDigit = "Eight"
               Case 9: ConvertDigit = "Nine"
               Case Else: ConvertDigit = ""
          End Select
     End Function

Function SpellNumber(ByVal MyNumber)¿Í Function ConvertCurrencyToEnglish(ByVal MyNumber) µÎ°¡Áö ÇÔ¼ö°¡ Àִµ¥ ¾î´À °ÍÀ» »ç¿ëÇصµ »ó°ü¾ø´Âµ¥ Function ConvertCurrencyToEnglish¸¦ »ç¿ëÇϱâ·Î ÇÏÁÒ.

¸ñÂ÷ | ÀÌÀü | ´ÙÀ½

¡¡

¿ÀÇǽºÆ©ÅÍ ±â¾÷ASP¼­ºñ½º 135-880 ¼­¿ï½Ã °­³²±¸ »ï¼ºµ¿ 157-3 ¿¤ÁöÆ®À©ÅÚ 2Â÷ 1603È£ ¢Ï070-7098-2554
Copyright ¨Ï 1999-2008 Officetutor.com All rights reserved
¡¡