[ali.alfoly]

بعد فترة كبيرة وتجريب اكثر من طريقة حبيت اقدم لكم هذه الطريقة فعلا ممتازة جدا

كود :

     Dim startTime As DateTime = #9/15/1985#

       Dim endTime As DateTime = Date.Now

       Dim span As TimeSpan = endTime.Subtract(startTime)
       Dim txt As String = ("Time Difference (ثواني): " & span.Seconds)
       txt &= vbNewLine & ("Time Difference (الدقائق): " & span.Minutes)
       txt &= vbNewLine & ("Time Difference (ساعات): " & span.Hours)
       txt &= vbNewLine & ("Time Difference (أيام): " & span.Days)
       MsgBox(txt)