標題: [發問] 如何顯示網站的時鐘時間 [打印本頁]

---

作者: donod    時間: 2013-9-10 12:50     標題: 如何顯示網站的時鐘時間

有些網站沒有顯示網站的時鐘時間，請教如何利用VBA，顯示出以下網站的時鐘時間，謝謝!
http://www.mobile01.com/hottopics.php?id=4

---

作者: jakcy1234    時間: 2013-9-10 15:17

1. Sub get_time()
   
2. 
   
3.     Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
   
4.     XmlHttp.Open "Get", "http://tw.yahoo.com/", False
   
5.     XmlHttp.send
   
6.     datetxt = XmlHttp.getResponseHeader("Date")
   
7.     Set XmlHttp = Nothing
   
8.     temdate = Split(datetxt, ",")
   
9.     tempvar = Replace(temdate(1), "GMT", "")
   
10.     temptim = Split(tempvar, " ")
    
11.     Select Case temptim(2)
    
12.     Case "Jan":
    
13.     mon = "01"
    
14.     Case "Feb":
    
15.     mon = "02"
    
16.     Case "Mar":
    
17.     mon = "03"
    
18.     Case "Apr":
    
19.     mon = "04"
    
20.     Case "Mar":
    
21.     mon = "05"
    
22.     Case "Jun":
    
23.     mon = "06"
    
24.     Case "Jul":
    
25.     mon = "07"
    
26.     Case "Aug":
    
27.     mon = "08"
    
28.     Case "Sep":
    
29.     mon = "09"
    
30.     Case "Oct":
    
31.     mon = "10"
    
32.     Case "Nov":
    
33.     mon = "11"
    
34.     Case "Dec":
    
35.     mon = "12"
    
36.     End Select
    
37.     '//將獲取到的時間轉換為台北時間+8小時
    
38.     timeGMT = temptim(3) & "年" & mon & "月" & temptim(1) & "日 " & temptim(4)
    
39.     'timeGMT = CDate(temptim(3) & "年" & mon & "月" & temptim(1) & "日" & temptim(4))
    
40.     GetNetTime = DateAdd("h", 8, timeGMT)
    
41.     Cells(1, 1) = GetNetTime
    
42.     Cells(2, 1) = Now()
    
43. 
    
44. End Sub

複製代碼

回復 1# donod



轉自google search ---- Excel-VBA學習-網路時間取得

---

作者: donod    時間: 2013-9-10 15:41

回復 2# jakcy1234
十分感謝大大幫助!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)