2003-05-13 20:15

'***************************************
'* Add this to the top of yout program *
'* (After the preprocessor directives) *
'***************************************
     TYPE SYSTEMTIME
      wYear AS WORD
      wMonth AS WORD
      wDayOfWeek AS WORD
      wDay AS WORD
      wHour AS WORD
      wMinute AS WORD
      wSecond AS WORD
      wMilliseconds AS WORD
     END TYPE
     DECLARE FUNCTION SendMessageSysTime LIB "user32" ALIAS "SendMessageA" (HWND AS LONG, message AS LONG, WPARAM AS LONG, BYREF LPARAM AS SYSTEMTIME) AS LONG

     CONST MCM_GETCURSEL = &H1001

'************************************
'* Add the folowing to get the time *
'************************************
     DIM time AS SYSTEMTIME
     DIM handle AS LONG 'Handle to MonthCal window
     SendMessage(handle, MCM_GETCURSEL, 0, time)
'Process time...

2003-05-13 20:15