Public Function NumToString(ByVal Num As Decimal) As String
Dim numstring(10) As String
Dim inputstring As String
Dim numLen As Integer
Dim a As String
Dim result As String = ""
Dim bTen As Boolean
numstring(1) = "ศูนย์"
numstring(2) = "หนึ่ง"
numstring(3) = "สอง"
numstring(4) = "สาม"
numstring(5) = "สี่"
numstring(6) = "ห้า"
numstring(7) = "หก"
numstring(8) = "เจ็ด"
numstring(9) = "แปด"
numstring(10) = "เก้า"
inputstring = Format$(Num, "######0.00")
numLen = Len(inputstring)
If numLen >= 10 Then
a = Left$(inputstring, numLen - 9)
If Len(a) = 1 Then result = numstring(Val(a) + 1) + "ล้าน"
End If
If numLen >= 9 Then
a = Mid$(inputstring, numLen - 8, 1)
If Val(a) > 0 Then result = result + numstring(Val(a) + 1) + "แสน"
End If
If numLen >= 8 Then
a = Mid$(inputstring, numLen - 7, 1)
If Val(a) > 0 Then result = result + numstring(Val(a) + 1) + "หมื่น"
End If
If numLen >= 7 Then
a = Mid$(inputstring, numLen - 6, 1)
If Val(a) > 0 Then result = result + numstring(Val(a) + 1) + "พัน"
End If
If numLen >= 6 Then
a = Mid$(inputstring, numLen - 5, 1)
If Val(a) > 0 Then result = result + numstring(Val(a) + 1) + "ร้อย"
End If
If numLen >= 5 Then
a = Mid$(inputstring, numLen - 4, 1)
If Val(a) = 0 Then bTen = False
If Val(a) = 1 Then result = result + "สิบ"
If Val(a) = 2 Then result = result + "ยี่สิบ"
If Val(a) >= 3 Then result = result + numstring(Val(a) + 1) + "สิบ"
End If
If numLen >= 4 Then
a = Mid$(inputstring, numLen - 3, 1)
If Val(a) > 0 And Len(result) = 0 And Right$(inputstring, 2) = "00" Then result = "_ศูนย์"
If Val(a) = 1 Then
If bTen = True Then result = result + "เอ็ด"
If bTen = False Then result = result + "หนึ่ง"
End If
If Val(a) >= 2 Then result = result + numstring(Val(a) + 1)
End If
a = Right$(inputstring, 2)
If a = "00" Then
result = result + "บาทถ้วน"
Else
bTen = True
If Len(result) > 0 Then result = result + "บาท"
If Val(Left$(a, 1)) = 0 Then bTen = False
If Val(Left$(a, 1)) = 1 Then result = result + "สิบ"
If Val(Left$(a, 1)) = 2 Then result = result + "ยี่สิบ"
If Val(Left$(a, 1)) >= 3 Then result = result + numstring(Val(Left$(a, 1)) + 1) + "สิบ"
If Val(Right$(a, 1)) = 1 Then
If bTen = True Then result = result + " เอ็ด"
If bTen = False Then result = result + " หนึ่ง"
End If
If Val(Right$(a, 1)) >= 2 Then result = result + numstring(Val(Right$(a, 1)) + 1)
result = result + "สตางค์"
End If
Return result
End Function
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
Load balance : Server 05
