盒子论坛 v2.1

var
  s:string;//用于存放身份证号码，第七位开始生日四位年两位月两位日
  i:integer;
  d:string;//用于记录生日的字符串
   d1:date;//用于记录生日
begin
  d:='';
  for i:=6 to 9 do
  begin
    d:=d+s[i];
    end;
  d:=d+'-';
for i:=10 to 11 do
  begin
    d:=d+s[i];
  end;
     d:=d+'-';
  for i:=12 to 13 do
     d:=d+s[i];
  d1:=strtodate(d);
end;
此外还何以使用相关函数
----------------------------------------------
lz_oyhq

作者：

cxjkx (想飞的菜鸟)	★☆☆☆☆	-
	盒子活跃会员

2004/4/2 22:35:06

2楼：

我去试一下先，谢谢
----------------------------------------------
-

作者：

liuyue19 (liuyue)	★☆☆☆☆	-
	普通会员

2004/4/4 14:27:24

3楼：

你可以在做字符转日期之前加上检查语句
if d1:=strtodate(d) then
else
showmessage(' 你的身份证号码错误')；

----------------------------------------------
-

作者：

liuyue19 (liuyue)	★☆☆☆☆	-
	普通会员

2004/4/4 14:28:20

4楼：

你可以在做字符转日期之前加上检查语句
if d1:=strtodate(d) then
else
begin
showmessage(' 你的身份证号码错误');
exit;
end;

----------------------------------------------
-

作者：

shyh (沐曦)	★☆☆☆☆	-
	盒子活跃会员

2004/4/9 14:55:53

5楼：

身份证分15位和18位的
----------------------------------------------
-

信息

登陆以后才能回复