Syntax:

 

WeekNumbers <lValue>

 

Sample:

 

 

#include "hmg.ch"

 

Function Main

 

      DEFINE WINDOW Form_1 ;

            AT 0,0 ;

            WIDTH 640 HEIGHT 480 ;

            TITLE "Month Calendar Control Demo" ;

            MAIN

 

            @ 210,10 MONTHCALENDAR Month_2 ;

                  VALUE CTOD("01/01/2001") ;

                  FONT "Courier" SIZE 12 ;

                  TOOLTIP "Month Calendar Control WeekNumbers" ;

                  WEEKNUMBERS

 

      END WINDOW

 

      ACTIVATE WINDOW Form_1

 

Return Nil