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.）就成本月的最後一天了。