View Full Version : سوال: با کدام تابع می شه زمان روشن بودن سیستم رو فهمید؟
javadt
پنج شنبه 19 شهریور 1388, 12:08 عصر
با کدام تابع می شه زمان روشن بودن سیستم رو فهمید؟
gettick count
get local time
با آموزش لطفا
.:KeihanCPU:.
پنج شنبه 19 شهریور 1388, 12: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, 17: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
موفق باشید .
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.