Year(Date())-Year(DDate)+IIF(MONTH(Date())-MONTH(DDate)<0,-1,IIF(Day(Date())-Day(DDate)>=0,0,-1))
Clear
出生日期={^2014.01.01}
当前日期={^2014.11.22}
lnM=0
If Day(当前日期)>=Day(出生日期)
天数=Day(当前日期)-Day(出生日期)+1
Else
lnM=-1
天数=Gomonth(当前日期,1)-当前日期+Day(当前日期)-Day(出生日期)+1
EndIf
总月数=(Year(当前日期)-Year(出生日期))*12+(Month(当前日期)-Month(出生日期))+lnM
?"岁数:"+Padl(Int(总月数/12),2," ")+" 岁"
?"月数:"+...
Date(Year(Date()),12,31)-Date(Year(Date()),1,1)+1
Dow(Date(Year(Date()),Ceiling(Month(Date())/3)*3-2,1),2)
Date()-Dow(Date(),2)+1
Date()-Date(Year(Date()),1,1)+1