CLASS-METHODS class_constructor.

CLASS-METHODS s_first_day_of_week
      IMPORTING format_provider TYPE REF TO /ork/if_format_provider DEFAULT /ork/cl_culture_info=>format_provider-current
      RETURNING VALUE(result) TYPE i.

CLASS-METHODS s_get
      IMPORTING num TYPE simple
      RETURNING VALUE(ro_result) TYPE REF TO /ork/cl_week_day.

CLASS-METHODS s_0_to_1_based_day_of_week
      IMPORTING num TYPE simple
      RETURNING VALUE(result) TYPE /ork/if_calendar=>ty_day_of_week.

CLASS-METHODS s_1_to_0_based_day_of_week
      IMPORTING num TYPE simple
      RETURNING VALUE(result) TYPE i.

METHODS name
      IMPORTING format_provider TYPE REF TO /ork/if_format_provider OPTIONAL
      RETURNING VALUE(result) TYPE string.

METHODS number
      RETURNING VALUE(result) TYPE i.

METHODS s_to_string
      IMPORTING num TYPE simple
                !format TYPE csequence DEFAULT ``
                format_provider TYPE REF TO /ork/if_format_provider DEFAULT /ork/cl_culture_info=>format_provider-current
      RETURNING VALUE(result) TYPE string.

TYPES ty_tt TYPE STANDARD TABLE OF REF TO /ork/cl_week_day WITH EMPTY KEY.

BEGIN OF ty_s_week_days,
        monday TYPE REF TO /ork/cl_week_day,
        tuesday TYPE REF TO /ork/cl_week_day,
        wednesday TYPE REF TO /ork/cl_week_day,
        thursday TYPE REF TO /ork/cl_week_day,
        friday TYPE REF TO /ork/cl_week_day,
        saturday TYPE REF TO /ork/cl_week_day,
        sunday TYPE REF TO /ork/cl_week_day,
      END OF ty_s_week_days.

BEGIN OF cm_format,
        "! https://learn.microsoft.com/de-de/dotnet/api/system.globalization.datetimeformatinfo.getshortestdayname?view=net-7.0
        long TYPE c LENGTH 1 VALUE 'L',
        short TYPE c LENGTH 1 VALUE 'S',
        shortest TYPE c LENGTH 1 VALUE 's',
        number TYPE c LENGTH 1 VALUE 'N',
      END OF cm_format.

CLASS-DATA cm TYPE ty_s_week_days READ-ONLY.

DATA my_number TYPE /ork/if_calendar=>ty_day_of_week.

CLASS-DATA st_week_days TYPE ty_tt.