Posted by Mike Saunders on December 07, 2007 at 09:01:13:
In Reply to: Re: Mix and Match posted by Brian Levantine on December 07, 2007 at 08:00:12:
On a side note and not trying to confuse things.
I was continuing wiht my original solution, which was to write a simple IB program that just did the date time picker.
This program would be entered and then upon exit the date would be written to the #BUFFER for use by the calling program.
The IB DTPICKER works fine when run from the ready prompt.
However....
It appears that when the DTPICKER is ENTERED...
The COS.GetSystemTime does something, but not a valid date as the variable UpdDate$ is set to '00000'
(See the below code)
One other curious item...
When the DTPICKER is run the CheckBox on the DateTime Picker IS NOT checked by default.
When the DTPICKER is entered the checkbox on the Datetime Picker IS checked by default.
cosCtlId = IDC.DATETIMEPICKER1
gosub COS.GetSystemTime
if cosFuncResult = GDT.VALID
MSGBOX "COS RETURNED SOMETHING"
UpdDate$ = rsub(strip(str(cosMonth+100)),1,2) + rsub(strip(str(cosDay+100)),1,2) + strip(str(cosYear))
MSGBOX UPDdATE$
FilterUpdDate = date2num(UpdDate$,0)
else ! The control is disabled
MSGBOX "COS DID NOT RETURN ANYTHING"
FilterUpdDate = -1
endif
BUFFER$ = "Date Selected: " + UpdDate$
Msgbox BUFFER$
CW.ExitEvents = True ! Exit program after ok button pressed.