計算年齡在幾年，幾個月或幾天在文本框w/datetimepicker

Question

我的問題是我如何計算年齡在另一個文本框中使用datetimepicker？

例如如果用戶選擇一個2014年10月6日的日期假設今天是2014年11月6日，文本框應該顯示「1日」 或者如果用戶選取2014年2月3日，txtbox應顯示「3個月」

這是年

Private Sub BirthDate_ValueChanged(ByVal sender As System.Object, 
     ByVal e As System.EventArgs) Handles BirthDate.ValueChanged 
    txtAge.Text = Fix((DateDiff(DateInterval.Day, BirthDate.Value, Now.Date))/365) & " years" 
End Sub 

在此先感謝我的計算年齡的代碼！

Answer 1

時退房則DateDiff規格：http://msdn.microsoft.com/en-us/library/b5xbyt6f%28v=vs.90%29.aspx

你已經在使用它，但如果你想多年，你不需要通過365天劃分，您可以使用DateInterval.Year。

您可以將同樣的事情應用到其他時間間隔，您需要爲每個時間間隔設置參數。

例如（僞）：

if DateDiff(DateInterval.Day, Birthdate.Value, Now.Date) < 30 
print DateDiff(DateInterval.Day, Birthdate.Value, Now.Date) 

elseif 29 < DateDiff(DateInterval.Day, Birthdate.Value, Now.Date) < 365 
print DateDiff(DateInterval.Month, Birthdate.Value, Now.Date) 

elseif DateDiff(DateInterval.Day, Birthdate.Value, Now.Date) > 365 
print DateDiff(DateInterval.Year, Birthdate.Value, Now.Date) 

我希望這有助於！