Bask Bir Programda Calistirdigim Kodum vba Nasil Uyarlanir?

[mustafaine1]

Arkadaslar .net`te calisan bu kodu vba da kullanimci tanimli fonksiyon olarak uyarlayabilirmiyiz..

    Public Function NumberToWords(ByVal Number As Long) As String
        Dim vNmbr As String = ""
        Select Case Number
            Case 0
                vNmbr = ""
            Case 1 To 19
                vNmbr = Choose(Number, "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine", "Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen")
            Case 20 To 99
                vNmbr = Choose(Number \ 10 - 1, "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety") & NumberToWords(Number Mod 10)
            Case 100 To 999
                vNmbr = NumberToWords(Number \ 100) & "Hundred" & NumberToWords(Number Mod 100)
            Case 1000 To 999999
                vNmbr = NumberToWords(Number \ 1000) & "Thousand" & NumberToWords(Number Mod 1000)
            Case 1000000 To 999999999
                vNmbr = NumberToWords(Number \ 1000000) & "Million" & NumberToWords(Number Mod 1000000)
            Case Is >= 1000000000
                vNmbr = NumberToWords(Number \ 1000000000) & "Billion" & NumberToWords(Number Mod 1000000000)
        End Select
        Return vNmbr
    End Function

 

[Recep İpek]

Aşağıdaki şekilde deneyiniz.

Public Function NumberToWords(ByVal Number As Long) As String
        [COLOR=red] vNmbr = ""
[/COLOR]        Select Case Number
            Case 0
                vNmbr = ""
            Case 1 To 19
                vNmbr = Choose(Number, "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine", "Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen")
            Case 20 To 99
                vNmbr = Choose(Number \ 10 - 1, "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety") & NumberToWords(Number Mod 10)
            Case 100 To 999
                vNmbr = NumberToWords(Number \ 100) & "Hundred" & NumberToWords(Number Mod 100)
            Case 1000 To 999999
                vNmbr = NumberToWords(Number \ 1000) & "Thousand" & NumberToWords(Number Mod 1000)
            Case 1000000 To 999999999
                vNmbr = NumberToWords(Number \ 1000000) & "Million" & NumberToWords(Number Mod 1000000)
            Case Is >= 1000000000
                vNmbr = NumberToWords(Number \ 1000000000) & "Billion" & NumberToWords(Number Mod 1000000000)
        End Select
        [COLOR=red]NumberToWords[/COLOR] = vNmbr
End Function

 

[mustafaine1]

tesekkurler Recep İpek kolay gelsin..

 

[Recep İpek]

Rica ederim.

Güzel bir fonksiyon.

 

[mustafaine1]

tesekkurler aslinda elimde vardi birtane daha spell number fakat kodlamasi cok uzun