Displaying Numbers in Words

Anonymous 

Here's What I tried to implement this using a measure.

Currently this handles upto 9999. 

EX = 
//Currently Handles Upto 9999


//Number to be converted into words. Replace this with SELECTEDVALUE or as desired.
VAR Number = SELECTEDVALUE(T[Value])//115

VAR NumberToText = "" & Number

VAR NoOfDigits =
    LEN ( NumberToText )

VAR Ones =
    SELECTCOLUMNS (
        GENERATESERIES ( 0, 9, 1 ),
        "Ones Digit", [Value],
        "Ones Digit in Words", SWITCH (
            [Value],
            1, "One",
            2, "Two",
            3, "Three",
            4, "Four",
            5, "Five",
            6, "Six",
            7, "Seven",
            8, "Eight",
            9, "Nine"
        )
    )
VAR OneTens =
    SELECTCOLUMNS (
        GENERATESERIES ( 1, 9, 1 ),
        "One Tens Digit", [Value],
        "One Tens Words", SWITCH (
            [Value],
            1, "Eleven",
            2, "Twelve",
            3, "Thirteen",
            4, "Fourteen",
            5, "Fifteen",
            6, "Sixteen",
            7, "Seventeen",
            8, "Eighteen",
            9, "Nineteen"
        )
    )
VAR Tens =
    SELECTCOLUMNS (
        GENERATESERIES ( 1, 9, 1 ),
        "Tens Place", [Value],
        "Tens Words", SWITCH (
            [Value],
            1, "Ten",
            2, "Twenty",
            3, "Thirty",
            4, "Fourty",
            5, "Fifty",
            6, "Sixty",
            7, "Seventy",
            8, "Eighty",
            9, "Ninety"
        )
    )
VAR PlaceValue =
    SELECTCOLUMNS (
        GENERATESERIES ( 3, 6, 1 ),
        "Place", [Value],
        "Place Value", SWITCH ( [Value], 3, "Hundred", 4, "Thousand")
    )


VAR X =
    SELECTCOLUMNS (
        GENERATESERIES ( 1, NoOfDigits, 1 ),
        "Index", [Value],
        "Dec",
        VAR N =
            INT ( Number / INT ( 1 & REPT ( "0", [Value] - 1 ) ) )
        RETURN
            MOD ( N, 10 )
    )
VAR numberMod100 = MOD(Number, 100)
VAR Y =
    ADDCOLUMNS (
        X,
        "Text", SWITCH (
            TRUE (),
            [Index] = 1, SWITCH (
                TRUE (),
                numberMod100 > 10
                    && numberMod100 < 20, MAXX ( FILTER ( OneTens, [One Tens Digit] = [Dec] ), [One Tens Words] ),    
                MAXX ( FILTER ( Ones, [Ones Digit] = [Dec] ), [Ones Digit in Words] )
            ),
            [Index] = 2, SWITCH (
                TRUE (),
                numberMod100 > 10
                    && numberMod100 < 20, "",
                MAXX ( FILTER ( Tens, [Tens Place] = [Dec] ), [Tens Words] )
            ),
            // Handles for 1-9 and beyond index 2
            IF (
                [Dec] = 0,
                "",
                // get the Word representation of current Digit
                MAXX ( FILTER ( Ones, [Ones Digit] = [Dec] ), [Ones Digit in Words] )
                // Concatenate the current digit with its place value.
                 & " " & MAXX ( FILTER ( PlaceValue, [Place] = [Index] ), [Place Value] )
            )
        )
    )
RETURN
    CONCATENATEX(Y, [Text], " ", [Index], DESC)

This can be extended to handle every natural number  with few more lines of DAX.

Hope you get the idea.

Hope lbendlin can help on this. I don't know if there's a better way than this.

Thanks