Access VBA Dates

Hi Claire

Sorry for the delay in responding.

I have created the following function which converts the date into UK format. It should be called from the on click procedure where the variable returned by the calendar control should be set as it's argument.

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