D1={^2012.12.08} D2={^2013.11.25} (Year(D2)-Year(D1))*12+MONTH(D2)-MONTH(D1)

sfzh="123456197801123456" Ctod(Transform(Val(Substr(sfzh,7,8)),"9999-99-99"))

Clear ldDate=Date() lcStr="一,二,三,四,五,六,七,八,九,十,十一,十二,十三,十四,十五,十六,十七,十八,十九,二十,二十一,二十二,二十三,二十四,二十五,二十六,二十七,二十八,二十九,三十,三十一" =Alines(Adate,Chrtran(lcStr,",",Chr(13)+Chr(10))) * 年 ?Chrtranc(Transform(Year(ldDate)),"0123456789","〇一二三四五六七八九")+"年" * 月 ?...

年月日 Transform(Val(Dtos(Date())),"9999年99月99日") 时分秒 Transform(Val(Chrtran(Time(),":","")),"99时99分99秒")

期末日期：Gomonth(Date(Year(Date()),Month(Date()),1),1)-1 当月天数：Day(Gomonth(Date(Year(Date()),Month(Date()),1),1)-1)

'星期'+SUBSTRC('一二三四五六日',Dow(Date(),2)*2-1,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