15-12-18, 04:56 AM
(آخر تعديل لهذه المشاركة : 15-12-18, 04:57 AM {2} بواسطة 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)