Google Search - Blog...........

ABAP :Report Program To Determine A Leap Year.

report z_leap_year.

parameters:p_year(4) type c .
data: i type i,
j type i,
k type i.

i = p_year mod 4 .
j = p_year mod 100.
k = j mod 2.

if i is initial and k is initial.
write:/ 'this is the leap year'.
else .
write:/ 'this is not a leap year'.

endif.

No comments:

Post a Comment