Home » [Update] อยากทราบวิธีแปลงตัวเลขเป็นตัวหนังสือครับ VB รบกวนด้วยครับขอแบบมีสตางค์ด้วยนะครับ ขอบคุณครับ | วิธี เขียน ตัวเลข เป็น ตัวหนังสือ – NATAVIGUIDES

[Update] อยากทราบวิธีแปลงตัวเลขเป็นตัวหนังสือครับ VB รบกวนด้วยครับขอแบบมีสตางค์ด้วยนะครับ ขอบคุณครับ | วิธี เขียน ตัวเลข เป็น ตัวหนังสือ – NATAVIGUIDES

วิธี เขียน ตัวเลข เป็น ตัวหนังสือ: นี่คือโพสต์ที่เกี่ยวข้องกับหัวข้อนี้

 

อยากทราบวิธีแปลงตัวเลขเป็นตัวหนังสือครับ VB รบกวนด้วยครับขอแบบมีสตางค์ด้วยนะครับ ขอบคุณครับ

 

เริ่มหัวข้อใหม่



Keng

โพสกระทู้ (
32 )

บทความ (
0 )



รบกวนด้วยครับขอแบบมีสตางค์ด้วยนะครับ ขอบคุณครับ

Tag : – – – –

 

Date :
2010-06-01 16:32:08
By :
zeromce10
View :
3772
Reply :
3

 

 

No. 1



tungman

โพสกระทู้ (
3,144 )

บทความ (
1 )

ไม่มีอะไรหรอก แค่มากวนเฉยๆ

Code (VB.NET)

Dim number As Integer = 2134564
Dim text As String = number.ToString() & "สตางค์"

Date :
2010-06-02 14:19:19
By :
tungman


 


 

No. 2



tee

โพสกระทู้ (
249 )

บทความ (
0 )

สร้าง modole ชื่อว่า MoneyExt.vb

Code (VB.NET)

Public Class MoneyExt

    Public Function NumberToThaiWord(ByVal InputNumber As Double) As String
        If InputNumber = 0 Then
            NumberToThaiWord = "ศูนย์บาทถ้วน"
            Return NumberToThaiWord
        End If

        Dim NewInputNumber As String
        NewInputNumber = InputNumber.ToString("###0.00")

        If CDbl(NewInputNumber) >= 10000000000000 Then
            NumberToThaiWord = ""
            Return NumberToThaiWord
        End If

        Dim tmpNumber(2) As String
        Dim FirstNumber As String
        Dim LastNumber As String

        tmpNumber = NewInputNumber.Split(CChar("."))
        FirstNumber = tmpNumber(0)
        LastNumber = tmpNumber(1)

        Dim nLength As Integer = 0
        nLength = CInt(FirstNumber.Length)

        Dim i As Integer
        Dim CNumber As Integer = 0
        Dim CNumberBak As Integer = 0
        Dim strNumber As String = ""
        Dim strPosition As String = ""
        Dim FinalWord As String = ""
        Dim CountPos As Integer = 0

        For i = nLength To 1 Step -1
            CNumberBak = CNumber
            CNumber = CInt(FirstNumber.Substring(CountPos, 1))

            If CNumber = 0 AndAlso i = 7 Then
                strPosition = "ล้าน"
            ElseIf CNumber = 0 Then
                strPosition = ""
            Else
                strPosition = PositionToText(i)
            End If

            If CNumber = 2 AndAlso strPosition = "สิบ" Then
                strNumber = "ยี่"
            ElseIf CNumber = 1 AndAlso strPosition = "สิบ" Then
                strNumber = ""
            ElseIf CNumber = 1 AndAlso strPosition = "ล้าน" AndAlso nLength >= 8 Then
                If CNumberBak = 0 Then
                    strNumber = "หนึ่ง"
                Else
                    strNumber = "เอ็ด"
                End If
            ElseIf CNumber = 1 AndAlso strPosition = "" AndAlso nLength > 1 Then
                strNumber = "เอ็ด"
            Else
                strNumber = NumberToText(CNumber)
            End If

            CountPos = CountPos + 1

            FinalWord = FinalWord & strNumber & strPosition
        Next

        CountPos = 0
        CNumberBak = 0
        nLength = CInt(LastNumber.Length)

        Dim Stang As String = ""
        Dim FinalStang As String = ""

        If CDbl(LastNumber) > 0.0 Then
            For i = nLength To 1 Step -1
                CNumberBak = CNumber
                CNumber = CInt(LastNumber.Substring(CountPos, 1))

                If CNumber = 1 AndAlso i = 2 Then
                    strPosition = "สิบ"
                ElseIf CNumber = 0 Then
                    strPosition = ""
                Else
                    strPosition = PositionToText(i)
                End If

                If CNumber = 2 AndAlso strPosition = "สิบ" Then
                    Stang = "ยี่"
                ElseIf CNumber = 1 AndAlso i = 2 Then
                    Stang = ""
                ElseIf CNumber = 1 AndAlso strPosition = "" AndAlso nLength > 1 Then
                    If CNumberBak = 0 Then
                        Stang = "หนึ่ง"
                    Else
                        Stang = "เอ็ด"
                    End If
                Else
                    Stang = NumberToText(CNumber)
                End If

                CountPos = CountPos + 1

                FinalStang = FinalStang & Stang & strPosition
            Next

            FinalStang = FinalStang & "สตางค์"
        Else
            FinalStang = ""
        End If

        Dim SubUnit As String
        If FinalStang = "" Then
            SubUnit = "บาทถ้วน"
        Else
            If CDbl(FirstNumber) <> 0 Then
                SubUnit = "บาท"
            Else
                SubUnit = ""
            End If
        End If

        NumberToThaiWord = FinalWord & SubUnit & FinalStang
    End Function

    Private Function NumberToText(ByVal CurrentNum As Integer) As String
        Dim _nText As String = ""

        Select Case CurrentNum
            Case 0
                _nText = ""
            Case 1
                _nText = "หนึ่ง"
            Case 2
                _nText = "สอง"
            Case 3
                _nText = "สาม"
            Case 4
                _nText = "สี่"
            Case 5
                _nText = "ห้า"
            Case 6
                _nText = "หก"
            Case 7
                _nText = "เจ็ด"
            Case 8
                _nText = "แปด"
            Case 9
                _nText = "เก้า"
        End Select

        NumberToText = _nText
    End Function

    Private Function PositionToText(ByVal CurrentPos As Integer) As String
        Dim _nPos As String = ""

        Select Case CurrentPos
            Case 0
                _nPos = ""
            Case 1
                _nPos = ""
            Case 2
                _nPos = "สิบ"
            Case 3
                _nPos = "ร้อย"
            Case 4
                _nPos = "พัน"
            Case 5
                _nPos = "หมื่น"
            Case 6
                _nPos = "แสน"
            Case 7
                _nPos = "ล้าน"
            Case 8
                _nPos = "สิบ"
            Case 9
                _nPos = "ร้อย"
            Case 10
                _nPos = "พัน"
            Case 11
                _nPos = "หมื่น"
            Case 12
                _nPos = "แสน"
            Case 13
                _nPos = "ล้าน"
        End Select

        PositionToText = _nPos
    End Function
End Class

ใช้งานสมมุติว่า ใช้ใน event textchang ครับ

Code (VB.NET)

private sub txtMoney_textchang...
        Dim wordMoney As New MoneyExt()

        Try
            lblResult.Text = wordMoney .NumberToThaiWord(CDbl(txtMoney.Text))
        Catch ex As Exception
            lblResult.Text = ""
        End Try
end sub

Date :
2010-06-02 16:04:12
By :
tee


 


 

No. 3



Keng

โพสกระทู้ (
32 )

บทความ (
0 )

แล้วจะเรียกใช้ Module ยังไงอะครับแบบว่ามือใหม่ครับ แล้วถ้าเป็นภาษาอังกฤษนี้ใช้ Code เหมือนกันไหมครับ

Date :
2010-06-04 10:55:10
By :
zeromce10


 

 
 

ค้นหาข้อมูล

   

 

แสดงความคิดเห็น

Re :
อยากทราบวิธีแปลงตัวเลขเป็นตัวหนังสือครับ VB รบกวนด้วยครับขอแบบมีสตางค์ด้วยนะครับ ขอบคุณครับ

 

 

รายละเอียด



 







































เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]….[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ

อัพโหลดแทรกรูปภาพ
ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

 
 

 

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

 

โดย

อีเมล์

บวกค่าให้ถูก

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

ลองค้นหาสิ่งที่ต้องการ

Exchange: Voake, Comcube, รับทำเว็บไซต์ รับเขียนโปรแกรม ,
pangpond.com ,
pangpond.co.th
, สำนักงานบัญชี.com
, รถมือสอง

Load balance :

Inline

[NEW] | วิธี เขียน ตัวเลข เป็น ตัวหนังสือ – NATAVIGUIDES

ในบทความนี้จะมาสอนวิธีแปลงจากตัวเลขไปเป็นตัวหนังสือภาษาอังกฤษ โดยใช้ Excel

เนื่องจาก Excel ไม่มีสูตรในการแปลงตัวเลขไปเป็นตัวหนังสือภาษาอังกฤษ (แต่ว่ามีสูตรการตัวเลขไปเป็นตัวหนังสือภาษาไทย นั้นก็คือ BAHTTEXT ) เราจึงจำเป็นต้องใช้การเขียน VBA เข้ามาช่วย

โดยขั้นตอนแรกให้ทำการ เปิด VBA ใน Excel โดยคลิกขวาที่ Sheet แล้วเลือก View Code

แล้วทำการเพิ่ม Module

เอา Code VBA ด้านล่างนี้ใส่เข้าไป แล้วก็ทำการ Save

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


ทีนี้เราก็มาลองใช้สูตรโดย พิมพ์ว่า SpellNumber(ตัวเลข) ตัวExcel ก็จะทำการแปลงตัวเลขให้เป็นภาษาอังกฤษแบบอัตโนมัติให้เรา

ส่วนการ Save ไฟล์ Excel ก็จะต้องทำการ Save เป็นไฟล์ .xlsm ด้วยนะเนืองจากเป็นไฟล์ที่มี Code VBA (Excel Macro-Enable Workbook)


[COD210804] การเขียนตัวเลขเป็นตัวหนังสือ by NoTE!!


นอกจากการดูบทความนี้แล้ว คุณยังสามารถดูข้อมูลที่เป็นประโยชน์อื่นๆ อีกมากมายที่เราให้ไว้ที่นี่: ดูความรู้เพิ่มเติมที่นี่

[COD210804] การเขียนตัวเลขเป็นตัวหนังสือ by NoTE!!

เขียนเลขเป็นตัวหนังสือ kg.3


เขียนเลขเป็นตัวหนังสือ kg.3

วิธีการปลดล็อค แป้นพิมพ์ จากตัวเลขเป็นภาษา โน๊ตบุ๊ค Lenovo


วิธี แก้ไข
1 ให้เพื่อนๆหาคำว่า numLk ตรง F8
2 ให้เพื่อนหาคำว่า fn
3 จากนั้นกด Fn พร้อมกับกด F8 ไปพร้อมๆกัน
ดูสัญลักษณ์ไฟขึ้นดับลงก็เป็นอันเสร็จครับ

วิธีการปลดล็อค แป้นพิมพ์ จากตัวเลขเป็นภาษา โน๊ตบุ๊ค Lenovo

แปลงตัวเลขเป็นตัวหนังสือใน excel


ติดตามสาระการหาเงินออนไลน์ และการทำเว็บไซต์ แบบสนุกๆได้ที่ Download: https://mega.nz/file/g3AR0CSQGhZrpEk0QR4mfY4zXoEHNqjGZ0TOh3hPdfrkKZtqK8
รายละเอียดคอร์ส
🔥 คอร์ส WordPress Woo Commerce Affiliate 🔥
✅สอนหมดตั้งแต่เริ่ม บอกหมด ไม่ได้โม้
✅ไม่เคยทำเว็บมาก่อนก็ทำได้
✅ไม่มีข้อจำกัดทั้งเพศ วัย และการศึกษา
ใครๆ ก็สร้างเว็บไซต์ของตัวเองได้ ง่ายๆ เริ่มเลยมั้ย 🤗
โอกาสดีๆ ที่คุณจะพัฒนาตัวเอง และสร้างเว็บของตัวเอง ให้โลกรู้ สร้างรายได้ทั้งแบบขายเอง หรือ เป็นนายหน้า affiliate
เริ่มเลยครับ ลงทะเบียนเรียนวันนี้ กับคอร์สนี้
เรียน ออนไลน์ ที่ไหนก็เรียนได้ สอนทำ แบบ Step By Step
หยังกะจับมือทำ เป็น VDO ดูและทำ ง่ายสุดๆ
กับราคาเปิดตัว ที่ใครๆก็เรียนได้ ลงทะเบียนเรียนวันนี้ !!!
ด้วยราคาพิเศษ มากๆ ราคาเพียง 999.
ดูรายละเอียด เพิ่มเติม และสมัคร ได้ที่
http://okdeals.shop/wpwooaff
🔥🔥🔥 คอร์สนี้เราจะทำเว็บแบบนี้กัน ครับ 🔥🔥🔥
http://itsgreat.shop
แปลงตัวเลขเป็นตัวหนังสือใน excel
แนะนำหนังสือ ครับ https://goo.gl/SBSwX1
อีกเล่มที่น่าอ่านก็ บริหารกล้วยๆด้วย excel ครับ
อ่านสนุกดีไม่น่าเบื่อครับ

แปลงตัวเลขเป็นตัวหนังสือใน excel

เจาะลูกโป่งตัวเลขรูปหัวใจทั้ง 10 ใบ มาเรียนรู้ตัวเลขอารบิกกันค่ะ | เรียนรู้เลข 1-10 | HappyKid


วันนี้เรามาเจาะลูกโป่งหัวใจตัวเลข 110 ให้แตกโป๊ะ พร้อมทั้งมาเรียนรู้ตัวเลขกันค่ะ | เพลง นิ้วโป้งอยู่ไหน 3 | HappyKid
Let Learn Thai Number 110 With Heart Balloons | Thai Finger Family Song 3
เพลย์ลิสอื่นๆ ที่น่าสนใจ
สนุกและเรียนรู้ด้วยแป้งโดว์
https://www.youtube.com/watch?v=lZIuR8Bh1o\u0026list=PL11zasIyIgHNO7himB7DCpYjCpTthzz
สนุกและเรียนรู้ด้วยตัวอักษรภาษาอังกฤษ
https://www.youtube.com/watch?v=eeOV7PpPD14\u0026list=PL11zasIyIgFKhHRWdXTjTVTqh6PzkyM
สนุกและเรียนรู้ด้วยพยัญชนะไทย กฮ
https://www.youtube.com/watch?v=BBdzDFwTH1w\u0026list=PL11zasIyIgGtc7Xhd5VXy8s1hIoMJf96
สนุกและเรียนรู้ด้วยไข่เซอร์ไพรส์
https://www.youtube.com/watch?v=I42jOQv85g\u0026list=PL11zasIyIgFP7EIsQZBSR2uZWBcD3r1

ช่องทางการติดตามอื่นๆ
กดติดตาม SUBSCRIBE
https://goo.gl/y0ye6l
เฟสบุ๊ค FACEBOOK PAGE
https://www.facebook.com/HappyKidThailand
ทวิสเตอร์ TWITTER
https://twitter.com/HappyKidNetwork

เจาะลูกโป่งตัวเลขรูปหัวใจทั้ง 10 ใบ มาเรียนรู้ตัวเลขอารบิกกันค่ะ | เรียนรู้เลข 1-10 | HappyKid

นอกจากการดูบทความนี้แล้ว คุณยังสามารถดูข้อมูลที่เป็นประโยชน์อื่นๆ อีกมากมายที่เราให้ไว้ที่นี่: ดูบทความเพิ่มเติมในหมวดหมู่MAKE MONEY ONLINE

ขอบคุณที่รับชมกระทู้ครับ วิธี เขียน ตัวเลข เป็น ตัวหนังสือ

See also  พงษ์สิทธิ์ คำภีร์ - หนุ่มน้อย Live by Request@Saxophone【Official MV】 | ตกงาน ขายอะไรดี | Nataviguides

Leave a Reply

Your email address will not be published.