من می خوام یک برنامه برای کافی نت بنویسم که ساعت ورود و خروج را بگیر و نرخ استفاده شده را حساب کند من دنبال فرمولی هستم که بتوانم متغیری که ساعت ها را از هم کم کند ÷یدا کنم لطفا کمک کنید
سلام:
برايه گرفتن زمان قبل و بعد و همچنين تفريق اشون از API استفاده کن
مقدار زمانی که Windows شما فعال هست توسط API:
کد:
Public Declare Function GetTickCount Lib "kernel32" () As Long
گرفته میشه...
زمان شروع رو یک بار بگیرید . بار بعد پایان. اینها رو از هم کم کنید... و توسط این Function که همین الان مُردم تا نوشتم اش تبدیل به مقدار زمانی ایش کنید :
کد:
Public Function GetThisTime(ByVal timein As Long) As String
Dim conH As Integer
Dim conM As Integer
Dim conS As Integer
Dim remTime As Long
Dim strRetTime As String
remTime = timein / 1000
conH = Int(remTime / 3600)
remTime = remTime Mod 3600
conM = Int(remTime / 60)
remTime = remTime Mod 60
conS = remTime
If conH > 0 Then
strRetTime = Trim(Str(conH)) & ":"
Else
strRetTime = ""
End If
If conM >= 10 Then
strRetTime = strRetTime & Trim(Str(conM))
ElseIf conM > 0 Then
strRetTime = strRetTime & "0" & Trim(Str(conM))
Else
strRetTime = strRetTime & "00"
End If
strRetTime = strRetTime & ":"
If conS >= 10 Then
strRetTime = strRetTime & Trim(Str(conS))
ElseIf conS > 0 Then
strRetTime = strRetTime & "0" & Trim(Str(conS))
Else
strRetTime = strRetTime & "00"
End If
GetThisTime = strRetTime
End Function
یک Module باز کنید .
این دوتا کد رو توش بزارید و بعد به این صورت ازش استفاده کنید :
کد:
Dim SDate, EDate As Long
Private Sub Command1_Click()
SDate = GetTickCount
End Sub
Private Sub Command2_Click()
EDate = GetTickCount
Text2.Text = GetThisTime(EDate - SDate)
End Sub
با تشكر از شما دوست عزيز كه زحمت كشيد و اين كد را در اختيار من گذاشتيد اگر امكان دارد مي خواستم ببينم كه آيا مي توانيم فايل كمپايل شده را در اختيار من بگذاريد يا نه
ممنون مي شوم
