VFP 愛用者社區 首頁 VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
 
 常見問題常見問題   搜尋搜尋   會員列表會員列表   會員群組會員群組   會員註冊會員註冊 
 個人資料個人資料   登入檢查您的私人訊息登入檢查您的私人訊息   登入登入

如何做到同步 "中原標準時間及日期"
前往頁面 1, 2  下一頁
 
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區
上一篇主題 :: 下一篇主題  
發表人 內容
LiChingLin



註冊時間: 2006-04-19
文章: 59


第 1 樓
發表發表於: 星期三 十月 02, 2013 4:37 am    文章主題: 如何做到同步 "中原標準時間及日期" 引言回覆
如何做到同步 "中原標準時間及日期"
回頂端
檢視會員個人資料 發送私人訊息
bx1166



註冊時間: 2011-12-06
文章: 273


第 2 樓
發表發表於: 星期三 十月 02, 2013 9:27 am    文章主題: 引言回覆
現在的xp vista win7 win8 不都有自動網路校對時間了嗎?
回頂端
檢視會員個人資料 發送私人訊息
garfield
Site Admin


註冊時間: 2003-01-30
文章: 2157


第 3 樓
發表發表於: 星期三 十月 02, 2013 9:43 am    文章主題: 引言回覆
可以執行 國家時間與頻率標準實驗室 的 網路校時軟體
_________________
利用>>搜尋<<的功能會比問的還要快得到答案.
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件
syntech



註冊時間: 2003-05-16
文章: 4212
來自: Taipei,Taiwan

第 4 樓
發表發表於: 星期三 十月 02, 2013 11:55 am    文章主題: 引言回覆
應該已經做不到了.

現在沒有"中原標準時間",
只有"台灣時間","台灣標準時間" XD


------
http://zh.wikipedia.org/wiki/%E5%9C%8B%E5%AE%B6%E6%A8%99%E6%BA%96%E6%99%82%E9%96%93
台灣各廣播電台、電視台在報時時曾使用「中原標準時間」一詞，是依據1947年中華民國政府頒訂之《全國標準時間推行辦法》時區規定；2000年代陳水扁政府上台之後，「中原標準時間」名稱越來越少被使用，而大多以「台灣時間」或不帶政治、地域色彩的「現在時間」取代，又中廣新聞網本未採納標檢局將報時說法改掉的建議，直至2007年1月12日中午[4]起才以「現在時間」取代「中原標準時間」作整點報時。
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問

請聯絡我們,也許我們幫得上忙
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件 AIM Address
LiChingLin



註冊時間: 2006-04-19
文章: 59


第 5 樓
發表發表於: 星期三 十月 02, 2013 7:49 pm    文章主題: 引言回覆
查到了標準時間的位置了.不知道對不對?
http://59.124.196.84/
time.stdtime.gov.tw
可是不知道如何連線校正
是用 net time ... 嗎?
可是用不出來
回頂端
檢視會員個人資料 發送私人訊息
elleryq



註冊時間: 2007-06-21
文章: 768


第 6 樓
發表發表於: 星期三 十月 02, 2013 11:59 pm    文章主題: 引言回覆
前面幾樓其實都把答案講完了，我相信你可能沒仔細看，現整理如下：
1. 三樓：請用 NTP client，google "國家時間與頻率標準實驗室" ，該網站有軟體可以下載。http://www.stdtime.gov.tw/chinese/home.aspx
2. 二樓：請用 Windows 內建的 NTP 校時設定，XP 的話，滑鼠右鍵按下右下角的時間，然後我記得是在第二個頁籤吧~有登入公司網域的話，有可能這個頁籤會被禁止使用，因為在登入 AD 網域時，就會自動對時。
回頂端
檢視會員個人資料 發送私人訊息 參觀發表人的個人網站
jerryclt



註冊時間: 2009-03-10
文章: 334
來自: 佛心來的

第 7 樓
發表發表於: 星期四 十月 03, 2013 12:11 am    文章主題: 引言回覆
小弟用下圖的設定自動更新,
撥電話號碼: 117 報時台,
分秒不差!
回頂端
檢視會員個人資料 發送私人訊息
garfield
Site Admin


註冊時間: 2003-01-30
文章: 2157


第 8 樓
發表發表於: 星期四 十月 03, 2013 9:44 am    文章主題: 引言回覆
原來樓主在 2006年就已經被這個問題困擾了很久.

google有搜尋到可以抓取 http://www.beijing-time.org/time.asp 傳回的現在時刻來校正本機時間.
如果依照這樣的方式 http://www.stdtime.gov.tw/chinese/home.aspx 也有顯示國家標準時間, 用台灣的網站對我們來說比較不會有lag的問題.
_________________
利用>>搜尋<<的功能會比問的還要快得到答案.
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件
syntech



註冊時間: 2003-05-16
文章: 4212
來自: Taipei,Taiwan

第 9 樓
發表發表於: 星期四 十月 03, 2013 10:15 am    文章主題: 引言回覆
要自己搞的話,這篇可以參考:
http://space.itpub.net/7419833/viewspace-498384
執行下列內容的批次檔
代碼:

@echo off
echo autor OAK
@echo off
echo --------------------------------
@echo off
echo setup time resync every one hour
@echo off
REG ADD HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W32Time\TimeProviders\NtpClient /v SpecialPollInterval /t REG_DWORD /d 3600 /f
@echo off
echo --------------------------------
echo setup w32time auto startup
@echo off
REG ADD HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W32Time /v Start /t REG_DWORD /d 2 /f
@echo off
echo --------------------------------
@echo off
set /p TimeServer= Please Input The Time Server IP:     <= 注意這裡要改
net time /setsntp:%TimeServer%
net stop w32time
net start w32time
w32tm /resync

_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問

請聯絡我們,也許我們幫得上忙
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件 AIM Address
syntech



註冊時間: 2003-05-16
文章: 4212
來自: Taipei,Taiwan

第 10 樓
發表發表於: 星期四 十月 03, 2013 10:23 am    文章主題: 引言回覆
其實還可以找到好幾篇利用os排程+批次檔+網路校時小程式的網路校時方式.

http://ezpost.pixnet.net/blog/post/8289209

http://blog.miniasp.com/post/2009/06/How-to-adjust-Time-using-Windows-Time-Service.aspx



----
通常我如果用 "foxpro + xxxx" 找不到作法的時候,
會改用 "vb + xxxx " 來找.
然後最後再用 "windows + xxxx "," c + xxxx"
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問

請聯絡我們,也許我們幫得上忙
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件 AIM Address
ezpos



註冊時間: 2011-04-20
文章: 323


第 11 樓
發表發表於: 星期六 二月 28, 2015 6:42 pm    文章主題: 引言回覆
garfield 寫到:
原來樓主在 2006年就已經被這個問題困擾了很久.

google有搜尋到可以抓取 http://www.beijing-time.org/time.asp 傳回的現在時刻來校正本機時間.
如果依照這樣的方式 http://www.stdtime.gov.tw/chinese/home.aspx 也有顯示國家標準時間, 用台灣的網站對我們來說比較不會有lag的問題.


這兩個網址不能用了
_________________
ezPos收銀機 簡單好用低成本 http://www.ezpos.info
全新美觀的POS收銀機.POS軟硬體耗材.
軟體客制化.網站規劃....能賺錢的都可以找我

http://www.twelife.com 台灣生活網
回頂端
檢視會員個人資料 發送私人訊息 參觀發表人的個人網站
oldbb



註冊時間: 2007-02-28
文章: 83


第 12 樓
發表發表於: 星期六 二月 28, 2015 9:36 pm    文章主題: 引言回覆
代碼:
*
* 網絡時間同步
*
SET TALK OFF
CLEAR

*szNtpIP   = "132.163.4.101"
*szNtpIP   = "132.163.4.102"
szNtpIP   = "132.163.4.103"
*szNtpIP   = "128.138.140.44"
ddNtpPort = 13

_UTC2Current(_GetNetTime(szNtpIP, ddNtpPort))
RETURN

FUNCTION _UTC2Current(szUTC)
    LOCAL stTimeUTC, stTimeZoneInfo, stTimeCurrent
    LOCAL ddYear, ddMonth, ddDay, ddHour, ddMinute, ddSecond

    IF EMPTY(szUTC)
        RETURN
    ENDIF
   
    DECLARE LONG GetTimeZoneInformation          IN Kernel32 STRING@
    DECLARE LONG SystemTimeToTzSpecificLocalTime IN Kernel32 STRING@, STRING@, STRING@
    DECLARE LONG SetLocalTime                    IN Kernel32 STRING@

    stTimeZoneInfo = REPLICATE(0h00, 172)
    stTimeCurrent  = REPLICATE(0h00, 16)
   
    ddYear   = INT(VAL(SUBSTR(szUTC, 8, 2))) + 2000
    ddMonth  = INT(VAL(SUBSTR(szUTC, 11, 2)))
    ddDay    = INT(VAL(SUBSTR(szUTC, 14, 2)))
    ddHour   = INT(VAL(SUBSTR(szUTC, 17, 2)))
    ddMinute = INT(VAL(SUBSTR(szUTC, 20, 2)))
    ddSecond = INT(VAL(SUBSTR(szUTC, 23, 2)))

    stTimeUTC = BINTOC(ddYear,   "2RS");
              + BINTOC(ddMonth,  "2RS") + 0h0000;
              + BINTOC(ddDay,    "2RS");
              + BINTOC(ddHour,   "2RS");
              + BINTOC(ddMinute, "2RS");
              + BINTOC(ddSecond, "2RS")
             
    GetTimeZoneInformation(@stTimeZoneInfo)
    SystemTimeToTzSpecificLocalTime(@stTimeZoneInfo, @stTimeUTC, @stTimeCurrent)
   
    IF SetLocalTime(@stTimeCurrent) != 0
        ddYear   = CTOBIN(SUBSTR(stTimeCurrent, 1, 2), "2RS")
        ddMonth  = CTOBIN(SUBSTR(stTimeCurrent, 3, 2), "2RS")
        ddDay    = CTOBIN(SUBSTR(stTimeCurrent, 7, 2), "2RS")
        ddHour   = CTOBIN(SUBSTR(stTimeCurrent, 9, 2), "2RS")
        ddMinute = CTOBIN(SUBSTR(stTimeCurrent,11, 2), "2RS")
        ddSecond = CTOBIN(SUBSTR(stTimeCurrent,13, 2), "2RS")
       
        MESSAGEBOX("時鐘在 "+;
                    TRANSFORM(ddYear)+"/"+TRANSFORM(ddMonth)+"/"+TRANSFORM(ddDay)+" "+;
                    TRANSFORM(ddHour)+":"+TRANSFORM(ddMinute)+":"+TRANSFORM(ddSecond)+;
                    " 同步成功")
    ELSE
        MESSAGEBOX("時鐘同步失敗，試以管理員身份執行。")
    ENDIF
ENDFUNC

FUNCTION _GetNetTime(szNtpIP, ddNtpPort)
    LOCAL stWsaData, stSockAddr, szBuffer, dhSocket
    LOCAL i, ddLen

    DECLARE LONG WSAStartup  IN "Ws2_32" LONG, STRING@
    DECLARE LONG WSACleanup  IN "Ws2_32"
    DECLARE LONG socket      IN "Ws2_32" LONG, LONG, LONG
    DECLARE LONG connect     IN "Ws2_32" LONG, STRING@, LONG
    DECLARE LONG recv        IN "Ws2_32" LONG, STRING@, LONG, LONG
    DECLARE LONG closesocket IN "Ws2_32" LONG
    DECLARE LONG inet_addr   IN "Ws2_32" STRING@
    DECLARE LONG htons       IN "Ws2_32" LONG

    stWsaData  = REPLICATE(0h00, 398)
    szBuffer   = REPLICATE(0h00, 256)
    stSockAddr = REPLICATE(0h00, 16)
       
    stSockAddr = 0h0200;
               + BINTOC(htons(ddNtpPort), "2RS");
               + BINTOC(inet_addr(@szNtpIP), "4RS");
               + REPLICATE(0h00, 8)

    WSAStartup(0x202, @stWsaData)
    dhSocket = socket(2, 1, 6)
    ddLen  = 0
    IF connect(dhSocket, @stSockAddr, LEN(stSockAddr)) != -1
        FOR i = 1 TO 3
            ddLen = recv(dhSocket, @szBuffer, LEN(szBuffer), 0)
            IF ddLen != -1
               EXIT
            ENDIF
        ENDFOR
    ENDIF
    closesocket(dhSocket)
    WSACleanup()
    IF ddLen > 0
        szBuffer = LEFT(szBuffer, ddLen)
        RETURN szBuffer
    ELSE
        MESSAGEBOX("網絡連接異常，時鐘同步失敗。")
        RETURN ""
    ENDIF
ENDFUNC
回頂端
檢視會員個人資料 發送私人訊息
garfield
Site Admin


註冊時間: 2003-01-30
文章: 2157


第 13 樓
發表發表於: 星期一 三月 02, 2015 10:47 am    文章主題: 引言回覆
國家時間與頻率標準實驗室 公佈欄
引言回覆:

NTP服務中time, tock, clock因校時請求過多，頻寬不足，請多改用tick與watch伺服器

近日來多人反映校時伺服器無法連上，經查為伺服器對外頻寬不足所致。

目前NTP 服務對外總頻寬已拓展為4M之光纖網路，暫時應可應付目前網友之需求。

目前中華電信提供下列NTP伺服器

tock.stdtime.gov.tw
watch.stdtime.gov.tw
time.stdtime.gov.tw
clock.stdtime.gov.tw
tick.stdtime.gov.tw

另外建議各公司自行設置第二階NTP伺服器（與本實驗室或其他國家時頻實驗室校時，再提供內部網路對時），以節省網路頻寬。

_________________
利用>>搜尋<<的功能會比問的還要快得到答案.
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件
LiChingLin



註冊時間: 2006-04-19
文章: 59


第 14 樓
發表發表於: 星期五 三月 06, 2015 12:06 am    文章主題: 引言回覆
回 oldbb
程式執行時有錯誤...
...
stWsaData = REPLICATE(0h00, 398)
...
我的是 vfp6 sp5
回頂端
檢視會員個人資料 發送私人訊息
oldbb



註冊時間: 2007-02-28
文章: 83


第 15 樓
發表發表於: 星期五 三月 06, 2015 7:40 am    文章主題: 引言回覆
不好意思！沒說清楚。
是VFP9的代碼，VFP6不适用。
回頂端
檢視會員個人資料 發送私人訊息
從之前的文章開始顯示:   
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區 所有的時間均為 台北時間 (GMT + 8 小時)
前往頁面 1, 2  下一頁
第1頁(共2頁)

 
前往:  
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案


Powered by phpBB © 2001, 2005 phpBB Group
正體中文語系由 phpbb-tw 維護製作