MsCalend

  #include "TOTVS.CH"
  User Function MsCalend()  
  DEFINE DIALOG oDlg TITLE "Exemplo MsCalend" FROM 180,180 TO 550,700 PIXEL      
  // Cria objeto    
  oMsCalend := MsCalend():New(01,01,oDlg,.T.)    
  // Define o dia a ser exibido no calendário    
  oMsCalend:dDiaAtu := ctod( "01/01/2008" )    
  // Code-Block para mudança de Dia    
  oMsCalend:bChange := {|| Alert('Dia Selecionado: ' + dtoc(oMsCalend:dDiaAtu)) }        
  // Code-Block para mudança de mes    
  oMsCalend:bChangeMes := {|| alert('Mes alterado') }                   
  ACTIVATE DIALOG oDlg CENTERED 
  Return