OK, I promise this is the last version for this thread. It is now the five-mode calendar. Feature-complete, suits my own purposes extremely well. Code is being washed and on the way to KB...
Features are now accessed through:
defaultDate Optional as Date. The date to return if user clicks 'OK' without selecting a date. Defaults to current date.Call DatePick.FillVars([defaultDate][,dpMode][,forceCancel][,displayComments][,eventList])
dpMode Optional as Integer. Calendar mode: zero through four. Experiment away! Defaults to zero.
forceCancel Optional as Boolean. Do you want a 'Cancel' button. Defaults to False. 'Cancel' returns date as zero.
displayComments Optional as Boolean. Default False. Displays comments associated with event list items for dpmodes two through four.
eventList Optional as Variant containing Array. Dates as Variant Date in eventList(i,1). Event names in eventList(i,2). Comments in eventList(i,3) LBound(eventList, 1) = 1; LBound(eventList, 2) = 1
Edit: Code removed, see post #38.
