weekday en ctMonth1

[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



.

[Joseg]

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.

 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

[Breew]

Nr. de Semana de qualquer data.

 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

[Joseg]

Hummmm !

É necessário mais código, teste isto.
Havia muitas considerações a analisar.
No entanto assume que o 1º dia da semana é "Segunda-feira" (Lunes)

 data division.
 working-storage section.
 01 input-data pic 9(8) value 20220101.
 01 integer-of-input-data binary pic 9(8).
 01 work-table.
     02 work-item occurs 3.
        03 work-year binary pic 9(4).
        03 work-jan-4 binary pic 9(8).
        03 work-first-date binary pic 9(8).
 01 work-sub binary pic 9(4).
 01 week-for-input-data pic 9(2).
 procedure division.
 inicio.
      perform with test after until input-data = 0
      display "Digite a data YYYYMMDD: " with no advancing
      accept input-data
      if input-data = 0
         exit program
      else
         perform calculos
         display "Nr. da semana da data: " input-data " e "
         week-for-input-data " do ano: " work-year (work-sub)
      end-if
      end-perform
      exit program
      .
 calculos.
      divide input-data by 10000 giving work-year (2)
      subtract 1 from work-year (2) giving work-year (1)
      add 1 to work-year (2) giving work-year (3)
      perform varying work-sub from 1 by 1
         until work-sub > 3
           compute work-jan-4 (work-sub) =
           function integer-of-date(work-year (work-sub) * 10000 + 0104)
           compute work-first-date (work-sub) =(function integer ((work-jan-4 (work-sub) - 1) / 7)) * 7 + 1
       end-perform
       compute integer-of-input-data = function integer-of-date (input-data)
       evaluate integer-of-input-data
          when work-first-date (1) thru (work-first-date (2) - 1)
               move 1 to work-sub
               perform calculate-nr-semana
          when work-first-date (2) thru (work-first-date (3) - 1)
               move 2 to work-sub
               perform calculate-nr-semana
          when other
               move 3 to work-sub
               perform calculate-nr-semana
       end-evaluate
       .
 calculate-nr-semana.
       compute week-for-input-data = (function integer ((integer-of-input-data - work-first-date (work-sub)) / 7)) + 1
       .