PDA

View Full Version : سوال: با کدام تابع می شه زمان روشن بودن سیستم رو فهمید؟



javadt
پنج شنبه 19 شهریور 1388, 11:08 صبح
با کدام تابع می شه زمان روشن بودن سیستم رو فهمید؟
gettick count
get local time
با آموزش لطفا

.:KeihanCPU:.
پنج شنبه 19 شهریور 1388, 11:53 صبح
این رو تو ماژول بذار

Public Declare Function timeGetTime Lib "winmm.dll" () As Long

اینم تو فرم اصلی:

Private Sub Form_Load()
A = timeGetTime / 1000
Text1.Text = A
End Sub

butterfly8528
پنج شنبه 19 شهریور 1388, 16:32 عصر
سلام دوست عزیز .

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



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



موفق باشید .