Date Manipulation

Hi Michael

Thanks for the question. The following function chops up the date into day, month and year and then arranges it into UK format

Public Function DateConverter(USDate As String) As Date



    Dim strMonth As String

    Dim strDay As String

    Dim strYear As String

    Dim strDate As String

    

    strDay = DatePart("d", USDate)

    strMonth = DatePart("m", USDate)

    strYear = DatePart("yyyy", USDate)

    

    strDate = strDay & "/" & strMonth & "/" & strYear

    

    DateConverter = CDate(strDate)

   



End Function