مدت زمان روشن بودن كامپيوتر به صورت ساعت ، دقيقه و ثانيه

[ΛΛ Θ l-l $ Σ Ω]

سلام دوستان
مدت زمان روشن بودن كامپيوتر به صورت ساعت ، دقيقه و ثانيه رو مي خواستم .
به صورت دقيقه اي تو سايت هست اما من به صورت ساعت ، دقيقه و ثانيه مي خوام

[Payman62]

سلام.
بیا این با دقت در حد میلی ثانیه.

کد:

Private Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long

[shahram_g]

از دستور بالا استفاده كن عددي رو كه بهت ميده اين بلا رو سرش بيار:
اگه عددت از 3600000 بزرگتر بود به اين عدد تقسيم كن .خارج قسمت صحيح عدد ساعت روشن بودن سيستمه.
اگه بهقيمانده همين تقسيم بالا بزرگتر از 60000 بود بر اين عدد تقسيم كن كه مقدار صحيح خارج قسمت دقيقه رو بهت ميده.
اگه بقيمانده تقسيم بالا رو ديدي از 1000 بيشتره به 1000 تقسيم كن كه مقدار صحيح خارج قسمت به ثانيه است و باقيماندشم به ميلي ثانيه.

[ΛΛ Θ l-l $ Σ Ω]

نتونستم....
مي شه خودتون اينو بنويسيد.

[shahram_g]

اين هم برنامه:

کد:

Private Declare Function GetTickCount Lib "kernel32" () As Long


Private Sub Form_Load()
Dim hour As Integer
Dim min As Integer
Dim second As Integer
Dim time1 As Long

time1 = GetTickCount

If time1 > 3600000 Then
   hour = Int(time1 / 3600000)
   time1 = time1 Mod 3600000
End If

If time1 > 60000 Then
    min = Int(time1 / 60000)
    time1 = time1 Mod 60000
End If

If time1 > 1000 Then
    second = Int(time1 / 1000)
    time1 = time1 Mod 1000
End If

Text1.Text = hour & ":" & min & ":" & second

End Sub

[ΛΛ Θ l-l $ Σ Ω]

آقا شهرام دستت درد نكنه.

[__siavash__]

منم قبلا همچین کدی رو نوشته بودم
یه تکست باکس رو فرمت بذار اینم کپی کن توش

کد:

Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long

Private Sub Form_Load()
ConvertToSaat (GetTickCount)
End Sub
Private Function ConvertToSaat(ByVal CurrentTime As Long)
Dim Hour As Long
Dim Min As Long
Dim Sec As Long

Sec = Int(CurrentTime / 1000) Mod 60
Min = Int(CurrentTime / 60000) Mod 60
Hour = Int(CurrentTime / 3600000) Mod 60
Text1.Text = Hour & ":" & Min & ":" & Sec
End Function