[VB6] แปลงตัวเลขไทยเป็นเลขอารบิค และ แปลงเลขอารบิคเป็นเลขไทย

thongkorn

การแก้ปัญหาก็ไม่ได้ยากเย็นอะไรเลย อาศัยหลักการของ ASCII Code อีกแล้วครับท่านผู้ชม ดังนี้คือ ...
(หมายเหตุ: ตัวเลขแต่ละตัวปกติเราจะเรียกว่า ตัวอักขระ หรือ Character มากกว่านะครับ)

เลข 0 จะมีค่า 48 (ฐาน 10)
เลข 1 จะมีค่า 49 (ฐาน 10)
...
เลข 9 จะมีค่า 57 (ฐาน 10)

เลข ๐ จะมีค่า 240 (ฐาน 10)
เลข ๑ จะมีค่า 241 (ฐาน 10)
...
เลข ๙ จะมีค่า 249 (ฐาน 10)

จากเลขไทย - อารบิค หากจับคู่กัน เช่น 1 กับ ๑ ก็จะมีค่าตัวเลขฐาน 10 อยู่ห่างกัน 192 ค่า

หากเราต้องการแปลงจากเลข 1 อารบิค ก็จะมีค่า ASCII Code = 49 ให้บวกไปอีก 192 ก็จะได้ 241 ใช้คำสั่ง Asc(241) ก็จะได้เลข ๑
หากเราต้องการแปลงจากเลข ๑ ไทย ก็จะมีค่า ASCII Code = 241 ต้องลบออก 192 ก็จะได้ 49 ใช้คำสั่ง Asc(49) ก็จะได้เลข 1

1. Option Explicit
   
2. 
   
3. Private Sub Form_Load()
   
4.     Dim strThai As String
   
5.     Dim strEng As String
   
6.     '// ข้อมูลทดสอบ
   
7.     strThai = "๒๕๘๙๖๓๑๔๗"
   
8.     strEng = "258963147"
   
9.     MsgBox "Thai to Eng : " & NumThai2Eng(strThai) & vbCrLf & "Eng to Thai : " & NumEng2Thai(strEng)
   
10.     End
    
11. End Sub
    
12. 
    
13. '// ฟังค์ชั่นแปลงเลขไทยเป็นอารบิค
    
14. Function NumThai2Eng(strThai As String) As String
    
15.     Dim strEng As String
    
16.     Dim strTemp As String
    
17.     Dim i As Byte
    
18.     '//strThai = "๐๑๒๓๔๕๖๗๘๙"
    
19.     For i = 1 To Len(strThai)
    
20.         strTemp = Asc(Mid$(strThai, i, 1)) - 192
    
21.         strEng = strEng & Chr(strTemp)
    
22.     Next
    
23.     NumThai2Eng = strEng
    
24. End Function
    
25. 
    
26. '// ฟังค์ชั่นแปลงเลขอารบิคเป็นไทย
    
27. Function NumEng2Thai(strEng As String) As String
    
28.     Dim strThai As String
    
29.     Dim strTemp As Byte
    
30.     Dim i As Byte
    
31.     'strEng = "258963147"
    
32.     For i = 1 To Len(strEng)
    
33.         strTemp = Asc(Mid$(strEng, i, 1)) + 192
    
34.         strThai = strThai & Chr(strTemp)
    
35.     Next
    
36.     NumEng2Thai = strThai
    
37. End Function

คัดลอกไปที่คลิปบอร์ด