DLL Calendario 2022 de @Josber Actualizacion

[fastpho]

He modificado el calendario 2014 creado por @Josber de este link: [Aporte] DLL control Calendario
Gracias @Josber , espero tus comentarios !!! o sugerencias .
* Cambiando la apariencia y agregando el calculo del numero de semana , la form se puede mover , arrastrar y soltar.


Es necesario tener instalada la fuente «Segoe UI» en windows 10 ya está por defecto.

* Se puede Ocultar el reloj , el date , la columna semana , el boton today por parámetros.
* Se puede Ajustar el tamaño y la posición de la form por parámetros.

Para su visualización se necesita del Control OCX ucBOX : ElsisBoxUpgr.ocx registrarla.
Incluye : ocx , cursor , prj dll , prj ejemplo
Probado en : Windows 7 64 bits , Windows 10 64 bits
Variables Globales :

*
* ----- VARIABLES EXTERNAS -----
*
* by Josber 2014
 01  DIA-SEM-LINK           PIC 9       IS GLOBAL EXTERNAL.
 01  FECHA-LINK                 IS GLOBAL EXTERNAL. *> EXTERNAL para ésta rutina y rutina F-DIA-S
     03  D-LINK         PIC 99.
     03  M-LINK         PIC 99.
     03  A-LINK         PIC 9999.                               *> Mover ZEROS o la solicitud que necesite  2022
 *> Variable Devuelve el nro semana 2022
 01  NUM-SEM-LINK           PIC 99      IS GLOBAL EXTERNAL.     
  *> Variables para posicionar la ventana 2014
 01  LEFT-LINK          PIC S9(9)   IS GLOBAL EXTERNAL COMP-5.   *> EXTERNAL para ésta rutina sólo
 01  TOP-LINK           PIC S9(9)   IS GLOBAL EXTERNAL COMP-5.   *> EXTERNAL para ésta rutina sólo
  *> Variables para posicionar el tamaño ventana 2022
 01  WIDTH-LINK                   PIC S9(9) IS GLOBAL EXTERNAL COMP-5.   *> EXTERNAL para ésta rutina sólo 
 01  HEIGHT-LINK                  PIC S9(9) IS GLOBAL EXTERNAL COMP-5.   *> EXTERNAL para ésta rutina sólo 
 
  *> Variables para mostrar boton today * 2022 Value 0 INVISIBLE Value 1 VISIBLE
 01  BTNTODAY-LINK                PIC 9 IS GLOBAL EXTERNAL.                  *> EXTERNAL para ésta rutina sólo 
 
  *> Variables para mostrar columna semana * 2022 Value 0 INVISIBLE Value 1 VISIBLE
 01  COLSEM-LINK                  PIC 9 IS GLOBAL EXTERNAL.                  *> EXTERNAL para ésta rutina sólo 
 
  *> Variables para mostrar el timer * 2022
 01  TIME-LINK                    PIC 9     IS GLOBAL EXTERNAL.          *> EXTERNAL para ésta rutina sólo  Value 1 = muestra reloj 0 = no muestra reloj
  *> Variables para mostrar el date * 2022
 01  DATE-LINK                    PIC 9     IS GLOBAL EXTERNAL.          *> EXTERNAL para ésta rutina sólo  Value 1 = muestra fecha completa 0 = no muestra fecha completa
 
*---------------------------------------------------------------------------

Saludos ...

[Joseg]

He modificado el calendario 2014 creado por @Josber de este link: [Aporte] DLL control Calendario
Gracias @Josber , espero tus comentarios !!! o sugerencias .
* Cambiando la apariencia y agregando el calculo del numero de semana , la form se puede mover , arrastrar y soltar.


Es necesario tener instalada la fuente «Segoe UI» en windows 10 ya está por defecto.

* Se puede Ocultar el reloj , el date , la columna semana , el boton today por parámetros.
* Se puede Ajustar el tamaño y la posición de la form por parámetros.

Para su visualización se necesita del Control OCX ucBOX : ElsisBoxUpgr.ocx registrarla.
Incluye : ocx , cursor , prj dll , prj ejemplo
Probado en : Windows 7 64 bits , Windows 10 64 bits
Variables Globales :

*
* ----- VARIABLES EXTERNAS -----
*
* by Josber 2014
 01  DIA-SEM-LINK           PIC 9       IS GLOBAL EXTERNAL.
 01  FECHA-LINK                 IS GLOBAL EXTERNAL. *> EXTERNAL para ésta rutina y rutina F-DIA-S
     03  D-LINK         PIC 99.
     03  M-LINK         PIC 99.
     03  A-LINK         PIC 9999.                               *> Mover ZEROS o la solicitud que necesite  2022
 *> Variable Devuelve el nro semana 2022
 01  NUM-SEM-LINK           PIC 99      IS GLOBAL EXTERNAL.     
  *> Variables para posicionar la ventana 2014
 01  LEFT-LINK          PIC S9(9)   IS GLOBAL EXTERNAL COMP-5.   *> EXTERNAL para ésta rutina sólo
 01  TOP-LINK           PIC S9(9)   IS GLOBAL EXTERNAL COMP-5.   *> EXTERNAL para ésta rutina sólo
  *> Variables para posicionar el tamaño ventana 2022
 01  WIDTH-LINK                   PIC S9(9) IS GLOBAL EXTERNAL COMP-5.   *> EXTERNAL para ésta rutina sólo 
 01  HEIGHT-LINK                  PIC S9(9) IS GLOBAL EXTERNAL COMP-5.   *> EXTERNAL para ésta rutina sólo 
 
  *> Variables para mostrar boton today * 2022 Value 0 INVISIBLE Value 1 VISIBLE
 01  BTNTODAY-LINK                PIC 9 IS GLOBAL EXTERNAL.                  *> EXTERNAL para ésta rutina sólo 
 
  *> Variables para mostrar columna semana * 2022 Value 0 INVISIBLE Value 1 VISIBLE
 01  COLSEM-LINK                  PIC 9 IS GLOBAL EXTERNAL.                  *> EXTERNAL para ésta rutina sólo 
 
  *> Variables para mostrar el timer * 2022
 01  TIME-LINK                    PIC 9     IS GLOBAL EXTERNAL.          *> EXTERNAL para ésta rutina sólo  Value 1 = muestra reloj 0 = no muestra reloj
  *> Variables para mostrar el date * 2022
 01  DATE-LINK                    PIC 9     IS GLOBAL EXTERNAL.          *> EXTERNAL para ésta rutina sólo  Value 1 = muestra fecha completa 0 = no muestra fecha completa
 
*---------------------------------------------------------------------------

Saludos ...

Very Nice

[Josber]

Se ve estupendo @fastpho, que bueno que las rutinas que hacemos vayan evolucionando y, la nueva apariencia, es fantástica.

Un saludo y mil gracias por el trabajo y por respetar los crédito iniciales.