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 :
Código COBOL:
*
* ----- 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 ...