Make formula as an add-in

[msquared99]

The following formual was provided to me:

=DATE(RIGHT(A1,4),LEFT(A1,LEN(MONTH(TODAY()))),MID(A1,LEN(MONTH(TODAY()))+1,LEN(A1)-LEN(MONTH(TODAY()))-4))

It takes a date and converts it from 112015 to 1/1/2015 OR a date like this 1112015 into 1/11/2015 or 11/1/2015 depending on the current date.

So, how do I make this formula an add-in so I do not have to type it or open a previous file and copy it?

Thanks,

 

[Luke M]

You could add it to your personal workbook as a function, I suppose.

What is the Personal workbook?
http://chandoo.org/wp/2013/11/18/using-personal-macro-workbook/

Code for your UDF:

Function MyDate(DateLong As Long) As Date
MyDate = Evaluate("=DATE(RIGHT(" & DateLong & ",4),LEFT(" & DateLong & _
    ",LEN(MONTH(TODAY()))),MID(" & DateLong & ",LEN(MONTH(TODAY()))+1,LEN(" & DateLong & ")-LEN(MONTH(TODAY()))-4))")
End Function

Copy that into your Personal workbook, and now, in any workbook, you can type:
=MyDate(A1)
and it will convert the number into a date.

 

[msquared99]

Works perfect!

Thanks Luke.