• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Demo_Code Lấy thời gian thực

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • [Hỏi] Demo_Code Lấy thời gian thực
• Demo_Code Lấy thời gian thực

• RE: Kiểm tra ngày giờ hệ thống

  maidinhdan > 07-09-15, 04:39 PM

  (07-09-15, 04:31 PM)tranhai_vn Đã viết: Cám ơn Bác maidinhdan

  
  Bác hài lòng chưa, có chỗ nào không ôn không?, Hồi nảy Post lộn file RAR nên không thấy file, vừa Upload lại file *.Zip trong bài phía trên rồi.
  
  Các bạn tải lại nhé.
  
  
  Mình khuyến nghị bạn đổi lại tiêu đề là "Demo_Code Lấy thời gian thực"
  
  Thân mến!

• RE: Demo_Code Lấy thời gian thực

  tranhai_vn > 07-09-15, 04:58 PM

  Đã đổi lại tiêu đề để các Bác khác có tìm kiếm cũng dễ hình dung. 
  Trân trọng!

• RE: Demo_Code Lấy thời gian thực

  tranhai_vn > 08-09-15, 11:02 AM

  Bác maidinhdan có thể thêm một bẫy lỗi khi không có internet thì mặc định trở về internettime = now() không?

• RE: Demo_Code Lấy thời gian thực

  maidinhdan > 10-09-15, 12:11 AM

  (08-09-15, 11:02 AM)tranhai_vn Đã viết: Bác maidinhdan có thể thêm một bẫy lỗi khi không có internet thì mặc định trở về internettime = now() không?

  
  Trả lời:
  1. Tạo thêm 1 hàm kiểm tra Internet
  
  

  Mã PHP:

  Public Declare Function InternetGetConnectedState Lib "wininet.dll" _
    (ByRef dwflags As Long, ByVal dwReserved As Long) As Long

Public Function TestInternet() As Boolean
TestInternet = InternetGetConnectedState(0&, 0&)
End Function 


  
  
  2. Gọi hàm
  
  

  Mã PHP:

  Private Sub cmdLaythoigianthuc_Click()
If TestInternet() = True Then
Me.txtthoigianthuc.Value = InternetTime(7)
Else
Me.txtthoigianthuc.Value = Now()
End If
End Sub 


  
  
  Hình minh họa
  
  

  

  
  Đính kèm Demo bổ sung hàm Kiểm tra máy có Internet chưa?

• RE: Demo_Code Lấy thời gian thực

  tranhai_vn > 10-09-15, 10:04 AM

  Cảm ơn Bác rất nhiều. Thân mến

• Lỗi không lấy được thời gian thực từ code

  trangdv.pchg > 21-12-16, 06:53 PM

  Code lấy thời gian thực của bạn maidinhdan chạy báo lỗi:
  Access denied
  Run-time error 80070005
  ai đã chạy được lấy thời gian thực từ Internet xin giúp đỡ mình với ạ!

• RE: Lỗi không lấy được thời gian thực từ code

  ongke0711 > 21-12-16, 09:02 PM

  Bạn sửa 1 đoạn code trong demo của maidinhdan như dưới đây:
  
  Set Request = CreateObject("Microsoft.XMLHTTP") 
  đổi lại ==>
  Set Request = CreateObject("MSXML2.ServerXMLHTTP.6.0")
  
  Cái này là do tính năng bảo mật của PC nên nó chặn không cho bạn truy cập link URL.
• Bài trước Bài tiếp