How can I determine whether a year is a leap year or not? (year 2004, 2008 etc.)

In ABAP it would be quite easy as you can calculate with dates!

Code:

DATA: mydate TYPE d.
mydate = '20040301'.
mydate = mydate - 1.
IF mydate+6(2) = '29'.
  WRITE 'A leap year'.
ELSE.
  WRITE 'No leap year'.
ENDIF.
 
You see the function module ' LEAP_DAYS_BETWEEN_TWO_DATES' or FIMA_LEAP_DAYS_BETWEEN_2_DATES.

This function module also using the same logic.
see the code..below..

Code:
FUNCTION FIMA_LEAP_DAYS_BETWEEN_2_DATES.
*"-------*"             VALUE(I_DATUM_VON) LIKE  VTBBEWE-DBERVON
*"       EXPORTING
*"             VALUE(E_TAGE)
*"----------------------------------------------------------------------

  STATICS: JAHR     TYPE I,
           TAGE_VON TYPE I,
           TAGE_BIS TYPE I.

*___ Schalttage für das Datum-von ____________________________________*

  IF I_DATUM_VON+4(2) < CON_MARCH.
    JAHR = I_DATUM_VON+0(4) - 1.
  ELSE.
    JAHR = I_DATUM_VON+0(4).
  ENDIF.

  TAGE_VON = JAHR DIV 4 - JAHR DIV 100 + JAHR DIV 400.

*___ Schalttage für das Datum-bis ____________________________________*

  IF I_DATUM_BIS+4(2) < CON_MARCH.
    JAHR = I_DATUM_BIS+0(4) - 1.
  ELSE.
    JAHR = I_DATUM_BIS+0(4).
  ENDIF.
[b]
  TAGE_BIS = JAHR DIV 4 - JAHR DIV 100 + JAHR DIV 400.[/b]

*___ Schalttage zwischen Datum-von und Datum-bis _____________________*

  E_TAGE = TAGE_BIS - TAGE_VON.
ENDFUNCTION.

Back to ABAP Menu:
ABAP Example Hints and Tips

Return to :-
SAP Hints and Tips on Configuration and ABAP/4 Programming