1、需求:
从身份证号里提取出出生日期、性别。
2、举例:
接着上一次的例子,表格汇总完成后,你又得到了一个任务,需要对表格的数据进行处理,需要增加出生日期、性别。...可是你一看表格,完了,没有收集出生日期、性别这些信息!
难道要重新收集一次?
3、代码实现
身份证编码是有规律的,只要知道了规律,我们就能够从中提取出自己所需要的数据。...= VBA.DateSerial(VBA.CInt("19" & VBA.Mid$(strSFZ, 7, 2)), VBA.CInt(VBA.Mid$(strSFZ, 9, 2)), VBA.CInt...(VBA.CInt(VBA.Mid$(strSFZ, 7, 4)), VBA.CInt(VBA.Mid$(strSFZ, 11, 2)), VBA.CInt(VBA.Mid$(strSFZ, 13, 2...False
End If
End Function
主程序调用这3个函数就可以了,轻松增加出生日期、性别2列数据。