[分享]身份证号码知多少

gvntw

以下是引用逆流的鱼在2005-9-14 7:20:00的发言：

我的身份证号码输入后,也是看不到退休日期的,只是显示“#NAME?”的。根据版主所说的“工具—加载宏—分析工具库。”却不能安装；

另外，我在其他的文件这输入下列公式，去不能计算出年龄的正确结果，只能统统显示“1900年1月”。这是为什么？如何解决？

〔　　=IF(R4<>"",DATEDIF(TEXT((LEN(R4)=15)*19&MID(R4,7,6+(LEN(R4)=18)*2),"#-00-00"),TODAY(),"y"),)　〕　－－注：身份证号码在Ｒ4列。

1、那是因为你安装OFFICE时选择了典型安装，没有完全安装。

2、把单元格格式设置常规。

ppyyxx

很好啊。我是退休没有显示出来，但也很不简单了。

ppyyxx

把单元格格式设置常规也不行。[em04]

secowu

真的太棒了，

找到福音了。

非常感谢

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

版主：我现在想做成个生日查询的，麻烦您调试下代码，为什么这个类型不管怎么定义，问题不行：

Sub ChaXun() '按输入的日期起止来查询职员的生日名单 Dim x As Object Dim yy As Object Dim strsql As String

Set x = CreateObject("ADODB.Connection") Set yy = CreateObject("ADODB.Recordset") x.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0';;Data Source=" & ThisWorkbook.FullName strsql = "select * FROM [员工信息表$a2:k] WHERE 生日 between '" & Sheet5.Cells(4, 5) & "' and '" & Sheet5.Cells(4, 7) & "'" yy.Open strsql, x, adOpenStatic, adOpenDynamic Sheet5.Range("a8:z1000").ClearContents Sheet5.[a8].CopyFromRecordset yy

Set yy = Nothing: Set x = Nothing

End Sub

华昕

一个地方有两个地区代码是什么回事呀？

secowu

数据库感觉还不是很齐的

jmhegr

请问gvntw版主：18位身份证号码出生时间大于1900年如为1888年（44072618880606503X）时，则不能返回出生时间和年龄。若要正确返回出生时间和年龄其代码应该怎样写？请赐教。

new-cf6405

能解释一下第18位数字是怎么计算出来的吗？我用手工计算应该怎么算？

comicly

多谢

misty

完善了就精华了