#Udf txt write deestination mod
#Udf txt write deestination code

OPart = dGroup - 1 ' calculate index number for digit group description If oPart > 0 And oPart 0 and <20 ' nAlt : alternative text description for the value 1 in different positions. NumberNames2 = Array( 'thousand ', 'million ', 'billion ', 'trillion ', 'quadrillion ', 'quintillion ', 'sextillion ', 'septillions ') '*** description for more than 1 unit NumberNames1 = Array( 'thousand ', 'million ', 'billion ', 'trillion ', 'quadrillion ', 'quintillion ', 'sextillion ', 'septillion ') '*** description for 1 unit TText = Text20(hPart, 1) & 'hundred ' & tText '*** add 'HUNDRED' to the description End If '*** add number description for thousands, millions, billions, trillions, quadrillions, quintillions, sextillions and septillions in the next two array variables TText = Text10( CInt(Left((Format(tPart, '00')), 1))) & Text20(oPart, 1) ' get text description End If If hPart > 0 And tPart > 0 Then tText = 'and ' & tText '*** add 'AND' to the description If hPart = 0 And dGroup 0 Then

#Udf txt write deestination mod

OPart = tPart Mod 10 ' value less than 10 in Number If Left(NumToText, 12) = 'dollars and ' Then NumToText = Right(NumToText, Len(NumToText) - 12) '*** adjust text appropriately If Left(NumToText, 15) = 'minus dollars and ' Then NumToText = 'minus ' & Right(NumToText, Len(NumToText) - 18) '*** adjust text appropriately If Left(NumToText, 9) = 'GBPs and ' Then NumToText = Right(NumToText, Len(NumToText) - 9) '*** adjust text appropriately If Left(NumToText, 15) = 'minus dollars and ' Then NumToText = 'minus ' & Right(NumToText, Len(NumToText) - 15) '*** adjust text appropriately If Left(NumToText, 10) = 'Euros and ' Then NumToText = Right(NumToText, Len(NumToText) - 10) '*** adjust text appropriately If Left(NumToText, 16) = 'minus dollars and ' Then NumToText = 'minus ' & Right(NumToText, Len(NumToText) - 16) '*** adjust text appropriately End Function Function Text100(Number As Long, dGroup As Integer, cGroups As Integer) As String ' returns the text description for Number ' Number : must be a value >0 and = 1000 Or Number 0 And tPart 19 Then NumToText = NumToText & Text100( CLng(Dpart), 1, 1) '*** convert numbers to text If ShowCurrency Then NumToText = NumToText & Part '*** add currency description for decimal part End If Erase dGroups ' clear array variable Erase dgValue ' clear array variable If NegValue Then NumToText = 'minus ' & NumToText '*** add negative label if required 'If the value is less than 1 then remove the 'dollars and ' string from the text. NumToText = NumToText & ' point ' '*** add 'COMMA' or 'AND' to the description End If NumToText = NumToText & ' and ' '*** add 'AND' or 'COMMA' to the description Else

#Udf txt write deestination code

NumToText = NumToText & CurrencyString & 's' '*** currency description for other units End If End If ' code for the decimal part of Number If Dpart > 0 Then NumToText = NumToText & CurrencyString '*** currency description for 1 unit Else If ShowCurrency Then ' add currency description If dgValue(cdGroups) = 1 Then ' convert each digit group to text For i = 1 To cdGroupsДGroups(i) = Text100( CLng(dGroups(i)), cdGroups - i + 1, cdGroups) SNumber = Format(Ipart, sNumber) ' apply number format For i = 1 To cdGroupsДGroups(i) = Mid(sNumber, (i * 3 - 2), 3) ' remember group digitsДgValue(i) = CInt(dGroups(i)) ' remember group value Next i SNumber = sNumber & '0' ' create required number format Next i NumToText = 'Zero ' '*** add description for zero values If Abs(Number) 0Д¬dGroups = nLen / 3 ' number of digit groups ReDim dGroups(cdGroups) ' declare variable ReDim dgValue(cdGroups) ' declare variable

Part = 'pence' Else: Part = 'cents' End If

Option Base 1 ' the functions will not work properly if this is omitted Option Compare Text Function NumToText(Number As Double, ShowCurrency As Boolean, CurrencyString As String) As String Dim Ipart As Double, Dpart As Long, NegValue As Boolean, sNumber As String Dim cdGroups As Integer, dGroups() As String, dgValue() As Integer, nLen As Integer, i As Integer Dim Part As String If CurrencyString = 'pound' Then