السلام عليكم ورحمة الله وبركاته

إخواني وأحبابي في الله
أقدم لكم كود يقوم بحساب الوقت المنقضي منذ أن قمت بتشغيل الجهاز ..
صراحةً الحاجة أم الاختراع .. سبب بحثي عن الكود هو أنني وجدت شخصاً قد قام بتشغيل الجهاز الخاص بي ولم يقم بإغلاقه ، فأردت أن أعرف ما هي المدة التي قضاها الشخص المتطفل على جهازي .. فقمت بالبحث عن كود لفعل ذلك ، وأحببت مشاركتكم الكود

يوضع الكود في موديول عادي ..
وتظهر رسالة بموعد بدء تشغيل الجهاز والرسالة التالية بالوقت المنقضي

#If VBA7 Then
    Private Declare PtrSafe Function GetTickCount Lib "kernel32" () As Long
#Else
    Private Declare Function GetTickCount Lib "kernel32" () As Long
#End If

Function LastBootTime() As Date
    LastBootTime = Now - (GetTickCount / 1000 / 86400)
End Function

Sub Test_UDFs()
    MsgBox LastBootTime()
    MsgBox Format(GetTickCount() / 86400000, "HH:MM:SS")
End Sub

ر ابط الملف من هنا

كان معكم أخوكم / ياسر خليل أبو البراء