检查年龄是否周岁

Year(Date())-Year(DDate)+IIF(MONTH(Date())-MONTH(DDate)>0,0,IIF(Day(Date())-Day(DDate)>=0,0,-1)) 改为 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
浏览205798次
最新评论
  • cstdio:ooooooo
  • sdta:从VFP入手也不错
  • yuanhouwen:尊敬的sdta大神:作为一个编程外行,看到你关于操控EXCEL的编程程序我觉得特别神奇,想向你...