15-12-18, 04:56 AM
بعد فترة كبيرة وتجريب اكثر من طريقة حبيت اقدم لكم هذه الطريقة فعلا ممتازة جدا
كود :
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)