Foxpro问题：检查日期的有效性

[kylie]

有一张表有两个字段：
sfz （身份证，18位字符串）
birthday （生日，8位字符串，格式YYYYMMDD）

问题：
请检查生日的有效性，不能出现20010229这样非法的日期，
如果出现，将sfz输出到一个文件中去供检查。
不能改变原表。




（46分一定如数奉上！（为什么只能给46分？）可以查本版的已解决问题，
信誉绝对保证，呵呵， 因为是工作上的问题，我没有接触过foxpro
指能这样了，我挣工资你挣分呀）。

[kylie]

to:吃素的狼

我喜欢sql语句，
中间的substr是否要加点东西？
不过执行起来出错：不能识别的命令谓词。请问如何是好？

select * from yourtablename to file c:\errordate.txt ;
where empty(date(val(left(birthday,4)),val(substr((birthday,4，2)),val(right(birthday,2)))) order by sfz

[net_steven]

疏忽了，下面是经过调试的语句：
-------------------------------------------------------------
select * from yourtablename to file c:\errordate.txt ;
where empty(date(val(left(birthday,4)),;
val(substr(birthday,5,2)),;
val(right(birthday,2)))) order by sfz
----------------------------------------------------------

[kylie]

呵呵，我已经解决了！！
将两位高手的思想合并在一起就搞定了！谢谢！

代码如下

SELECT person.sfz, person.birthday, person.name;
FROM person;
WHERE DAY(CTOD(LEFT(birthday,4)+"-"+SUBSTR(birthday,5,2)+"-"+RIGHT(birthday,2))+1) = 0;
ORDER BY person.sfz;
INTO TABLE tmp_birth.dbf


提醒其它想使用此语句的人： 阿祥所设定的日期格式为YYYY-MM-DD,你的foxpro的配置中
日期格式必须是”短格式“才能运行正确哦。

阿祥和吃素的狼一人得一半分你们觉得公平吗？
我想多给分怎么办？
kylie，欢迎您，您的专家分：0、可用分：6080、参与分：528
我有许多分的呀，给不出去。呜呜。

[net_steven]

散分，容易呀！你就象提问题一样多提几个“问题”，只不过标题写“hi,很高兴认识你，nnet_steven(吃素的狼),来领分吧！”，于是我看到帖子就冲进去“回答”了，你看到我的
答案“多谢了！”，就把分派给我了，就这样。看你的分数结构似乎不常来呀！还是常来看看吧，这里还是蛮有意思的。

[kylie]

其实我老早就注册了，以前经常来，但有一年没有来了
可用分可能是最早给的初始分，那时候的分高！哈哈。
我以后没有什么机会用foxpro的
我一直用infomix （在 SCO unix 上）
很高兴认识你

[kylie]

上个问题不及时加分是因为我去吃午饭了，让你久等了！sorry

这个问题我也要加入原有的程序中去检查，请相信我！
你的劳动不会白白付出。

[net_steven]

select * from yourtablename to file c:\errordate.txt ;
where empty(date(val(left(birthday,4)),val(substr((birthday,4)),val(right(birthday,2)))) order by sfz