ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

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

  1. Sub get_time()

  2.     Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
  3.     XmlHttp.Open "Get", "http://tw.yahoo.com/", False
  4.     XmlHttp.send
  5.     datetxt = XmlHttp.getResponseHeader("Date")
  6.     Set XmlHttp = Nothing
  7.     temdate = Split(datetxt, ",")
  8.     tempvar = Replace(temdate(1), "GMT", "")
  9.     temptim = Split(tempvar, " ")
  10.     Select Case temptim(2)
  11.     Case "Jan":
  12.     mon = "01"
  13.     Case "Feb":
  14.     mon = "02"
  15.     Case "Mar":
  16.     mon = "03"
  17.     Case "Apr":
  18.     mon = "04"
  19.     Case "Mar":
  20.     mon = "05"
  21.     Case "Jun":
  22.     mon = "06"
  23.     Case "Jul":
  24.     mon = "07"
  25.     Case "Aug":
  26.     mon = "08"
  27.     Case "Sep":
  28.     mon = "09"
  29.     Case "Oct":
  30.     mon = "10"
  31.     Case "Nov":
  32.     mon = "11"
  33.     Case "Dec":
  34.     mon = "12"
  35.     End Select
  36.     '//±NÀò¨ú¨ìªº®É¶¡Âà´«¬°¥x¥_®É¶¡+8¤p®É
  37.     timeGMT = temptim(3) & "¦~" & mon & "¤ë" & temptim(1) & "¤é " & temptim(4)
  38.     'timeGMT = CDate(temptim(3) & "¦~" & mon & "¤ë" & temptim(1) & "¤é" & temptim(4))
  39.     GetNetTime = DateAdd("h", 8, timeGMT)
  40.     Cells(1, 1) = GetNetTime
  41.     Cells(2, 1) = Now()

  42. End Sub
½Æ»s¥N½X
¦^´_ 1# donod



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

TOP

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

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD