*&---------------------------------------------------------------------*
*& Report  ZLR_LIB_BASIC_07_DATE_TIME
*&
*&---------------------------------------------------------------------*
*& Description:
*&   Date and Time Operations
*&
*& Technical description:
*&
*& More Information:
*&
*&---------------------------------------------------------------------*
*& Change log:-
*& Date       Author        Action
*& xxxx-xx-xx ABAP_ACADEMY  Created
*&
*&---------------------------------------------------------------------*

REPORT  zaa_demo_basic_07_date_time.

*-----------------------------------*
* DECLARATIONS

CONSTANTS:
  gc_midnight_time      TYPE syuzeit VALUE '240000',
  gc_1_hour_in_seconds  TYPE i VALUE 3600.

DATA:
  gv_first_day_in_month      TYPE sydatum,
  gv_first_day_in_next_month TYPE sydatum,
  gv_last_day_in_month       TYPE sydatum,
  gv_current_time            TYPE syuzeit,
  gv_hours_to_midnight       TYPE i,
  gv_minutes_to_midnight     TYPE i,
  gv_seconds_to_midnight     TYPE i,
  gv_shifted_date            TYPE sydatum.

*-----------------------------------*
* MAIN LOGIC

" Date calculations
WRITE: / 'Current date: ', 40 sy-datum.


WRITE: / 'Date after 30 days: ', 40 gv_shifted_date.

" First day of current month

WRITE: / 'First day in month is: ', 40 gv_first_day_in_month.

" First day of next month

WRITE: / 'First day of next month is: ', 40 gv_first_day_in_month.

" Last day in current month

WRITE: / 'Last day in current month is: ', 40 gv_first_day_in_month.

" First day in year
" Last day in year

" Time Calculations
gv_current_time = sy-uzeit.
WRITE: / 'Current time: ', 40 gv_current_time.

" Time left to midnight (hours, minutes and seconds)

WRITE: / 'Remaining time till midnight: ', gv_hours_to_midnight, ' hours, ', gv_minutes_to_midnight, ' minutes, ', gv_seconds_to_midnight, ' seconds'.