ToString().Length
Dim iMin As Integer
Dim igiay As Integer
Dim ims As Integer
Sub runtimeGiay_tick()
iMin = 0
igiay = 0
ims = 0
Do
igiay = igiay + 1
If igiay = 60 Then
igiay = 0
Do
iMin = iMin + 1
If VBA.Strings.Len(VBA.Conversion.CStr(iMin)) = 1 Then
Range("A3").Value = "0" & iMin
Else
Range("A3").Value = iMin
End If
Loop
End If
Loop
End Sub
Sub runtimeMS_tick()
Do
ims = ims + 1
Range("C3").Value = ims
If ims = 100 Then
ims = 0
Loop
End Sub
Option Explicit
Private Declare PtrSafe Function GetTickCount Lib "kernel32" () As Long
Sub bam_gio()
'khai bao bien:
'ims: 1/100 giay
'igiay: 1 giay
'imin: 1 phut
Dim ims, igiay, imin As Integer
Dim temp, t1, t2
'Gan gia tri vao cho bien
ims = 0
igiay = 0
imin = 0
t1 = GetTickCount
'Vong lap imin
Do
Range("a3").Value = imin
Range("b3").Value = igiay
Range("c3").Value = ims
'Gan gia tri cho bien tam thoi temp
temp = GetTickCount
'Vong lap ims, miligiay
Do While ims <= 100
ims = Fix((GetTickCount - temp) / 10) + 1
If Len(CStr(ims)) = 1 Then
Range("c3").Value = "0" & ims
Else
Range("c3").Value = ims
End If
Loop
'Thoat vong lap % giay neu % giay da dat den gia tri 100
'Tuc la luc nay giay se tang them 1 gia tri
ims = 0
igiay = igiay + 1 'Tang them 1 gia tri cua giay
If igiay = 60 Then 'Neu du 60 giay thi se tang them 1 gia tri cua phut
igiay = 0
imin = imin + 1 'tang them 1 gia tri cua phut
End If
Loop Until imin = 1 'Thuc hien vong lap cho toi 1 phut
t2 = GetTickCount
MsgBox (t2 - t1) / 1000, vbInformation, "So giay da thuc hien la: "
End Sub
Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long
Const nIDEvent = 9999
Sub StartTimer()
StopTimer
SetTimer Application.hWnd, nIDEvent, 0.1, AddressOf TimeProc
End Sub
Sub StopTimer()
KillTimer Application.hWnd, nIDEvent
End Sub
Function TimeProc(ByVal H As Long, ByVal nMSG As Long, ByVal nID As Long, ByVal nTsys As Long)
[a1] = [a1] + 1
End Function
Cú pháp hàm:Thầy ơi để 0.1 chạy cho nó "tít"
Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, [COLOR=#ff0000]ByVal uElapse As Long[/COLOR], ByVal lpTimerFunc As Long) As Long
