|
2008年09月06日 星期六 [集日] [旧版首页]
|
|
几个有用的日期函数
作者:
发布时间:2005-03-19 >> -收藏本页-
--------------------
获取一个月的最后一天 ldLastDay = GOMONTH(ldMyDate,1)-DAY(GOMONTH(ldMyDate,1)) ---------------- 一个月中有多少天 lnNumOfDays = DAY(GOMONTH(ldMyDate,1)-DAY(GOMONTH(ldMyDate,1))) or if you don't like to type GOMONTH(dDate,1) - dDate -------------------- 日期在一年中的第几天 For example 2/14/2001 is day 45. ldDate = DATE() LnDays = ldDate - DATE(YEAR(ldDate),1,1) + 1 -------------------- 两个日期段是否重叠 function dateindate lparameters td_s01, td_e02, td_s02, td_e02 retuen (between(td_s01,td_s02, td_e02) or between(td_e01,td_s02, td_e02) ; or between(td_s02,td_s01, td_e01) or between(td_e02,td_s01, td_e01)) endfunc |
|