Я совсем недавно как раз перелопатил календрь Olecalendar. Мне нужно было, что бы он сам определял какое поле, Dat или Datatime. Вот что у меня получилось, делюсь со всеми. Там как раз и вычилсяется местоположение календаря отеносительно поля ввода. В результате при выборе даты, форма закрывается, поэтому сначало выбирают год, месяц и последней дату.

***************************************************
* вызывается: = CalendarX("ClnInk.PageFrame1.PageGrp.tfDtCntr.Value")
*
***************************************************
PROCEDURE CalendarX
PARAMETERS cTextObjetData
IF PARAMETERS() = 0
RETURN
ENDIF
*cTextObjetData = "ClnInk.PageFrame1.PageReq.tfRegDate.Value"
nLeftForm = EVALUATE(ALLTRIM(SUBSTR(cTextObjetData,1,AT(".",cTextObjetData))+"Left"))
nTopForm = EVALUATE(ALLTRIM(SUBSTR(cTextObjetData,1,AT(".",cTextObjetData))+"Top"))
CoBackColor = EVALUATE(ALLTRIM(SUBSTR(cTextObjetData,1,AT(".",cTextObjetData))+"BackColor"))
nLeftText = EVALUATE(ALLTRIM(SUBSTR(cTextObjetData,1,RAT(".",cTextObjetData))+"Left"))
nTopText = EVALUATE(ALLTRIM(SUBSTR(cTextObjetData,1,RAT(".",cTextObjetData))+"Top"))
nWidthText = EVALUATE(ALLTRIM(SUBSTR(cTextObjetData,1,RAT(".",cTextObjetData))+"Width"))
IF ISNULL(EVALUATE(cTextObjetData)) .OR. EMPTY(EVALUATE(cTextObjetData))
IF MESSAGEBOX("Поле даты пустое, установить текущую дату?",4+48+0,"Дата") = 7
RETURN
ENDIF
IF TYPE(cTextObjetData) = "T"
&cTextObjetData = DATETIME()
ELSE
&cTextObjetData = DATE()
ENDIF
ENDIF
dWorkData = cTextObjetData+"/"+TYPE(cTextObjetData)
oCalForm = Create("form")
oCalForm.Icon = LOCFILE("Calendar.ico")
oCalForm.NewObject("oleCalendar","_olecalendar","_datetime.vcx")
WITH oCalForm.oleCalendar
.date_column = dWorkData
.RefreshDisplay()
.BackColor = (CoBackColor)
.Visible = .T.
ENDWITH
WITH oCalForm
* .AutoCenter = .T.
.Left = nLeftForm+nLeftText+nWidthText &Определяется место календаря на форме
.Top = nTopForm+nTopText &Определяется место календаря на форме
.BorderStyle = 2
.MaxButton = .F.
.MinButton = .F.
.Height = oCalForm.oleCalendar.Height
.Width = oCalForm.oleCalendar.Width
.Caption = "Календарь"
ENDWITH
oCalForm.Show(1)
**********************************************************

В самом классе изменил SelChange:
*** ActiveX Control Event ***
LPARAMETERS startdate, enddate, cancel

loCloseForm = .F.
cColumn = SUBSTR(This.date_column,1,AT("/",This.date_column)-1)

nYear = YEAR(startdate)
nDay = DAY(startdate)
loCloseForm = IIF(nDay=DAY(&cColumn),.F.,.T.)
nMonth = MONTH(startdate)
IF ALLTRIM(SUBSTR(THIS.date_column,AT("/",THIS.date_column)+1,5)) = "T"
dValue = DATETIME(m.nYear, m.nMonth, m.nDay)
ELSE
dValue = DATE(m.nYear, m.nMonth, m.nDay)
ENDIF

*cColumn = SUBSTR(This.date_column,1,AT("/",This.date_column)-1)
*cColumn = THIS.date_column

IF !EMPTY(m.cColumn)
&cColumn = m.dValue
* REPLACE &cColumn WITH m.dValue
ENDIF

IF TYPE("THISFORM") = "O"
THISFORM.Refresh
ENDIF
IF TYPE("oCalForm") = "O" .AND. loCloseForm
oCalForm.Release
ENDIF

******************************************
*/ изменения в RereshDisplay:

LOCAL cColumn
cColumn = SUBSTR(This.date_column,1,AT("/",This.date_column)-1)

IF !EMPTY(m.cColumn) THEN
THIS.Month = MONTH(&cColumn)
THIS.Day = DAY(&cColumn)
THIS.Year = YEAR(&cColumn)
ENDIF

******************************************