[Abu Ehab]

الســـــــلام عليكم ...

لطـــــرح التــــواريخ : أعطيـــــــــــك مثــــــــــــــال :::::

Dim D As TimeSpan = DateTimePicker1.Value - DateTimePicker2.Value
TextBox2.Text = D.Days.ToString

---

حكــــــــاية الــــــــــوقت :

Dim birthday As New DateTime(10 / 10 / 2013)
Dim ts As TimeSpan = DateTime.Now.Subtract(birthday.AddDays(2))

Dim years As Integer, months As Integer, days As Integer, hours As Integer, minutes As Integer, seconds As Integer

months = 12 * (DateTime.Now.Year - birthday.Year) + (DateTime.Now.Month - birthday.Month)

If DateTime.Now.Day < birthday.Day Then
months -= 1
days = DateTime.DaysInMonth(birthday.Year, birthday.Month) - birthday.Day + DateTime.Now.Day
Else
days = DateTime.Now.Day - birthday.Day
End If

years = Math.Floor(months / 12)
months -= years * 12

hours = ts.Hours
minutes = ts.Minutes
seconds = ts.Seconds

Label3.Text = " Hours " & hours
Label4.Text = " Minutes " & minutes
Label5.Text = " Secounds " & seconds

---

على فكـــــــرة :

المحـــــــــرر الخاص بالمنتـــــــــدى قــــــــرب ينـــــرفزني وبالعافية بتعامل معـــــــــــاه ...

حج أبوليـــــــــــث : شــــــــــــــوفلك حـــــــــل مـــــــــعاه ..الله يخــــليك ...