Tạo bộ đếm giờ Timer trong Userform

[duyamadet]

Nhờ các anh giúp đỡ.

Tạo giúp em một Form mẫu có một bộ đếm trong Userform, hiển thị theo thời gian thực (giống đồng hồ Digital),
- Bắt đầu đếm thời gian khi nhấn commandbutton [Start]
- Làm các thao tác/các commandbutton khác mà thời gian vẫn đếm
- Đến khi nhấn commandbutton [Stop] thì dừng thời gian.
(giống như chơi đánh cờ có Timer tính thời gian)

Em cảm ơn.

 

[Bluestar092011]

Nhờ các anh giúp đỡ.

Tạo giúp em một Form mẫu có một bộ đếm trong Userform, hiển thị theo thời gian thực (giống đồng hồ Digital),
- Bắt đầu đếm thời gian khi nhấn commandbutton [Start]
- Làm các thao tác/các commandbutton khác mà thời gian vẫn đếm
- Đến khi nhấn commandbutton [Stop] thì dừng thời gian.
(giống như chơi đánh cờ có Timer tính thời gian)

Em cảm ơn.

Xem thử coi đúng yêu cầu chưa.

 

[Hoàng Nhật Phương]

Xem thử coi đúng yêu cầu chưa.

Mấy cái 'OptionButton' có chức năng gì vậy Bạn? OT tích vào không thấy phản ứng.
Hay nhỉ không thấy Bạn sử dụng 'DoEvents'

 

[Bluestar092011]

Mấy cái 'OptionButton' có chức năng gì vậy Bạn? OT tích vào không thấy phản ứng.
Hay nhỉ không thấy Bạn sử dụng 'DoEvents'

Nó làm cho vui thôi, mục đích là cho người dùng thấy rằng thao tác trên đối tượng khác (kể cả textbox, button) thì thời gian vẫn chạy.

 

[duyamadet]

Xem thử coi đúng yêu cầu chưa.

Cảm ơn bạn,
Thật tuyệt vời.
Bạn có thể chỉnh lại bắt đầu đếm từ 00:00:00 và sau mỗi giây thời gian thực sẽ cộng thêm +1s để thể hiện thời gian trải qua (elapsed time)

 

[giaiphap]

Cảm ơn bạn,
Thật tuyệt vời.
Bạn có thể chỉnh lại bắt đầu đếm từ 00:00:00 và sau mỗi giây thời gian thực sẽ cộng thêm +1s để thể hiện thời gian trải qua (elapsed time)

Chịu khó tính lại chút sẽ được.

 

[Hoàng Nhật Phương]

Chịu khó tính lại chút sẽ được.

Chú @giaiphap ơi, Office của OT 64bit mở bấm nút start sau đó bị lỗi như hình, OT bấm OK thì file đóng lại rồi lại mở ạ:

À trong code đoạn:

#If VBA7 And Win64 Then
...
    Public TimerID As LongPtr
#ElseIf VBA7 Then

Sửa:
Public TimerID As LongPtr
Thành:
Public TimerID As Long
Thì Ok rồi Chú ạ.

 

[befaint]

Khai báo h,m,s thành kiểu Double sẽ được.