[µo°Ý] ¦p¦óÅã¥Üºô¯¸ªº®ÉÄÁ®É¶¡

donod

¦³¨Çºô¯¸¨S¦³Åã¥Üºô¯¸ªº®ÉÄÁ®É¶¡¡A½Ð±Ð¦p¦ó§Q¥ÎVBA¡AÅã¥Ü¥X¥H¤Uºô¯¸ªº®ÉÄÁ®É¶¡¡AÁÂÁÂ!
http://www.mobile01.com/hottopics.php?id=4

jakcy1234

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.     '//±NÀò¨ú¨ìªº®É¶¡Âà´«¬°¥x¥_®É¶¡+8¤p®É
    
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

½Æ»s¥N½X

¦^´_ 1# donod



Âà¦Ûgoogle search ---- Excel-VBA¾Ç²ß-ºô¸ô®É¶¡¨ú±o

donod

¦^´_ 2# jakcy1234
¤Q¤À·PÁ¤j¤jÀ°§U!