本文主要是介绍VFP_获得：月天数.月初日期.月末日期及两个日期之间天数.月数.年数(十豆三)，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！
Clear
ldDate=Date()
ldDateB={^2004/02/29}
ldDateE={^2005/02/28}
*--月天数
?"月天数",32-Day(ldDate-Day(ldDate)+32)
*--月初日期
?"月初日期",ldDate-Day(ldDate)+1
?"月初日期",Date(Year(ldDate),Month(ldDate),1)
*--月末日期
?"月末日期",Gomonth(ldDate-Day(ldDate)+1,1)-1
?"月末日期",Gomonth(ldDate,1)-Day(Gomonth(ldDate,1))
?"月末日期",ldDate-Day(ldDate)+32-Day(ldDate-Day(ldDate)+32)
?"月末日期",Date(Year(Gomonth(ldDate,1)),Month(Gomonth(ldDate,1)),1)-1
*--两个日期之间天数(Max是防止ldDateE小于ldDateB)
?"两个日期之间天数",Max(ldDateE-ldDateB,0)
*--两个日期之间月数(Max是防止ldDateE小于ldDateB)
?"两个日期之间月数",Max((Year(ldDateE)-Year(ldDateB))*12+Month(ldDateE)-(Month(ldDateB)+Iif((Day(ldDateE)<Day(ldDateB) And Day(ldDateE+1)>1),1,0)),0)
*--两个日期之间年数,可以用于计算年龄(Max是防止ldDateE小于ldDateB)
?"两个日期之间年数",Max(Year(ldDateE)-Year(ldDateB)-Iif(Gomonth(ldDateB,(Year(ldDateE)-Year(ldDateB))*12)>ldDateE,1,0),0)
?"两个日期之间年数",Max(Int(((Year(ldDateE)-Year(ldDateB))*12+Month(ldDateE)-(Month(ldDateB)+Iif((Day(ldDateE)<Day(ldDateB) And Day(ldDateE+1)>1),1,0)))/12),0)
这篇关于VFP_获得：月天数.月初日期.月末日期及两个日期之间天数.月数.年数(十豆三)的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！
