vb.net算年龄 通过vba编程计算员工的年龄

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 的，有疑问请追问

相关问答

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

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

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

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

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

这个是个警告vb.net算年龄，如果不负责任点vb.net算年龄的话其实可以忽略不管的。

之所以提示这个警告是因为vb.net算年龄你没有对myRow进行初始化。vb.net算年龄你可以这么定义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算年龄我异常详情或者截图，在下无能为力。

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

不是 有 函数嘛？

now() 就是 吧

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

Q4: vb2010的读写文件代码vb.net

Dim name As String = ""

        Dim age As Integer

        name = InputBox("请输入姓名")

        age = InputBox("请输入年龄")

        FileOpen(1, "d:\信息.txt", OpenMode.Append)

        WriteLine(1, name, age)

        FileClose(1)

 FileOpen(1, "d:\信息.txt", OpenMode.Append)

        WriteLine(1, name, age)

        FileClose(1)

        Dim h As String

        Dim j As String

        Dim f As String

        f = ""

        h = ""

        j = ""

        While EOF(1) = False

            f = LineInput(1)  vbCrLf  f

        End While

        FileClose(1)

        MsgBox("姓名"  "  "  "年龄"  vbCrLf  f)

vb.net算年龄的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于通过vba编程计算员工的年龄、vb.net算年龄的信息别忘了在本站进行查找喔。