VFP_获得:月天数.月初日期.月末日期及两个日期之间天数.月数.年数(十豆三)

谁都会走 提交于 2020-03-23 06:18:34
ClearldDate=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)

 

标签
易学教程内所有资源均来自网络或用户发布的内容,如有违反法律规定的内容欢迎反馈
该文章没有解决你所遇到的问题?点击提问,说说你的问题,让更多的人一起探讨吧!