Vb.net 你如何找到一个人'；给出当前日期和出生日期时的年龄？

我需要做一个程序，你输入当前日期和用户的出生日期，它会给你用户的年龄（天）。我已经看过这部作品很多年了，但几天和几个月似乎都不管用。非常感谢您的帮助

用户的年龄（天）

你可以用

例如我的生日：

Dim currentDate = Date.Now
Dim birthDate = New DateTime(1973, 7, 3)
Dim span As TimeSpan = currentDate - birthDate
Dim days As Int32 = span.Days ' => 14870 omg

请参阅：

代码段：

Public Class Form1
    Dim dt1 As Date
    Dim dt2 As Date
    Dim dt3 As TimeSpan
    Dim diff As Double

    Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
        dt1 = Me.DateTimePicker1.Value.ToShortDateString
        dt2 = Me.DateTimePicker2.Value.ToShortDateString
        dt3 = (dt2 - dt1)
        diff = dt3.Days
        Me.Label1.Text = ("Your Age is " + Str(Int(diff / 365)) + " Year ")
        diff = diff Mod 365
        Me.Label1.Text = Me.Label1.Text + (Str(Int(diff / 30)) + " Month(s)")
        diff = diff Mod 30
        Me.Label1.Text = Me.Label1.Text + (Str(diff) + " Day(s)")
    End Sub


End Class

用于获取从DOB到当前日期的时间，并应用简单公式以获得所需结果

参考文献：

---

对不起，这不起作用。我忘了提到，我使用的是VB 2008快速版。谢谢你的帮助。@DeepSeaProgramming:no problem with.NET3.5（2008）：你有错误吗？我需要程序使用DateTimePicker来工作，我想我可以让它工作，但是picker使用了几个月的文字。你知道如何解决这个问题吗？@DeepSeaProgramming:这不是一个完全不同的问题吗？使用

DateTimePicker.Value

属性获取

DateTime

。谢谢，现在可以使用了。但是有没有办法用秒来计算年龄呢？（ss/mm/hh/dd/mm/yyyy中的日期-dd/mm/yy中的dob）

Public Class Form1
    Dim dt1 As Date
    Dim dt2 As Date
    Dim dt3 As TimeSpan
    Dim diff As Double

    Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
        dt1 = Me.DateTimePicker1.Value.ToShortDateString
        dt2 = Me.DateTimePicker2.Value.ToShortDateString
        dt3 = (dt2 - dt1)
        diff = dt3.Days
        Me.Label1.Text = ("Your Age is " + Str(Int(diff / 365)) + " Year ")
        diff = diff Mod 365
        Me.Label1.Text = Me.Label1.Text + (Str(Int(diff / 30)) + " Month(s)")
        diff = diff Mod 30
        Me.Label1.Text = Me.Label1.Text + (Str(diff) + " Day(s)")
    End Sub


End Class