Cập nhật thời gian từng giây.

[phuyen89]

Chào mọi người cho em hỏi.Làm sao để thời gian trên Title của Em nó nhảy từng giây,từng phút chứ em làm sao thấy nó thủ công quá.Muon cập nhật phải nhấn Nút lệnh nó mới cập nhật.Chứ bình thường thì đồng hồ hệ thống nhảy mà nó không nhảy gì hết.Xin cảm ơn ah.

 

[ndu96081631]

Thử code này xem:

Private Sub Workbook_Open()
  Dim GT, LB
  Do
    GT = Now + TimeSerial(0, 0, 1)
    LB = "Nguyen Ngoc Chung " & " " & "Ngay " & Day(GT) & " Thang " & Month(GT) & " Nam " & Year(GT) & " Thoi gian:" & Hour(GT) & "h" & " " & Minute(GT) & " phut " & Second(GT) & " s"
    Application.Caption = LB
    DoEvents
  Loop
End Sub

 

[phuyen89]

Thử code này xem:

Private Sub Workbook_Open()
Dim GT, LB
Do
GT = Now + TimeSerial(0, 0, 1)
LB = "Nguyen Ngoc Chung " & " " & "Ngay " & Day(GT) & " Thang " & Month(GT) & " Nam " & Year(GT) & " Thoi gian:" & Hour(GT) & "h" & " " & Minute(GT) & " phut " & Second(GT) & " s"
Application.Caption = LB
DoEvents
Loop
End Sub

Nhò bác xem lại giúp cài bài Kế toán máy của Em sao em Chèn đoạn Code trên thì thành Formating đều bị mờ chức năng.Kiểm tra lại thì em không có khoá Protect gì cả.Do đó không thể In đậm,nghiềng hay các chức năng khác liên quan đến đình dạn.Do phiên bản mới nên tạm thòi chưa biết cách đính kèm File trực tiếp:
http://www.mediafire.com/file/jzummxknc2n/Phuyen89 in GPE.xls

 

[Nguyễn Duy Tuân]

Nhò bác xem lại giúp cài bài Kế toán máy của Em sao em Chèn đoạn Code trên thì thành Formating đều bị mờ chức năng.Kiểm tra lại thì em không có khoá Protect gì cả.Do đó không thể In đậm,nghiềng hay các chức năng khác liên quan đến đình dạn.Do phiên bản mới nên tạm thòi chưa biết cách đính kèm File trực tiếp:
http://www.mediafire.com/file/jzummxknc2n/Phuyen89 in GPE.xls

Không nên dùng kiêủ nhảy thơì gian như chương trình của bạn. Bạn chạy chương trình của bạn và nhấn CTRL + ALT + DELETE xem trong "Windows Task Manager", ở cột CPU sẽ thấy nó chiếm dụng bộ nhớ như thế nào nhé.

 

[PhanTuHuong]

Dùng DoEvents phải thật cẩn thận, vì có thể chương trình bị lỗi.

 

[phuyen89]

Không nên dùng kiêủ nhảy thơì gian như chương trình của bạn. Bạn chạy chương trình của bạn và nhấn CTRL + ALT + DELETE xem trong "Windows Task Manager", ở cột CPU sẽ thấy nó chiếm dụng bộ nhớ như thế nào nhé.

Dạ em không biết nó chiếm dụng như thế nào,nhưng mà em thêm một cái Msgbox là bảng tính của Excel nó đơ hơn 50s sau nó mới hoạt động bình thường được,lăn thanh cuộn lên xuống thường xuất hiện những hiện tượng lạ rồi mới trỏ lại bình thường.Thế thì có cách nào khác cho trường hợp này hay không?

 

[Nguyễn Duy Tuân]

Dạ em không biết nó chiếm dụng như thế nào,nhưng mà em thêm một cái Msgbox là bảng tính của Excel nó đơ hơn 50s sau nó mới hoạt động bình thường được,lăn thanh cuộn lên xuống thường xuất hiện những hiện tượng lạ rồi mới trỏ lại bình thường.Thế thì có cách nào khác cho trường hợp này hay không?

Đây là phương pháp dùng các hàm Windows API: SetTimer, StopTimer

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 'Tuy chon, so > 0

Sub [B]StartTimer[/B]()
    StopTimer
    SetTimer Application.hwnd, nIDEvent, 1000, AddressOf TimeProc
End Sub

Sub [B]StopTimer[/B]()
    KillTimer Application.hwnd, nIDEvent
End Sub

Function TimeProc(ByVal H As Long, ByVal nMSG As Long, ByVal nID As Long, ByVal nTsys As Long)
    On Error Resume Next
    Application.Caption = Now
End Function

Bạn chạy sẽ thấy tối ưu và an toàn.

Nếu muốn chạy bằng mili giây hãy đọc bài: Tặng các bạn ScrollText - Cuộn chữ: lên, xuống, trái phải,...