طرح الزمن(الوقت)

أخي الكريم هشام

كل عام أنت ومن تحب بكل خير

هذه دالة كنت قد صممتها لمثل هذا الغرض

إن أعجبتك يمكنك استخدامها

Function time_diff(oldd As Date, newd As Date) As String
Hours = Hour(newd) - Hour(oldd)
If Minute(newd) < Minute(oldd) Then
Hours = Hours - 1
Minutes = (Minute(newd) + 60) - Minute(oldd)
Else
Minutes = Minute(newd) - Minute(oldd)
End If
If Second(newd) < Second(oldd) Then
Minutes = Minutes - 1
Seconds = (Second(newd) + 60) - Second(oldd)
Else
Seconds = Second(newd) - Second(oldd)
End If
time_diff = Hours & " ساعة و " & Minutes & " دقيقة و " & Seconds & " ثانية"
End Function

السلام عليكم ورحمة الله وبركاته...........وكل عام وانتم بخير ...اعاده الله عبى الجميع بالخير واليمن والبركات..

شكرا لكم على المساعده ....وبارك الله فيكم ...وجعلها في ميزان حسناتكم ....اللهم امين