declare calender&,lesen&
declare dtp#
DEF getsystime(2) SendMessage(&(1),4097,0,&(2))
dim dtp#,20

PROC GETDATE
   declare d$,m$,y$
   parameters chdl&
   getsystime(chdl&,dtp#)
   d$=format$("00",word(dtp#,6))
   m$=format$("00",word(dtp#,2))
   y$=format$("0000",word(dtp#,0))
   return d$+"."+m$+"."+y$	
ENDPROC

cls
calender&=Control("SysMonthCal32","",$54000004,1,1,202,155,%hwnd,2000,%hinstance)
lesen&=Create("Button",%hwnd,"Zeige",220,10,100,20)

while 1
   waitinput
   if getfocus(lesen&)
      getdate calender&
      messagebox($(0),"Gewählt",0)
   endif
wend
dispose dtp#