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)