Date format activex calendar

Resolved · Medium Priority · Version 2003

Fri 19 Feb 2010, 15:30 Delegate David said...

David has attended:
Access VBA course

Date format activex calendar

using the activex calendar the dates 1-12 of the month go to the query as mm/dd/yyyy format but 13+ go as dd/mm/yyyy format. Is there a way to force it to be consistent? Thanks

Tue 23 Feb 2010, 07:51 Trainer Stephen said...

RE: Date format activex calendar

Hi David

Thank you for your question

You can do this using a combination of datepart() functions, string cocatenation, and cdate() functions to reformat the date.
I will write a small procedure to solve this and will post it here later today or tommorrow

Regards

Stephen

Wed 3 Mar 2010, 15:41 Trainer Stephen said...

RE: Date format activex calendar

Hi David

Sorry for the delay in getting back to you. Here is the required code as promised.

This is a function. You should write a procedure that runs when you click the forms command button, that passes the calender's value to the function as the US date argument

If you have any questions please do not hesitate to get back to me

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