Xin code để ô A1 hiển thị ngày tháng năm trên internet (có internet mới chạy) (1 người xem)

[chinghia125]

Mong các anh giúp dùm em viết code để ô A1 của excel hiển thị được ngày tháng năm trên mạng . (Không phải ngày tháng của hệ thống) . Em Xin Cám Ơn .

 

[Hai Lúa Miền Tây]

Mong các anh giúp dùm em viết code để ô A1 của excel hiển thị được ngày tháng năm trên mạng . (Không phải ngày tháng của hệ thống) . Em Xin Cám Ơn .

Bạn test code sau thử nhé:

Sub LayNgayGio()
    Dim http, ThoiGian
    Const strGio As String = "http://wwp.greenwichmeantime.com/time/scripts/clock-8/runner.php?tz=asia_ho_chi_minh"
    Set http = CreateObject("Microsoft.XMLHTTP")
    http.Open "GET", strGio & Now(), False, "", ""
    http.Send
    ThoiGian = http.getResponseHeader("Date")
    ThoiGian = Mid$(ThoiGian, 6, Len(ThoiGian) - 9)
    MsgBox "Ngay gio hien tai la: " & DateAdd("h", 7, ThoiGian)
    [A1] = DateAdd("h", 7, ThoiGian)
End Sub

 

[chinghia125]

Bạn test code sau thử nhé:

Sub LayNgayGio()
    Dim http, ThoiGian
    Const strGio As String = "http://wwp.greenwichmeantime.com/time/scripts/clock-8/runner.php?tz=asia_ho_chi_minh"
    Set http = CreateObject("Microsoft.XMLHTTP")
    http.Open "GET", strGio & Now(), False, "", ""
    http.Send
    ThoiGian = http.getResponseHeader("Date")
    ThoiGian = Mid$(ThoiGian, 6, Len(ThoiGian) - 9)
    MsgBox "Ngay gio hien tai la: " & DateAdd("h", 7, ThoiGian)
    [A1] = DateAdd("h", 7, ThoiGian)
End Sub

Cám ơn anh . Nhưng nó không chạy , em thay đổi ngày trên máy tính thì nó vẫn chạy ngày của máy tính không chạy theo ngày của mạng . Anh giúp thêm dùm em lần nữa nha .

 

[Hai Lúa Miền Tây]

Cám ơn anh . Nhưng nó không chạy , em thay đổi ngày trên máy tính thì nó vẫn chạy ngày của máy tính không chạy theo ngày của mạng . Anh giúp thêm dùm em lần nữa nha .

Tôi thử trên 2 máy, kết quả đúng mà bạn.

 

[chinghia125]

Bạn test code sau thử nhé:

Sub LayNgayGio()
    Dim http, ThoiGian
    Const strGio As String = "http://wwp.greenwichmeantime.com/time/scripts/clock-8/runner.php?tz=asia_ho_chi_minh"
    Set http = CreateObject("Microsoft.XMLHTTP")
    http.Open "GET", strGio & Now(), False, "", ""
    http.Send
    ThoiGian = http.getResponseHeader("Date")
    ThoiGian = Mid$(ThoiGian, 6, Len(ThoiGian) - 9)
    MsgBox "Ngay gio hien tai la: " & DateAdd("h", 7, ThoiGian)
    [A1] = DateAdd("h", 7, ThoiGian)
End Sub

Máy em win 7 . Mong anh giúp dùm em . Em tìm máy ngày nay trên giảiphápexcel và cả trên mạng vẫn không tìm được chỉ thấy chạy trên win XP

 

[Hai Lúa Miền Tây]

Máy em win 7 . Mong anh giúp dùm em . Em tìm máy ngày nay trên giảiphápexcel và cả trên mạng vẫn không tìm được chỉ thấy chạy trên win XP

Tôi đang dùng Win7 32bit và 64bit, thử vẫn bình thường. Nếu chưa được thì bạn có thể thử bằng cách khác ở trang Update ngày giờ của hệ thống qua Internet

 

[chinghia125]

Tôi đang dùng Win7 32bit và 64bit, thử vẫn bình thường. Nếu chưa được thì bạn có thể thử bằng cách khác ở trang Update ngày giờ của hệ thống qua Internet

Em Đọc nhiều lần ở trang này rồi mà không làm được . Anh cố gắng giúp dùm em và tạo sẵn cho em xin 1 file excel , đang chạy được như anh đã làm trên máy anh với . Ngoài cầu cứu từ các anh ra em không biết tìm đâu bây giờ hỏi Tổng Đài 1088 thì tổng đài không biết .
Update ngày giờ của hệ thống qua Internet

 

[Kiều Mạnh]

Em Đọc nhiều lần ở trang này rồi mà không làm được . Anh cố gắng giúp dùm em và tạo sẵn cho em xin 1 file excel , đang chạy được như anh đã làm trên máy anh với . Ngoài cầu cứu từ các anh ra em không biết tìm đâu bây giờ hỏi Tổng Đài 1088 thì tổng đài không biết .
Update ngày giờ của hệ thống qua Internet

MÌnh mới thử Winxp+10 chạy tốt mà.....

 

[chinghia125]

MÌnh mới thử Winxp+10 chạy tốt mà.....hay chỉnh lại ngày ta [TABLE="width: 102"]
[TR]
[TD="align: right"]12/17/2015[/TD]
[/TR]
[/TABLE]

Anh có thử thay đổi ngày giờ trên máy vi tính không .? Cái chính là thay đổi xong nó đổi theo ngày của máy vi tính anh ạ .

 

[Hai Lúa Miền Tây]

Thì đúng rồi còn gì. Ở code trên có hàm NOW(). Hàm này lấy ngày giờ của hệ thống...Bạn thay đổi thì code nó chạy theo là đúng rồi...

Bạn giải thích chưa đầy đủ nhé.

Em Đọc nhiều lần ở trang này rồi mà không làm được . Anh cố gắng giúp dùm em và tạo sẵn cho em xin 1 file excel , đang chạy được như anh đã làm trên máy anh với . Ngoài cầu cứu từ các anh ra em không biết tìm đâu bây giờ hỏi Tổng Đài 1088 thì tổng đài không biết .
Update ngày giờ của hệ thống qua Internet

Lỗi báo vàng đó là lỗi gì vậy bạn?

 

[chinghia125]

Thì đúng rồi còn gì. Ở code trên có hàm NOW(). Hàm này lấy ngày giờ của hệ thống...Bạn thay đổi thì code nó chạy theo là đúng rồi...

Phải vậy không , bỏ hàm NOW() cũng vậy ak ?

 

[chinghia125]

Bạn giải thích chưa đầy đủ nhé.


Lỗi báo vàng đó là lỗi gì vậy bạn?

Thay đổi ngày tháng rồi vào macro run thì no báo không chạy được vì lỗi màu vàng .
Anh nói chạy được vậy có thay đổi ngày của hệ thống không anh . Ý em là thay đổi nó sẽ đổi chứ không phải không chạy được , tại em nói không rõ . Anh giúp dùm em với .

 

[Hai Lúa Miền Tây]

Thay đổi ngày tháng rồi vào macro run thì no báo không chạy được vì lỗi màu vàng .
Anh nói chạy được vậy có thay đổi ngày của hệ thống không anh . Ý em là thay đổi nó sẽ đổi chứ không phải không chạy được , tại em nói không rõ . Anh giúp dùm em với .

Dĩ nhiên tôi đã chỉnh giờ hệ thống rồi mới test. Tôi hỏi là báo lỗi màu vàng là báo cái lỗi gì?

 

[chinghia125]

Dĩ nhiên tôi đã chỉnh giờ hệ thống rồi mới test. Tôi hỏi là báo lỗi màu vàng là báo cái lỗi gì?

Em chỉnh ngày xong thao tác như hình nó ra lỗi .

 

[chinghia125]

Dĩ nhiên tôi đã chỉnh giờ hệ thống rồi mới test. Tôi hỏi là báo lỗi màu vàng là báo cái lỗi gì?

Máy em là máy công ty có sever em không biết có ảnh hưởng gì không .

 

[Hai Lúa Miền Tây]

Máy em là máy công ty có sever em không biết có ảnh hưởng gì không .

Bạn chụp hình sau khi chạy code sau giúp nhé.

Sub LayNgayGio()
    Dim http, ThoiGian
    Const strGio As String = "http://wwp.greenwichmeantime.com/time/scripts/clock-8/runner.php?tz=asia_ho_chi_minh"
    Set http = CreateObject("Microsoft.XMLHTTP")
    http.Open "GET", strGio & Now(), False, "", ""
    http.Send
    ThoiGian = http.getResponseHeader("Date")
    ThoiGian = Mid$(ThoiGian, 6, Len(ThoiGian) - 9)
    MsgBox ThoiGian
    'MsgBox "Ngay gio hien tai la: " & DateAdd("h", 7, ThoiGian)
    '[A1] = DateAdd("h", 7, ThoiGian)
End Sub

 

[chinghia125]

Bạn chụp hình sau khi chạy code sau giúp nhé.

Sub LayNgayGio()
    Dim http, ThoiGian
    Const strGio As String = "http://wwp.greenwichmeantime.com/time/scripts/clock-8/runner.php?tz=asia_ho_chi_minh"
    Set http = CreateObject("Microsoft.XMLHTTP")
    http.Open "GET", strGio & Now(), False, "", ""
    http.Send
    ThoiGian = http.getResponseHeader("Date")
    ThoiGian = Mid$(ThoiGian, 6, Len(ThoiGian) - 9)
    MsgBox ThoiGian
    'MsgBox "Ngay gio hien tai la: " & DateAdd("h", 7, ThoiGian)
    '[A1] = DateAdd("h", 7, ThoiGian)
End Sub

Anh ơi giúp em cho ngày tháng năm , nằm vào ô A1 đi anh .Ô A1 còn hiển thị ngày thay đổi (có thể không cần dùng công thức =today() cũng được chỉ cần Ngày tháng năm trên mạng nằm ở ô A1 thôi . Chạy được rồi thêm vào ô A1 nữa là đẹp luôn . Giúp em thêm tí nữa nha anh .

 

[chinghia125]

Bạn chụp hình sau khi chạy code sau giúp nhé.

Sub LayNgayGio()
    Dim http, ThoiGian
    Const strGio As String = "http://wwp.greenwichmeantime.com/time/scripts/clock-8/runner.php?tz=asia_ho_chi_minh"
    Set http = CreateObject("Microsoft.XMLHTTP")
    http.Open "GET", strGio & Now(), False, "", ""
    http.Send
    ThoiGian = http.getResponseHeader("Date")
    ThoiGian = Mid$(ThoiGian, 6, Len(ThoiGian) - 9)
    MsgBox ThoiGian
    'MsgBox "Ngay gio hien tai la: " & DateAdd("h", 7, ThoiGian)
    '[A1] = DateAdd("h", 7, ThoiGian)
End Sub

Em làm được rồi anh ơi em đổi 1 tí ở code của anh .

Sub LayNgayGio()
Dim http, ThoiGian
Const strGio As String = "http://wwp.greenwichmeantime.com/time/scripts/clock-8/runner.php?tz=asia_ho_chi_minh"
Set http = CreateObject("Microsoft.XMLHTTP")
http.Open "GET", strGio & Now(), False, "", ""
http.Send
ThoiGian = http.getResponseHeader("Date")
ThoiGian = Mid$(ThoiGian, 6, Len(ThoiGian) - 9)
[A1] = ThoiGian
'A1 "Ngay gio hien tai la: " & DateAdd("h", 7, ThoiGian)
'[B1] = DateAdd("h", 7, ThoiGian)
End Sub

 

[Hai Lúa Miền Tây]

Em làm được rồi anh ơi em đổi 1 tí ở code của anh .

Sub LayNgayGio()
Dim http, ThoiGian
Const strGio As String = "http://wwp.greenwichmeantime.com/time/scripts/clock-8/runner.php?tz=asia_ho_chi_minh"
Set http = CreateObject("Microsoft.XMLHTTP")
http.Open "GET", strGio & Now(), False, "", ""
http.Send
ThoiGian = http.getResponseHeader("Date")
ThoiGian = Mid$(ThoiGian, 6, Len(ThoiGian) - 9)
[A1] = ThoiGian
'A1 "Ngay gio hien tai la: " & DateAdd("h", 7, ThoiGian)
'[B1] = DateAdd("h", 7, ThoiGian)
End Sub

Lưu ý là để lấy giờ chính xác thì bạn phải cộng 7h vào thời gian trên.

 

[doveandrose]

theo nhắc nhở của anh HLMT mình viết lại cho người vào sau cần thì xài

Sub LayNgayGio()
    Dim http, ThoiGian
    Const strGio As String = "http://wwp.greenwichmeantime.com/time/scripts/clock-8/runner.php?tz=asia_ho_chi_minh"
    Set http = CreateObject("Microsoft.XMLHTTP")
    http.Open "GET", strGio & Now(), False, "", ""
    http.Send
    ThoiGian = http.getResponseHeader("Date")
    ThoiGian = Mid$(ThoiGian, 6, Len(ThoiGian) - 9)
    [A1] = ThoiGian
    [A1] = DateAdd("h", 7, [A1])
    'MsgBox ThoiGian
End Sub

bài này hài ở chỗ

[A1] = DateAdd("h", 7, [A1])

thì luôn được chấp nhận , còn

[A1] = DateAdd("h", 7, ThoiGian)

thì sẽ bị Type Missmatch ở những máy sử dụng Region tiếng Việt hoặc tiếng Lào