如何用VB编根据输入的生日精确计算某人的年龄

Dim date1, date2 As Date '注意，还有一个类型是data的，刚才我都看错啦！

站在用户的角度思考问题，与客户深入沟通，找到内江网站设计与内江网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：做网站、成都网站建设、企业官网、英文网站、手机端网站、网站推广、主机域名、网络空间、企业邮箱。业务覆盖内江地区。

date1 = t1.Text '从文本框输入日前 如 1985-06-29

date2 = Date '获取系统时间作对比

L1.Caption = DateDiff("yyyy", date1, date2)

datediff的用法

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中怎样制作一个小程序。要求输入出生日期的时间,就能得到目前的年龄、出生？

这个只要做一个窗体中包含三个文本框，用于输入出身的年月日，然后计算当前年龄，就要判断，如果现在的月份大约出生的月份，或现在的月份等于出生月份并且现在的日大于出生日，年龄就等于今年的年份减去出生年份，否则就等于这个值再减去一。

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

不是 有 函数嘛？

now() 就是 吧

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

在vb.net中，DateDiff（）函数是有什么用的？又是怎么用的？

DateDiff 函数

返回 Variant (Long) 的值，表示两个指定日期间的时间间隔数目。

语法

DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])

DateDiff 函数语法中有下列命名参数：

部分 描述

interval 必要。字符串表达式，表示用来计算date1 和 date2 的时间差的时间间隔

Date1□date2 必要；Variant (Date)。计算中要用到的两个日期。

Firstdayofweek 可选。指定一个星期的第一天的常数。如果未予指定，则以星期日为第一天。

firstweekofyear 可选。指定一年的第一周的常数。如果未予指定，则以包含 1 月 1 日的星期为第一周。

设置

interval 参数的设定值如下：

设置 描述

yyyy 年

q 季

m 月

y 一年的日数

d 日

w 一周的日数

ww 周

h 时

n 分钟

s 秒

firstdayofweek 参数的设定值如下：

常数 值 描述

vbUseSystem 0 使用 NLS API 设置。

vbSunday 1 星期日（缺省值）

vbMonday 2 星期一

vbTuesday 3 星期二

vbWednesday 4 星期三

vbThursday 5 星期四

vbFriday 6 星期五

vbSaturday 7 星期六

常数 值 描述

vbUseSystem 0 用 NLS API 设置。

vbFirstJan1 1 从包含 1 月 1 日的星期开始（缺省值）。

vbFirstFourDays 2 从第一个其大半个星期在新的一年的一周开始。

vbFirstFullWeek 3 从第一个无跨年度的星期开始。

说明

DateDiff 函数可用来决定两个日期之间所指定的时间间隔数目。例如，可以使用 DateDiff 来计算两个日期之间相隔几日，或计算从今天起到年底还有多少个星期。

为了计算 date1 与 date2 相差的日数，可以使用“一年的日数”(y) 或“日”(d)。当 interval 是“一周的日数”(w) 时，DateDiff 返回两日期间的周数。如果 date1 是星期一，DateDiff 计算到 date2 为止的星期一的个数。这个数包含 date2 但不包含 date1。不过，如果 interval 是“周”(ww)，则 DateDiff 函数返回两日期间的“日历周”数。由计算 date1 与 date2 之间星期日的个数而得。如果 date2 刚好是星期日，则 date2 也会被加进 DateDiff 的计数结果中；但不论 date1 是否为星期日，都不将它算进去。

如果 date1 比 date2 来得晚，则 DateDiff 函数的返回值为负数。

firstdayofweek 参数会影响使用时间间隔符号 “W” 或 “WW” 计算的结果。

如果 date1 或 date2 是日期文字，则指定的年份成为该日期的固定部分。但是，如果 date1 或 date2 用双引号 (" ") 括起来，且年份略而不提，则在每次计算表达式 date1 或 date2 时，当前年份都会插入到代码之中。这样就可以书写适用于不同年份的程序代码。

在计算 12 月 31 日和来年的 1 月 1 日的年份差时，DateDiff 返回 1 表示相差一个年份，虽然实际上只相差一天而已。

当前文章：vb.net计算年龄,vb编写出生日期计算年龄
转载注明：http://scyanting.com/article/phdgji.html