Citación del post de
Joseg
|
❞
Nr. de Semana de qualquer data.
Código COBOL:
WORKING-STORAGE SECTION. 01 WORK-DATE. 02 W-CCYY PIC 9(4). 02 W-MONTH PIC 9(2). 02 W-DAY PIC 9(2). 01 WORK-DATE-PRV-YEAR. 02 W-CCYY-1 PIC 9(4). 02 W-MONTH-1 PIC 9(2). 02 W-DAY-1 PIC 9(2). 01 WORK-SERIAL PIC S9(9) BINARY. 01 START-YEAR PIC S9(8). 01 WORK-NUM PIC 9(8). 01 DAYS PIC 9(3) USAGE DISPLAY. 01 NRSEMANA PIC 99.
|
Hola.
Perfecto, pero como le corrijo la posicion de la primera semana, ya que ahora no me da semana 2 hasta el dia 8 y queria semana 2 en el dia 3.
Gracias