module เปลี่ยนตัวเลขเป็นตัวอักษร


	module เปลี่ยนตัวเลขเป็นตัวอักษร

ปรับปรุง : 2548-05-03 ()
function เขียนใน module ของ MS Access เพื่อเปลี่ยนตัวเลข เป็นตัวอักษร
ตัวอย่างการเรียกใช้คือ =numtotext("123.25")
โดยนำ code จากเว็บของ thanom.net และ thaiall.com/vb มาประยุกต์ให้ใช้ใน MS Access

Function numtotext(text1 As String) As String
Dim lenMax As Integer, i As Byte, Satang As String, Baht As String
   lenMax = Len(text1)
   For i = 1 To lenMax
      If Mid(text1, i, 1) = "." Then
         Satang = Right(text1, lenMax - i)
         Baht = Left(text1, i - 1)
         Exit For
      Else
         Baht = Left(text1, i)
      End If
   Next
   If Baht <> "" Then numtotext = changenum(Baht) & "บาท"
   If Satang <> "" Then numtotext = numtotext & changenum(Satang) & _
      IIf(changenum(Satang) <> "", "สตางค์", "")
End Function
Function changenum(num As String) As String
   Dim i As Integer, max As Integer, r As String, n As String
   num = Trim(Str(Val(num)))
   max = Len(num)
   For i = 1 To max
      r = Choose(((max - i + 1) Mod 6) + 1, "แสน", "", "สิบ", "ร้อย", "พัน", "หมื่น")
      n = Choose(Mid(num, i, 1) + 1, "ศูนย์", "หนึ่ง", "สอง", "สาม", "สี่", "ห้า", "หก", "เจ็ด", "แปด", "เก้า")
      If r = "สิบ" And n = "หนึ่ง" Then n = ""
      If n = "หนึ่ง" And r = "" And max <> 1 Then n = "เอ็ด"
      If i = 1 And n = "เอ็ด" And max > 1 Then n = "หนึ่ง"
      If r = "สิบ" And n = "สอง" Then n = "ยี่"
      If r = "" And max - i + 1 > 6 Then r = "ล้าน"
      If n <> "ศูนย์" Then
         changenum = changenum & n & r
      Else
          If r = "ล้าน" Then changenum = changenum & r
      End If
   Next
End Function

+ ผู้สนับสนุน
+ รับผู้สนับสนุน