If Left(varSixFigures, 1) = "0" Then varSixLetters = varLettersTens & " " & varLettersUnits & " " & " thousands" End If If Left(varSixFigures, 1) = "0" And Right(varSixFigures, 1) = "0" Then varSixLetters = varLettersTens & " " & " thousands" GoTo jumpMillions End If End If ''' *********************************************************************************************** '''Million ' jumpMillions: If varLenghtNumber > 6 Then varLettersUnits = varUnits(Right([varNineFigures], 1)) varLettersTens = varTens(Left(Right([varNineFigures], 2), 1)) varLettersHundreds = varHundreds(Left(Right([varNineFigures], 3), 1)) If Len([varNineFigures]) = 1 Then varNineLetters = varLettersUnits & " million" End If If Len([varNineFigures]) = 2 Then varNineLetters = varLettersTens & " " & varLettersUnits & " million" Select Case Right([varNineFigures], 2) Case 11 varLettersTens = "eleven" varLettersUnits = "" varNineLetters = varLettersTens & " million" Case 12 varLettersTens = "twelve" varLettersUnits = "" varNineLetters = varLettersTens & " million" Case 13 varLettersTens = "thirteen" varLettersUnits = "" varNineLetters = varLettersTens & " million"

Case 14 varLettersTens = "fourteen" varLettersUnits = "" varNineLetters = varLettersTens & " million" Case 15 varLettersTens = "fifteen" varLettersUnits = "" varNineLetters = varLettersTens & " million" Case 16 varLettersTens = "sixteen" varLettersUnits = "" varNineLetters = varLettersTens & " million" Case 17 varLettersTens = "seventeen" varLettersUnits = "" varNineLetters = varLettersTens & " million" Case 18 varLettersTens = "eighteen" varLettersUnits = "" varNineLetters = varLettersTens & " million" Case 19 varLettersTens = "nineteen" varLettersUnits = "" varNineLetters = varLettersTens & " million" End Select If Right(varNineFigures, 1) = 0 Then varNineLetters = varLettersTens & " million" End If End If If Len([varNineFigures]) = 3 Then varNineLetters = varLettersHundreds & " " & varLettersTens & " " & varLettersUnits & " million" Select Case Right([varNineFigures], 2) Case 11 varLettersTens = "eleven" varLettersUnits = "" varNineLetters = varLettersHundreds & " " & varLettersTens & " million" Case 12 varLettersTens = "twelve" varLettersUnits = "" varNineLetters = varLettersHundreds & " " & varLettersTens & " million" Case 13 varLettersTens = "thirteen"

varLettersUnits = "" varNineLetters = varLettersHundreds & " " & varLettersTens & " million" Case 14 varLettersTens = "fourteen" varLettersUnits = "" varNineLetters = varLettersHundreds & " " & varLettersTens & " million" Case 15 varLettersTens = "fifteen" varLettersUnits = "" varNineLetters = varLettersHundreds & " " & varLettersTens & " million" Case 16 varLettersTens = "sixteen" varLettersUnits = "" varNineLetters = varLettersHundreds & " " & varLettersTens & " million" Case 17 varLettersTens = "seventeen" varLettersUnits = "" varNineLetters = varLettersHundreds & " " & varLettersTens & " million" Case 18 varLettersTens = "eighteen" varLettersUnits = "" varNineLetters = varLettersHundreds & " " & varLettersTens & " million" Case 19 varLettersTens = "nineteen" varLettersUnits = "" varNineLetters = varLettersHundreds & " " & varLettersTens & " million" End Select End If If varNineFigures = "000" Then varNineLetters = "" GoTo jumpBillions End If If Right(varNineFigures, 2) = "00" Then varNineLetters = varLettersHundreds & " " & " millions" GoTo jumpBillions End If If Left(varNineFigures, 2) = "00" Then varNineLetters = varLettersUnits & " " & " millions" GoTo jumpBillions End If

If Left(varNineFigures, 1) = "0" Then varNineLetters = varLettersTens & " " & varLettersUnits & " " & " millions" End If If Left(varNineFigures, 1) = "0" And Right(varNineFigures, 1) = "0" Then varNineLetters = varLettersTens & " " & " millions" GoTo jumpBillions End If End If '' '''' *********************************************************************************************** ''''Billions '' jumpBillions: If varLenghtNumber > 9 Then varLettersUnits = varUnits(Right([varTwelveFigures], 1)) varLettersTens = varTens(Left(Right([varTwelveFigures], 2), 1)) varLettersHundreds = varHundreds(Left(Right([varTwelveFigures], 3), 1)) If Len([varTwelveFigures]) = 1 Then varTwelveLetters = varL

松语文学免费小说阅读_www.16sy.com