ABAP中如何得到一個月的最後一天

   在网上看到一篇是关于如何获取给定日期的那个月的最后一天日期,思路很特定,不象我之前写的要判断大小月,还要判断是否是闺年。

實現此問題前,我們先看下大家都明白一個小腦筋急轉彎。“問在一年裡那個月有28天?答案是每個月都有28天”,是呀又不是問那個月可能只有28天,這樣的話答案就是二月了,如此我們對此問題可以借用此筋急轉彎處理,請看下面代碼:

PARAMETERS P_DATUM TYPE SY-DATUM OBLIGATORY. WRITE:/ P_DATUM. P_DATUM+6(2) = '28'. P_DATUM = P_DATUM + 5. P_DATUM+6(2) = '01'. P_DATUM  = P_DATUM - 1. WRITE:/ P_DATUM .

對於參數P_DATUM不管輸入那天的日期,我們都把他的日期改成當月的28(P_DATUM+6(2) = '28'.),上面的筋急轉彎我們知道一定會存在28號的,這個日期就是本月的28,但不一定是本月最後一天,由筋急轉彎我們同樣可知无论那個月都一定會有1號,而1號減1就是上個面的最後一天了,如我們只要把本月28號變成下月就可以了,大家都知道對於一個月1~28是必有的,本月28號到下月1號最多4天,最少1天,28號到下月的28號最多31天,最少28天,所以我們做個交集可以知道,本月的28號加上4~28一定是下個月的1~28號,所以只要把本月28号加上4~28(P_DATUM = P_DATUM + 5.)就在下月了,再把日改成01(P_DATUM+6(2) = '01'.)就是1號了,再減去1(P_DATUM  = P_DATUM - 1.)就成本月的最後一天了。

原文地址:https://www.cnblogs.com/hanmos/p/3016336.html