vb题 输入身份证根据出生年月日计算年纪，用到两个文本框，一个输入一个输出

Public Class 主窗体

网站建设哪家好，找成都创新互联公司！专注于网页设计、网站建设、微信开发、微信小程序开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了吴兴免费建站欢迎大家使用！

Dim 身份证号码 As String

Dim 生日年份 As String

Dim 生日月份 As String

Dim 生日日期 As String

Dim 生日 As Date

Private Sub 输出生日按钮_Click(sender As Object, e As EventArgs) Handles 输出生日按钮.Click

Try

If 身份证号码输入框.TextLength = 15 Then

身份证号码 = 身份证号码输入框.Text

生日年份 = "19" 身份证号码.Substring(6, 2)

生日月份 = 身份证号码.Substring(8, 2)

生日日期 = 身份证号码.Substring(10, 2)

ElseIf 身份证号码输入框.TextLength = 18

身份证号码 = 身份证号码输入框.Text

生日年份 = 身份证号码.Substring(6, 4)

生日月份 = 身份证号码.Substring(10, 2)

生日日期 = 身份证号码.Substring(12, 2)

Else

MsgBox("请输入正确的身份证号码！", MsgBoxStyle.Information, "身份证号码有误")

身份证号码输入框.SelectAll()

身份证号码输入框.Focus()

Exit Sub

End If

If IsNumeric(生日年份) And IsNumeric(生日月份) And IsNumeric(生日日期) Then

生日 = New Date(生日年份, 生日月份， 生日日期)

End If

生日标签.Text = 生日.ToLongDateString

Catch ex As Exception

MsgBox(ex.Message)

End Try

End Sub

End Class

这是 .NET 的，有疑问请追问

用vb.net连接EXCEL，并进行查询，怎么查询某一年龄段的数据

先将你要的年龄段根据当前日期转换成“出生日期”时间段，然后用

WHERE 出生日期 BETWEEN......AND......

就可以了。注意时间格式要用两个“#“ 括起来。

vb.net获取年，月，日，时，分，秒

不是 有 函数嘛？

now() 就是 吧

取得 后 再 分离出你所需的，分别赋值 就行了，当然 还是 有 函数的

VB.net出现变量“myRow”在赋值前被使用，可能会在运行时导致null引用失常的警告

这个是个警告，如果不负责任点的话其实可以忽略不管的。

之所以提示这个警告是因为你没有对myRow进行初始化。你可以这么定义myRow，这样就不会出现警告了。

Dim dt As DataTable = New DataTable()

dt.Columns.Add("姓名")

dt.Columns.Add("性别")

dt.Columns.Add("年龄")

dt.Columns.Add("联系方式")

dt.Columns.Add("身份证号")

dt.Columns.Add("所选科室")

dt.Columns.Add("所选医生等级")

dt.Columns.Add("病人状态")

Dim myRow As DataRow = dt.NewRow()

上面只是个简单的例子，你可以从DataTable里创建新的DataRow对象。

至于第二个问题的话你没有提供给我异常详情或者截图，在下无能为力。

名称栏目：vb.net算年龄 vb输入年月判断天数
当前链接：http://kswjz.com/article/doijjch.html