คำนวณอายุงาน การเข้าทำงานของพนักงานแต่ละคน (asp.net, VB)

Dim date1 As New System.DateTime(1996, 6, 3, 22, 15, 0)
Dim date2 As New System.DateTime(1996, 12, 6, 13, 2, 0)
Dim date3 As New System.DateTime(1996, 10, 12, 8, 42, 0)

' diff1 gets 185 days, 14 hours, and 47 minutes.
Dim diff1 As System.TimeSpan = date2.Subtract(date1)

' date4 gets 4/9/1996 5:55:00 PM.
Dim date4 As System.DateTime = date3.Subtract(diff1)

' diff2 gets 55 days 4 hours and 20 minutes.
Dim diff2 As System.TimeSpan = date2 - date3

' date5 gets 4/9/1996 5:55:00 PM.
Dim date5 As System.DateTime = date1 - diff2