Office中国论坛/Access中国论坛

标题: 从身份证前两位数字判断省份该如何写代码？ [打印本页]

作者: kdxdx 时间: 2006-6-22 23:06
标题: 从身份证前两位数字判断省份该如何写代码？
这是代码表。

代码名称       代码    名称
11    北京市       43    湖南省
12    天津市       44    广东省
13    河北省       45    广西壮族自治区
14    山西省       46    海南省
15    内蒙古自治区 50    重庆市
21    辽宁省       51    四川省
22    吉林省       52    贵州省
23    黑龙江省       53    云南省
31    上海市       54    西藏自治区
32    江苏省       61    陕西省
33    浙江省       62    甘肃省
34    安徽省       63    青海省
35    福建省       64    宁夏回族自治区
36    江西省       65    新疆维吾尔自治区
37    山东省       71    台湾省
41    河南省       81    香港特别行政区
42    湖北省       82    澳门特别行政区

作者: andymark 时间: 2006-6-22 23:46
if left(身份证,2)=11 then

msgbox "北京市"

end if

作者: kdxdx 时间: 2006-6-23 00:24
Public Function SfzToJG(身份证号 As String) As String
Dim i As Integer

If Left(身份证号, 2) = 11 Then SfzToJG = "北京"
End If

If Left(身份证号, 2) = 36 Then SfzToJG = "江西"
End If

End Function

我想通过在身份证前两位数字判断省份，并将省份（如“北京”）自动输入到籍贯里。就像判断性别一样。

上面的代码请帮我改改。谢谢了。

作者: sgrshh29 时间: 2006-6-23 00:32
Public Function SfzToJG(身份证号 As String) As String
SfzToJG = dlookup("名称","代码表","代码='" & Left(身份证号, 2) & "'")
End Function

作者: kdxdx 时间: 2006-6-23 01:08
谢谢蜘蛛侠，功能都达到了。

作者: suve 时间: 2006-6-23 02:37
并非身份证就能代表籍贯的

比如籍贯湖南的人,在美国出生,广东孩子,到哈尔滨才办身份证,

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)