Citación del post de
Breew
|
❞
Hola amigos.
Tengo el ctMonth1 en una aplicacion y quisiera que me diera el numero de semana en que esta la fecha.
No encuentro como hacerlo.
Alguno me puede ayudar ?
Gracias
.
|
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.
PROCEDURE DIVISION.
MOVE 20221010 TO WORK-DATE
SUBTRACT 1 FROM W-CCYY GIVING W-CCYY-1
MOVE 12 TO W-MONTH-1
MOVE 31 TO W-DAY-1
MOVE WORK-DATE TO WORK-NUM
COMPUTE WORK-SERIAL = FUNCTION INTEGER-OF-DATE(WORK-NUM)
MOVE WORK-DATE-PRV-YEAR TO WORK-NUM
COMPUTE START-YEAR = FUNCTION INTEGER-OF-DATE(WORK-NUM)
COMPUTE DAYS = WORK-SERIAL - START-YEAR
COMPUTE NRSEMANA = FUNCTION INTEGER((DAYS - 1) / 7) + 1