VFP计算两个日期是几个月零几天

加菲猫的VFP

于 2024-02-22 16:09:51 发布

阅读量146

点赞数

文章标签：数据库

原文链接：https://mp.weixin.qq.com/s?__biz=MzU1NDE4MjcxNw==&mid=2247488823&idx=1&sn=faa98619e190387db814299796cfcefc&chksm=fac646461ab866bfae0e392f68861d055d37cc4bd5c44041858eacce54dda673d78246247e6e&scene=126&sessionid=0

版权

文章详细展示了如何在VFP中进行日期相关的计算，包括起始和结束日期的判断、月天数、月初和月末日期的获取，以及两个日期之间的天数、月数和年数计算。同时提到了VFP的混合开发理念和社群提供的资源与权益。

摘要由CSDN通过智能技术生成

CLEAR 
* 定义两个日期变量
ldStartDate = {^2021-04-08}
ldEndDate   = {^2022-09-30}




*--开始计算日期
IF DAY(ldStartDate)!=1
   jsksrq=ldStartDate -Day(ldStartDate)+1   
ELSE
   jsksrq=ldStartDate 
ENDIF 


*--结束计算日期
jsjsrq=ldEndDate -Day(ldEndDate   )+32-Day(ldEndDate   -Day(ldEndDate   )+32)


IF jsksrq=ldStartDate AND  jsjsrq=ldEndDate   
   nyf=(YEAR(jsjsrq)-YEAR(jsksrq))*12+MONTH(jsjsrq)-MONTH(jsksrq)   
  ?nyf,"月"
ELSE
  *--应扣天数
  nykts=Day(ldStartDate ) - Day(jsksrq) 
  *--应加天数
  nyjts=Day(jsjsrq) - Day(ldEndDate)   
  nyf=(YEAR(jsjsrq)-YEAR(jsksrq))*12+MONTH(jsjsrq)-MONTH(jsksrq)
  IF nyjts<nykts
    nyf=nyf-1
    nyjts=nyjts+(32-Day(jsjsrq-Day(jsjsrq)+32))    
  ENDIF 
  
  ?"月份",nyf
  ?"应扣天数",nykts
  ?"应加天数",nyjts    
  ?nyf,"月",nyjts-nykts,"日"
ENDIF

日期相关计算代码

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)
————————————————


                            版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
                        
原文链接：https://blog.csdn.net/apple_8180/article/details/2436750