vb.net - 使用当年的年龄计算

Question

我是一个 VB.NET 初学者，我想问一下如果只在表单的文本框中输入出生年份，如何计算一个人的年龄。我应该使用当年减去出生年份，但我真的没有代码。这就是问题所在：在表单中有一个名为 txtdob 的文本框，用户需要输入他/她的出生年份。我需要一个使用当前年份和输入的出生年份来确定用户年龄的代码。

Answer 1

使用TimeSpan .. 现在减去你的日期 ..

Dim dBirth as Date
Dim nDiff as TimeSpan

dBirth = ........  ' you fill with yours

nDiff = Now.Substract(dBirth)

Msgbox( format(nDiff.Days/365) ) '--------> will show the age ..

Answer 2

使用Integer.ParseorInteger.TryParse然后从 计算它Date.Now：

Dim birthYear As Int32
If Int32.TryParse(txtAge.Text, birthYear) Then
    Dim age As Int32 = Date.Now.Year - birthYear
    MessageBox.Show("Your age is: " & age)
Else
    MessageBox.Show("Please enter a valid year of birth")
End If

Answer 3

没有测试过这个，但它应该让你去......

yyyy 是出生年份....

now.subtract(cdate("0/0/yyyy")).totalyears

干杯

Answer 4

看看 DateDiff 函数。它告诉您两个日期之间的差异，您可以将 DateInterval 指定为 Year，例如

Dim difference As Int = DateDiff(DateInterval.Year, dateOfBirth, currentDate)

资源链接：http: //msdn.microsoft.com/en-us/library/b5xbyt6f (v=vs.80).aspx