Option Compare Database
Option Explicit
Dim a1( 9 ) As String
Dim a2( 9 ) As String
Dim a3( 9 ) As String
Dim a4( 9 ) As String

Public Function props$(chislo#)
Dim t As Long
Dim b As Long
Dim K As Long
Dim ch$, st$, S1$
Dim a#, ass%
t =  0 : b =  0 : K =  0 : a# =  0 : ass% =  0 
a1( 1 ) =  "one hundred" : a1( 2 ) =  "two hundred" 
a1( 3 ) =  "three hundred" : a1( 4 ) =  "four hundred" 
a1( 5 ) =  "five hundred" : a1( 6 ) =  "six hundred" 
a1( 7 ) =  "seven hundred" : a1( 8 ) =  "eight hundred" 
a1( 9 ) =  "nine hundred" 
a2( 1 ) =  "ten" : a2( 2 ) =  "twenty" 
a2( 3 ) =  "thirty" : a2( 4 ) =  "forty" 
a2( 5 ) =  "fifty" : a2( 6 ) =  "sixty" 
a2( 7 ) =  "seventy" : a2( 8 ) =  "eighty" 
a2( 9 ) =  "ninety" 
a3( 1 ) =  "eleyen" : a3( 2 ) =  "twelve" 
a3( 3 ) =  "thirteen" : a3( 4 ) =  "fourteen" 
a3( 5 ) =  "fifteen" : a3( 6 ) =  "sixteen" 
a3( 7 ) =  "seventeen" : a3( 8 ) =  "eighteen" 
a3( 9 ) =  "nineteen" 
a4( 1 ) =  "one" : a4( 2 ) =  "two" 
a4( 3 ) =  "three" : a4( 4 ) =  "four" 
a4( 5 ) =  "five" : a4( 6 ) =  "six" 
a4( 7 ) =  "seven" : a4( 8 ) =  "eight" 
a4( 9 ) =  "nine" 
t = Int(chislo#)
a# = chislo# - t
ass% = Int(a# *  100 )
If Int(a# *  100 ) +  1  - a# *  100  <  0 . 5  Then
ass% = ass% +  1 
End If
If ass% =  0  Then
S1$ = Chr$( 32 ) +  "00 " + Chr$( 32 ) +  "satang only" 
Else
If ass% <  10  Then
S1$ = Chr$( 32 ) +  "0 " + LTrim(Str(ass%)) + Chr$( 32 ) +  "satang only" 
Else
S1$ = Chr$( 32 ) + Str(ass%) + Chr$( 32 ) +  "satang only" 
End If
End If
st$ = Chr$( 32 )
If t >  1000000  Then
b = Int(t /  1000000 )
t = t - b *  1000000 
st$ = Chr$( 32 ) + st$ + itos$(b,  0 )
K = b -  100  * Int(b /  100 )
If K >=  11  And K <=  14  Then
st$ = st$ + Chr$( 32 ) +  "million" 
Else
K = b -  10  * Int(b /  10 )
Select Case K
Case  0 ,  5  To  9 
st$ = st$ + Chr$( 32 ) +  "million" 
Case  2  To  4 
st$ = st$ + Chr$( 32 ) +  "million" 
Case  1 
st$ = st$ + Chr$( 32 ) +  "million" 
End Select
End If
End If
If t >=  1000  Then
b = Int(t /  1000 )
t = t - b *  1000 
st$ = st$ + itos$(b,  1 )
K = b -  100  * Int(b /  100 )
If K >=  11  And K <=  14  Then
st$ = st$ + Chr$( 32 ) +  "thousand" 
Else
K = b -  10  * Int(b /  10 )
Select Case K
Case  0 ,  5  To  9 
st$ = st$ + Chr$( 32 ) +  "thousand" 
Case  2  To  4 
st$ = st$ + Chr$( 32 ) +  "thousand" 
Case  1 
st$ = st$ + Chr$( 32 ) +  "thousand" 
End Select
End If
End If
b = t
If t <>  0  Then
st$ = st$ + itos$(b,  0 )
End If
b = t
K = b -  100  * Int(b /  100 )
If K >=  11  And K <=  15  Then
st$ = st$ + Chr$( 32 ) +  "Baht" 
Else

K = b -  10  * Int(b /  10 )
Select Case K
Case  0 ,  5  To  9 
st$ = st$ + Chr$( 32 ) +  "Baht" 
Case  2  To  4 
st$ = st$ + Chr$( 32 ) +  "Baht" 
Case  1 
st$ = st$ + Chr$( 32 ) +  "Baht" 
End Select
End If
st$ = LTrim$(st$)
st$ = UCase$(Left$(st$,  1 )) + Right$(st$, Len(st$) -  1 )
props$ = st$ + S1$
End Function

Function itos$(n, p)
Dim t As Integer
Dim i As Integer
Dim st$
i =  0 
t = n
If t >=  100  Then
i = Int(t /  100 )
st$ = a1(i)
t = t - i *  100 
End If
Select Case t
Case Is >=  20 
i = Int(t /  10 )
st$ = st$ + Chr$( 32 ) + a2(i)
t = t - i *  10 
Case  11  To  19 
i = t -  10 
st$ = st$ + Chr$( 32 ) + a3(i)
t =  0 
Case  10 
st$ = st$ + Chr$( 32 ) + a2( 1 )
t =  0 
Case Else
End Select
Select Case t
Case  1 ,  2 
If p <>  1  Then
st$ = st$ + Chr$( 32 ) + a4(t)
Else
If t =  1  Then
st$ = st$ + Chr$( 32 ) +  "one" 
Else
st$ = st$ + Chr$( 32 ) +  "two" 
End If
End If
Case  3  To  9 
st$ = st$ + Chr$( 32 ) + a4(t)
Case Else
End Select
itos$ = Chr$( 32 ) + st$
End Function