日期型数据及日期时间型数据为空的赋值

日期型:{} 日期时间型:{/:}
2016-09-07 12:53 | 3506次阅读 | 0评

闰年的判断

ld=DATE(2015,2,29) IF EMPTY(ld) ?"非闰年" ELSE ?"闰年" ENDIF
2016-09-07 12:47 | 2985次阅读 | 0评

身份证号码年龄计算简易公式

此处的年龄指的是周岁 SFZHM="333333201501261111" ?INT((VAL(DTOS(DATE()))-VAL(SUBSTR(SFZHM,7,8)))/10000)
2016-08-13 16:03 | 2706次阅读 | 0评

日期段合并问题

Set Date To Ansi Set Century On Set Safety Off CLOSE DATABASES Create Table tt1 (cname c(6),cyear c(6), Cmonth c(6),nnewsal N (9,2)) Insert Into tt1 Values ("hans", "1998","2",300) Insert Into tt1 Values ("hans", "1998","3",300) Insert Into tt1 Val...
2015-03-22 14:50 | 862次阅读 | 0评

VFP生成指定月份日历的方法二

Clear lnYear=2015 lnMonth=2 lDate1=Date(lnYear,lnMonth,1) && 本月期初日期 lDate2=Gomonth(lDate1,1)-1 && 本月期末日期 lnDay1=Dow(lDate1,2)-1 && 与本周星期一之间相差的天数 lnDay2=lDate2-lDate1+1 && 本月天数 lnDay3=Ceiling((lnDay1+lnDay2)/7)*7 && 日...
2015-03-14 13:04 | 968次阅读 | 0评

VFP生成本月日历的方法

Clear dDate=Date() STORE [] TO CRQ,CRQ1 A=REPLICATE([ ],(DOW(Date(Year(dDate),MONTH(dDate),1),2)-1)*3) ?[本月日历:]+tran(date()) ?[一 二 三 四 五 六 日] FOR I=1 TO Day(GOMONTH(dDate-Day(dDate)+1,1)-1) CRQ=CRQ+IIF(I=1,A,[])+PADL(I,2,[ ])+IIF(DOW(Date(Year(dDate)...
2015-03-13 14:47 | 830次阅读 | 0评

中文时间(十九时五分二十六秒)转换为数字时间(19:05:26)

* 程序功能:中文时间(十九时五分二十六秒)转换为数字时间(19:05:26) * 注:该程序稍加修改可用于中文日期转换为数字日期 lcStr="零,00;一,01;二,02;三,03;四,04;五,05;六,06;七,07;八,08;九,09;十,10;"; +"十一,11;十二,12;十三,13;十四,14;十五,15;十六,16;十七,17;十八,18;十九,19;二十,20;"; +"二十一,21;二十二,22;二十三,23;二十四,24;二十五,25;二十六,26;二十七,27;二十八,28;二十九,2...
2015-03-12 22:42 | 1498次阅读 | 0评

指定日期段中星期一至星期日各有几天

Clear Date1={^2013.05.12} Date2={^2013.06.10} Local AlnDow[7] && 存储星期N的天数 Store 0 To AlnDow Do While Date1<=Date2 Date1=Date1+1 AlnDow[Dow(date1,2)]=AlnDow[Dow(date1,2)]+1 EndDo For lnI=1 To 7 ? "星期"+Substr("一二三四五六日",lnI*2-1,2)+...
2015-03-11 11:43 | 480次阅读 | 0评

倒计时问题

Clear ldDatetime1=DATETIME() ldDatetime2={^2018-06-15 12:00:00} lnSeconds=ldDatetime2-ldDatetime1 && 总秒数 lnDays=Int(lnSeconds/86400) && 天数 lnHours=Int(Mod(lnSeconds,86400)/3600) && 小时 lnSecs=Mod(lnSeconds,3600) && 秒 ?"距2018年...
2015-03-09 12:21 | 441次阅读 | 0评

日期段拆分问题

类似问题:http://bbs.csdn.net/topics/390633445 编程对Table1表的日期数据处理,把日期段分拆,形成Table2的形式。 Create Table Table1 (cname C(10), date1 D, date2 D) Insert Into Table1 Values ("Jack", {^1991-3-...
2015-03-08 15:32 | 708次阅读 | 0评

获取两个日期间相差的月数

D1={^2012.12.08} D2={^2013.11.25} (Year(D2)-Year(D1))*12+MONTH(D2)-MONTH(D1)
2015-02-17 21:56 | 545次阅读 | 0评

身份证号中字符型日期数据,转换为日期型数据

sfzh="123456197801123456" Ctod(Transform(Val(Substr(sfzh,7,8)),"9999-99-99"))
2015-02-17 21:51 | 510次阅读 | 0评

指定日期转换为中文日期

Clear ldDate=Date() lcStr="一,二,三,四,五,六,七,八,九,十,十一,十二,十三,十四,十五,十六,十七,十八,十九,二十,二十一,二十二,二十三,二十四,二十五,二十六,二十七,二十八,二十九,三十,三十一" =Alines(Adate,Chrtran(lcStr,",",Chr(13)+Chr(10))) * 年 ?Chrtranc(Transform(Year(ldDate...
2015-02-17 21:45 | 564次阅读 | 0评

将系统日期时间转换为 9999年99月99日 99时99分99秒

年月日 Transform(Val(Dtos(Date())),"9999年99月99日") 时分秒 Transform(Val(Chrtran(Time(),":","")),"99时99分99秒")
2015-02-17 21:34 | 787次阅读 | 0评

指定日期的期末日期、当月天数

期末日期:Gomonth(Date(Year(Date()),Month(Date()),1),1)-1 当月天数:Day(Gomonth(Date(Year(Date()),Month(Date()),1),1)-1)
2015-02-17 21:23 | 430次阅读 | 0评

获取中文星期

'星期'+SUBSTRC('一二三四五六日',Dow(Date(),2)*2-1,1)
2015-02-17 21:16 | 433次阅读 | 0评

检查年龄是否周岁

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))
2015-02-17 21:07 | 1245次阅读 | 2评

儿童年龄的计算

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 ?"岁数:"+...
2015-02-17 21:05 | 594次阅读 | 0评

一年有多少天

Date(Year(Date()),12,31)-Date(Year(Date()),1,1)+1
2015-02-17 21:01 | 438次阅读 | 0评

本季度的第一天是星期几

Dow(Date(Year(Date()),Ceiling(Month(Date())/3)*3-2,1),2)
2015-02-17 20:57 | 480次阅读 | 0评
浏览172847次
最新评论