社区
数据库(包含打印,安装,报表)
帖子详情
如何实现从身份证得知出生年月的问题!?
sksk
2003-10-10 09:10:13
我想只输入身份证号码就可以在下面显示出生年、月、日?
出生年的名称是txtyear,出生月是txtmonth,出生日是txtday.
身分证是txtpersonalid.
我想先能计算出身份证的位数,如果是15位,则txtyear就是“19”+身份证的第六个第七个数字
帮帮我吧!!!
...全文
38
5
打赏
收藏
如何实现从身份证得知出生年月的问题!?
我想只输入身份证号码就可以在下面显示出生年、月、日? 出生年的名称是txtyear,出生月是txtmonth,出生日是txtday. 身分证是txtpersonalid. 我想先能计算出身份证的位数,如果是15位,则txtyear就是“19”+身份证的第六个第七个数字 帮帮我吧!!!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
sksk
2003-10-10
打赏
举报
回复
谢谢,我给分了!
of123
2003-10-10
打赏
举报
回复
dim n as integer
dim strDate as string
n = len(txtpersonalid)
if n <> 15 and n <> 18 then
msgbox "身份号码位数不正确!"
txtpersonalid.setfocus
exit sub
end if
strDate = left(iif(n = 15, "19", "") & mid(txtpersonalid, 7, 8), 8)
txtyear = left(strDate, 4)
txtmonth = mid(strdate, 3, 2)
txtday = right(strDate, 2)
if not isdate(txtyear & "-" & txtmonth & "-" & txtday) then
txtyear = ""
txtmonth = ""
txtday = ""
msgbox "身份号码中日期部分不正确!"
txtpersonalid.setfocus
end if
txlicenhe
2003-10-10
打赏
举报
回复
if len(txtpersonalid) = 15 then
txtyear = '19'+mid(txtpersonalid,7,2)
txtmonth = mid(txtpersonalid,9,2)
txtday = mid(txtpersonalid,11,2)
else
txtyear = mid(txtpersonalid,7,4)
txtmonth = mid(txtpersonalid,11,2)
txtday = mid(txtpersonalid,13,2)
end
射天狼
2003-10-10
打赏
举报
回复
本示例使用 Mid 语句来得到某个字符串中的几个字符。
Dim MyString, FirstWord, LastWord, MidWords
MyString = "Mid Function Demo" 建立一个字符串。
FirstWord = Mid(MyString, 1, 3) ' 返回 "Mid"。
LastWord = Mid(MyString, 14, 4) ' 返回 "Demo"。
MidWords = Mid(MyString, 5) ' 返回 "Funcion Demo"。
射天狼
2003-10-10
打赏
举报
回复
Mid 函数
返回 Variant (String),其中包含字符串中指定数量的字符。
语法
Mid(string, start[, length])
Mid 函数的语法具有下面的命名参数:
部分 说明
string 必要参数。字符串表达式,从中返回字符。如果 string 包含 Null,将返回 Null。
start 必要参数。为 Long。string 中被取出部分的字符位置。如果 start 超过 string 的字符数,Mid 返回零长度字符串 ("")。
length 可选参数;为 Variant (Long)。要返回的字符数。如果省略或 length 超过文本的字符数(包括 start 处的字符),将返回字符串中从 start 到尾端的所有字符。
说明
欲知 string 的字符数,可用 Len 函数。
注意 MidB 函数作用于字符串中包含的字节数据。因此其参数指定的是字节数,而不是字符数。
支持快速录入的
身份证
管理程序(c语言版)
身份证
管理系统
身份证
信息的录入,查找,删除,写入文件 支持快速录入,仅录入
身份证
号,就可以
得知
出生地区,
出生年月
日和性别。
身份证
号校验 V2018.rar
第七、十四位表示
出生年月
日(单数字月日左侧用0补齐)。其中年份用四位数字表示,年、月、日之间不用分隔符。 第十五、十七位表示顺序码。对同地区、同年、月、日出生的人员编定的顺序号。其中第十七位奇数分给男性...
checking-ID-number.rar_汇编语言_Asm_
前6位是地址码.7--14位是
出生年月
日后面4位是生成的代码第17位用来做性别判定:偶数 -- 女 奇数--- 男 .第十八位数字的计算方法为: 1.将前面的
身份证
号码17位数分别乘以不同的系数。从第一位到第十七位的系数分别为...
Python输入
身份证
号如何输出
出生年月
?怎么用Python提取
身份证
号输出出生日期?
到此这篇关于Python输入
身份证
号如何输出
出生年月
?3、获取
身份证
中的年月日,要知道在一个
身份证
号中,第7-10位表示的是年份,11-12是月份,12-14表示的是日期。实例中,获取性别时,用到了if语句求偶数的方法,将...
server sql 将出生日期转为年龄_sql server 根据
身份证
号计算出生日期和年龄的存储过程...
我这边有一个业务,需要客户填写
身份证
号,自动计算他的出生日期和年龄在sql中,具体的存储过程
实现
是这样的:/***********************************************根据
身份证
号计算出生日期和年龄Date:2017-10-15...
数据库(包含打印,安装,报表)
1,216
社区成员
55,954
社区内容
发帖
与我相关
我的任务
数据库(包含打印,安装,报表)
VB 数据库(包含打印,安装,报表)
复制链接
扫一扫
分享
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章