; ID: 1300
; Author: Malice
; Date: 2005-02-21 10:00:25
; Title: Convert Integers to Words
; Description: Functions to convert Integer values into String words.

;Convert Integer To String
;Submitted by Malice

Function value$(x)

;___________________________________________RETURN SPECIAL VALUE FOR "0"

	If x=0 Then Return "NONE"

;___________________________________________SPLIT THE NUMBER INTO CONSTITUENT PARTS

	z= x Mod 1000000
	millions=Floor(x/1000000)
	x=z

	z= x Mod 100000
	hundredthousands=Floor(x/100000)
	x=z

	z= x Mod 1000
	thousands=Floor(x/1000)
	x=z

	z= x Mod 100
	hundreds=Floor(x/100)
	x=z

	units=x

;___________________________________________CONVERT EACH PART TO WORDS

		mil$=convert$(millions)
		hth$=convert$(hundredthousands)
		tho$=convert$(thousands)
		hun$=convert$(hundreds)
		uni$=convert$(units)

;___________________________________________STORE THE RESULTS IN A SINGLE STRING AND ADJUST FOR GRAMMAR

a$=mil$

If millions>0 Then a$=a$+" MILLION"

If hundredthousands>0 And millions>0 Then a$=a$+","

If hth$>"" Then a$=a$+" "+hth$

If hundredthousands>0 Then a$=a$+" HUNDRED"

If thousands>0 And (millions+hundredthousands)>0 Then a$=a$+" AND"

If tho$>"" Then a$=a$+" "+tho$

If thousands>0 Or hundredthousands>0 Then a$=a$+" THOUSAND"

If hundreds>0 And thousands+hundredthousands+millions>0 Then a$=a$+","

If hun$>"" Then a$=a$+" "+hun$

If hundreds>0 Then a$=a$+" HUNDRED"

If units>0 And hundreds+thousands+hundredthousands+millions>0 Then a$=a$+" AND"

If uni$>"" Then a$=a$+" "+uni$

		
		Replace$(a$,"     "," ")
		Replace$(a$,"    "," ")
		Replace$(a$,"   "," ")
		Replace$(a$,"  "," ")
						
		While Left$(a$,1)=" "
			a$=Right$(a$,(Len(a$)-1))
		Wend

;_________________________________________________RETURN THE RESULT AND END THE FUNCTION

Return a$
End Function

;_________________________________________________SECONDARY FUNCTION TO CONVERT TO WORDS

Function convert$(integer)

		Select integer
			Case 0
				integer_text$=""
			Case 1
				integer_text$="ONE"
			Case 2
				integer_text$="TWO"
			Case 3
				integer_text$="THREE"
			Case 4
				integer_text$="FOUR"
			Case 5
				integer_text$="FIVE"
			Case 6
				integer_text$="SIX"
			Case 7
				integer_text$="SEVEN"
			Case 8
				integer_text$="EIGHT"
			Case 9
				integer_text$="NINE"
			Case 10 
				integer_text$="TEN"
			Case 11
				integer_text$="ELEVEN"
			Case 12
				integer_text$="TWELVE"
			Case 13
				integer_text$="THIRTEEN"
			Case 14
				integer_text$="FOURTEEN"
			Case 15
				integer_text$="FIFTEEN"				
			Case 16
				integer_text$="SIXTEEN"	
			Case 17
				integer_text$="SEVENTEEN"
			Case 18
				integer_text$="EIGHTEEN"
			Case 19
				integer_text$="NINETEEN"
			Case 20
				integer_text$="TWENTY"
			Case 21
				integer_text$="TWENTY-ONE"
			Case 0
				integer_text$="NIL"
			Case 1
				integer_text$="ONE"
			Case 2
				integer_text$="TWO"
			Case 3
				integer_text$="THREE"
			Case 4
				integer_text$="FOUR"
			Case 5
				integer_text$="FIVE"
			Case 6
				integer_text$="SIX"
			Case 7
				integer_text$="SEVEN"
			Case 8
				integer_text$="EIGHT"
			Case 9
				integer_text$="NINE"
			Case 10 
				integer_text$="TEN"
			Case 11
				integer_text$="ELEVEN"
			Case 12
				integer_text$="TWELVE"
			Case 13
				integer_text$="THIRTEEN"
			Case 14
				integer_text$="FOURTEEN"
			Case 15
				integer_text$="FIFTEEN"				
			Case 16
				integer_text$="SIXTEEN"	
			Case 17
				integer_text$="SEVENTEEN"
			Case 18
				integer_text$="EIGHTEEN"
			Case 19
				integer_text$="NINETEEN"
			Case 20
				integer_text$="TWENTY"
			Case 21
				integer_text$="TWENTY-ONE"
			Case 22
				integer_text$="TWENTY-TWO"
			Case 23
				integer_text$="TWENTY-THREE"
			Case 24
				integer_text$="TWENTY-FOUR"
			Case 25
				integer_text$="TWENTY-FIVE"
			Case 26
				integer_text$="TWENTY-SIX"
			Case 27
				integer_text$="TWENTY-SEVEN"
			Case 28
				integer_text$="TWENTY-EIGHT"
			Case 29
				integer_text$="TWENTY-NINE"
			Case 30
				integer_text$="THIRTY"
			Case 31
				integer_text$="THIRTY-ONE"
			Case 32 
				integer_text$="THIRTY-TWO"
			Case 33
				integer_text$="THIRTY-THREE"
			Case 34
				integer_text$="THIRTY-FOUR"
			Case 35
				integer_text$="THIRTY-FIVE"
			Case 36
				integer_text$="THIRTY-SIX"
			Case 37
				integer_text$="THIRTY-SEVEN"			
			Case 38
				integer_text$="THIRTY-EIGHT"	
			Case 39
				integer_text$="THIRTY-NINE"
			Case 40
				integer_text$="FORTY"
			Case 41
				integer_text$="FORTY-ONE"
			Case 42
				integer_text$="FORTY-TWO"
			Case 43
				integer_text$="FORTY-THREE"
			Case 44
				integer_text$="FORTY-FOUR"
			Case 45
				integer_text$="FORTY-FIVE"
			Case 46
				integer_text$="FORTY-SIX"
			Case 47
				integer_text$="FORTY-SEVEN"
			Case 48
				integer_text$="FORTY-EIGHT"
			Case 49
				integer_text$="FORTY-NINE"
			Case 50
				integer_text$="FIFTY"
			Case 51
				integer_text$="FIFTY-ONE"
			Case 52
				integer_text$="FIFTY-TWO"
			Case 53
				integer_text$="FIFTY-THREE"
			Case 54 
				integer_text$="FIFTY-FOUR"
			Case 55
				integer_text$="FIFTY-FIVE"
			Case 56
				integer_text$="FIFTY-SIX
			Case 57
				integer_text$="FIFTY-SEVEN"
			Case 58
				integer_text$="FIFTY-EIGHT"
			Case 59
				integer_text$="FIFTY-NINE"			
			Case 60
				integer_text$="SIXTY"
			Case 61
				integer_text$="SIXTY-ONE"
			Case 62
				integer_text$="SIXTY-TWO"
			Case 63
				integer_text$="SIXTY-THREE"
			Case 64
				integer_text$="SIXTY-FOUR"
			Case 65
				integer_text$="SIXTY-FIVE"
			Case 66
				integer_text$="SIXTY-SIX"
			Case 67
				integer_text$="SIXTY-SEVEN"
			Case 68
				integer_text$="SIXTY-EIGHT"
			Case 69
				integer_text$="SIXTY-NINE"
			Case 70
				integer_text$="SEVENTY"
			Case 71
				integer_text$="SEVENTY-ONE"
			Case 72
				integer_text$="SEVENTY-TWO"
			Case 73
				integer_text$="SEVENTY-THREE"
			Case 74
				integer_text$="SEVENTY-FOUR"
			Case 75
				integer_text$="SEVENTY-FIVE"
			Case 76 
				integer_text$="SEVENTY-SIX"
			Case 77
				integer_text$="SEVENTY-SEVEN"
			Case 78
				integer_text$="SEVENTY-EIGHT"
			Case 79
				integer_text$="SEVENTY-NINE"
			Case 80
				integer_text$="EIGHTY"
			Case 81
				integer_text$="EIGHTY-ONE"				
			Case 82
				integer_text$="EIGHTY-TWO"	
			Case 83
				integer_text$="EIGHTY-THREE"
			Case 84
				integer_text$="EIGHTY-FOUR"
			Case 85
				integer_text$="EIGHTY-FIVE"
			Case 86
				integer_text$="EIGHTY-SIX"
			Case 87
				integer_text$="EIGHTY-SEVEN"
			Case 88
				integer_text$="EIGHTY-EIGHT"
			Case 89
				integer_text$="EIGHTY-NINE"
			Case 90
				integer_text$="NINETY"
			Case 91
				integer_text$="NINETY-ONE"
			Case 92
				integer_text$="NINETY-TWO"
			Case 93
				integer_text$="NINETY-THREE"
			Case 94
				integer_text$="NINETY-FOUR"
			Case 95
				integer_text$="NINETY-FIVE"
			Case 96
				integer_text$="NINETY-SIX"
			Case 97
				integer_text$="NINETY-SEVEN"
			Case 98 
				integer_text$="NINETY-EIGHT"
			Case 99
				integer_text$="NINETY-NINE"
			Case 100
				integer_text$="ONE-HUNDRED"
				
		End Select
					
	Return integer_text$ 

End Function