What week of the year is it?

Hi Brian,

I see that OCONV(nnnnn,"DW")  gives a Friday as day 5 of the week.
That is why my brain is convinced that the week begins on a Monday.  Sunday is day 7.

My code would differ from yours and would start with OCONV(nnn or -nnn,"DJ") to give me the Julian day of the year for every (not just recent) dates, then onwards to follow your code:

*Variables
$internaldate = what ever is input
$weeknumber = 1

*Calculation
$firstsundayoftheyear = your calculation :-)
IF Julian day of the year > 7 THEN $weeknumber = ( (INT(OCONV($internaldate, "DJ") - $firstsundayoftheyear)/7 ) + 2) 

Take care mate, and thank you for all your help over the years, much appreciated.

Merry

Hi Brian,

Just Googled 1st day of week, and Europe has Monday, US, Canada, and Japan has Sunday.
Here's my calendar - please crop as necessary:

Merry

Hi Brian,

Yes, I know we shouldn't but I still do use "U".

Just a thought, when using U1193 or even U7193 (the same as U1193 but with 2 digit dates), does this also change the start date of the week?

It could be a very useful part of the switch US/International switch used by set-date/set-date-std/set-date-eur/set... to not only switch the date format from American to/from International, but at the same time switch the value of day 1 of the week if the US has a different week-start-day from International as well as different date formatting - subtle hint. Else we developers can do anything anyway :-)

All in all, I still think that the finance departments who use different start dates for the week, the year and even the number of months in a year (12 or 13) are the root cause of much mischief when setting out their requirements for us lot.

Take case,   Merry

IF SOMETHING THEN
   DO THIS
   DO THAT
END

I've noticed when posting code that the forum seems to remove any leading spaces thereby eliminating any code indentation in IF END statements and the like. I'll look into how to avoid this. Meanwhile, everybody know that it's not the kind contributor's fault.

I was able to find a work-around: HTML. Hit the 3 dots, then hit "HTML", then use this window to PRE-tag your source with BR tags for line feeds:

IF SOMETHING THEN
   DO THIS
   DO THAT
END

------------------------------
Brian S. Cram
Principal Technical Support Engineer
Rocket Software
------------------------------

      SUBROUTINE RETORNA.SEMANA(WEEK, DATE,TIPO)
      PRECISION 0
      PROMPT ""
*****************************************************************
* NOME : RETORNO SEMANA DO ANO/MES OU BIMESTE PELA DATA         *
*  POR : ALBERTO                                                *
*   EM : 06/08/2021                                             *
*****************************************************************
      WEEK = 0
*     WEEK VARIAVLE OUTPUT COM 2 DIGITS
*     DATE = DIA (DATA INTERNA)
*     TIPO = 1 WEEK OF THE YEAR
*            2 WEEK OF THE MONTH
*            3 BIMESTER OF THE YEAR

      BEGIN CASE
         CASE TIPO EQ "1"
            GOSUB CALC1
         CASE TIPO EQ "2"
            GOSUB CALC2
         CASE TIPO EQ "3"
            GOSUB CALC3
         CASE 1
            WEEK = 0
      END CASE
      WEEK = OCONV(WEEK,"MR%2")
      RETURN
CALC1:
      YEAR = OCONV(DATE, 'D4Y')
      GOSUB CALC
      WEEK = INT((DATE - DAY1) / 7) + 1
      IF DATE < DAY1 THEN
         YEAR -= 1
         GOSUB CALC
         WEEK = INT((DATE - DAY1) / 7) + 1
      END ELSE
         IF WEEK = 53 THEN
            YEAR += 1
            GOSUB CALC
            IF DAY1 >= DD0101 THEN WEEK = 1
         END
      END
      RETURN
*---------------------------------------
CALC:
      DATE0101 = ICONV('01.01.' : YEAR, 'D4.') ;
* DATE OF FIRST JANUARY
      DD0101 = OCONV(DATE0101, 'DW') ;
* DAY OF WEEK OF FIRST JANUARY
      IF DD0101 < 4 THEN SHIFT = 1 ELSE SHIFT = 8
      DAY1 = DATE0101 - DD0101 + SHIFT
      RETURN

CALC2:
      WEEK = INT( OCONV(DATE,'DD') / 7 ) + 1
      RETURN
CALC3:
      WEEK = OCONV(DATE,"DQ")
      RETURN​