The frmDatePicker userform linked to by this page remains copyrighted
material of Abbydale Systems. You are free to use the material but please honor
the copyrights.
The usual disclaimers apply.
This code is based on code not developed by Abbydale Systems LLC that
has been extensively modified make it a lot more flexible.
It is a very useful add-in to any spreadsheet that needs a user to input dates.
To use this userform download it and then import it into your spreadsheet via
the VBA developer.
This userform is not downward compatible with the previous one,
meaning that you cannot simply replace the old version with this one.
Changes in this code include:
- The ability to pass a start date to the userform.
- Highlighted date selected.
- Changed the display of the selected date to dd mmm yyyy format to avoid confusion with US and non US dates.
- Support for US and non-US format dates (via a new module, DatePicker, available from here) which contains the subroutine, DatePickerDisplay.
- The ability to specify your own header/title for the userform.
Note: Full implementation of the date picker requires 4 Public variables. These are defined in the DataPicker.bas module and are:
| Name | Type | Description |
|---|---|---|
| strASLTitle | String | This is used as an optional caption/title for the date picker form to display. |
|
| ||
| ourDate | String | This contains the selected date upon return from the userform. |
|
| ||
| dt | Date | This is used to convert the passed string, if any, into a date format. |
|
| ||
| USFormat | Boolean | This is used to indicate if the date passed is
in US format or not. |
|
| ||
|
The only other requirement is, of course, the actual userform,
frmDatePicker.
A screenshot of this form is shown to the left of this text. The actual zip file containing the userform (frmDatePicker) and DatePicker is available from: |
If the "Developer" ribbon option is not displayed you will
need to activate it.
A video detailing how to activate the "Developer" tab can be watched by
clicking the button below.
Once you "Import" the DatePicker module and USerforms and you should be set.
Using DatePicker.
In order to use the DatePicker module, you need to issue a Call for the DatePickerDisplay subroutine.
DatePickerDisplay has three (3) optional, positional parameters. If a parameter is not used, it should still be marked by a comma (,).
These are:
| Position | Type | Description |
|---|---|---|
| 1 | Date | This can be used to pass a start date to the userform, giving the ability to prevent those
awfully tedious clicks to get to a distant prior or future date. If omitted then the current date is used. |
| 2 | Variant | This can be either True or False.
This indicates whether the date is in US (mm/dd/yyyy) order or in non-US format (dd/mm/yyyy).
If omitted then True is assumed and the date treated as being in mm/dd/yyyy format. |
| 3 | Variant | This allows the the passing of a title to be used as the userform caption (title).
If omitted the default of 'Date Picker' will be used. |
Examples of Using DatePickerDisplay
Here are some examples of using the DatePickerDisplay subroutine.
- To show the date picker using the current date in US date format.
Call DatePickerDisplay
Notice that will provide no further parameters so the Date Picker will show the current date and have the caption "Date Picker".
- To show the date picker using the current date in a non-US date
format.
Call DatePickerDisplay(, False)
Notice that the date parameter is not coded so a comma is used to indicate that only the second parameter has been passed. The user form will have the caption "Date Picker".
- To show the date picker using the start date of a different day than
the current day in a non-US date format with the caption reading
"Enter your Birthday".
Call DatePickerDisplay("31/7/1901", False, "Enter your Birthday")
This will result in the userform displaying the layout for July 1901 with the 31st highlighted. The userform will have the caption "Enter your Birthday".
- To show the date picker using the start date of a different day
than the current day in a US date format with the caption reading
"Enter your Birthday".
Call DatePickerDisplay("7/31/1901", , "Enter your Birthday")
Notice that the date format has been changed from the previous example as the date is in US format. We can also omit the second parameter as this is the default, or you could code True as the second parameter. The userform will display the layout for July 1901 with the 31st highlighted. The userform will have the caption "Enter your Birthday".
All errors will return an ourDate value of "999".
Please make sure your code checks for this value upon return.
The returned date, ourDate, will be in the same format as the input date. Non-US format dates are returned in non-US format. US format dates are returned in US format.
Extracting Information From the Returned Date
Information can be retrieved from the returned date in the same way that it can be from any other date.
For example if you want to know the day of the week for ourDate simply code:
WeekdayName(Weekday(ourdate))
Support Removed Notice
We have removed the old userform date picker from the website, however, if you still require a copy of this code please feel free to contact us via the contact form on this website.
As ever, you use this free program at your own risk.
Feel free to use the free software on this site but please honor the copyright.
This material has been used successfully by Abbydale Systems LLC. and to the best of our knowledge this material and any system(s) of which it is a part are operational as of the service level or date stated in the body of this material (if so stated). However, NO warranty is given or implied as to the accuracy of this material or any related material or systems, and no responsibility is assumed for any effect or modification directly or indirectly caused by the use of this material.
It is the responsibility of any user of this material to evaluate its usefulness to the user's environment.
Abbydale Systems LLC. does not guarantee to keep this or any related material current, nor does it guarantee to provide any corrections or extensions described by any users of this material or any corrections or extensions made in the future by Abbydale Systems LLC. itself.
