今天早上突然要用到一個計算某月有多少天的函數，翻了半天沒找到系統自帶著中函數，于是動手寫了一個，如下：
**返回某個月有多少天
FUNCTION HowMonthDay()
PARAMETERS cDate
LOCAL Days as Integer ,Years as Integer
IF !TYPE("cDate")=="D"
MESSAGEBOX("參數類型不正確，應該為日期型","系統提示！")
RETURN
ENDIF
Days=IIF(INLIST(MONTH(cDate),1,3,5,7,8,10,12),31,30)
**閏年計算方法
Years=YEAR(cDate)
IF MONTH(cDate)==2
Days = IIF(Years%400==0 OR (Years%4==0 AND Years%100<>0),29,28)
ENDIF
RETURN Days
ENDFUNC

后來鄭宇大哥給我提供了一個返回月底的函數。如下：
PROCEDURE EDOM
* FUNCTION: 返回本月月底
* M.L.Y 1998.8.8
PARAMETERS DATE_TODAY
PRIVATE ALL
SET DATE TO ANSI
SET CENTURY ON
IF MONTH(DATE_TODAY) < 12
RETURN CTOD(STR(YEAR(DATE_TODAY),4,0) + "." ;
+ STR(MONTH(DATE_TODAY)+1,2,0) + ".01") - 1
ELSE
RETURN EDOY(DATE_TODAY)
ENDIF

思量了半天發現返回月底可能還要簡單一點,我改進了一下：
cDate=Date()
??cDate+(32-DAY(cDate))-DAY(cDate+(32-DAY(cDate)))
最后用這個思路改進了一下返回某月有多少天的函數，如下：
FUNCTION HowMonthDay()
PARAMETERS cDate
LOCAL Days as Integer
IF !TYPE("cDate")=="D"
MESSAGEBOX("參數類型不正確，應該為日期型","系統提示！")
RETURN
ENDIF
Days=DAY(cDate+(32-DAY(cDate))-DAY(cDate+(32-DAY(cDate))))
RETURN Days
ENDFUNC
其實最重要的只有一句：Days=DAY(cDate+(32-DAY(cDate))-DAY(cDate+(32-DAY(cDate))))
也不用管閏年平年了，省事。
要是返回月底，那這句改為：cDate+(32-DAY(cDate))-DAY(cDate+(32-DAY(cDate))) 即可
原理就是根據增加值來計算當月的下一個月超出幾天，然后減去幾天就是當月的最后一天了。

來自 “ ITPUB博客 ” ，鏈接：http://blog.itpub.net/7178747/viewspace-161527/，如需轉載，請注明出處，否則將追究法律責任。

轉載于:http://blog.itpub.net/7178747/viewspace-161527/

總結

以上是生活随笔為你收集整理的关于日期天数计算的函数(转)的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。