Date Dialog

[Gintaras]

Example of setting current date of standard month calendar control (SysMonthCal32). If your control is derived from SysMonthCal32, should work too, you only need to replace class name. The month calendar control must be visible (probably).

Code:

Copy      Help

def MCM_FIRST 0x1000
def MCM_SETCURSEL (MCM_FIRST + 2)

DATE d="5/5/2005"
SYSTEMTIME st
d.tosystemtime(st)

int mc=win("" "SysMonthCal32") ;;change this to "msvb_lib_monthview"
SendMessage mc MCM_SETCURSEL 0 &st