如何让本机本地时间与internet网络时间同步？

[Persistent8813]

应该如何编程实现呢？
谢谢！

[Persistent8813]

经测试只有　Time.nist.gov NIST　可用，我用的是网通网络
返回串为
53866 06-05-11 06:27:19 50 0 0 580.3 UTC(NIST) *

再次感谢

[netsys2]

网络时间（NTP）服务
网络时间协议（NTP-Network Time Protocol）是由美国德拉瓦大学的David L. Mills教授于1985年提出，是设计用来使Internet上计算机维持相同时间的一种通信协议。该协议可以估算出数据包在Internet上往返延迟，并可独立地估算计算机时钟偏差，从而实现网络上高精准度计算机校时。时间服务器（Time Server）是利用NTP的一种服务器，通过它可以使Internet中计算机维持时间同步。
NTP是一个跨越广域网或局域网的复杂的同步时间协议，它通常可获得毫秒级的时间精度。目前北京大学参与到CERNET时间服务体系中，为校内用户提供最便捷、准确的时间服务。北京大学提供时间服务的服务器为：162.105.129.27，162.105.67.21。
获取时间服务的步骤如下：
1、 在计算机上安装时间服务软件，软件下载在http://www.time.edu.cn；
2、 根据自己计算机的操作系统，下载相应的软件和安装；
3、 为所下载的时间服务软件配置时间服务器地址（如上），配置文档见 http://www.time.edu.cn/doc.htm

[铖邑]

有个时间服务器，你登上去，就可以收到一个当前时间了，然后对这个包进行解析以后，再设置本地时间

[铖邑]

windows带有时间同步功能的。可以在系统里面设置

[netsys2]

从Internet时间服务器获取标准时间
作者:未知 时间:2005-08-07 21:00 出处:编程爱好者网站 责编:My FAQ
摘要：从Internet时间服务器获取标准时间
由于本机系统时间不准确，所以决定从Internet 时间服务器获取标准时间来校正 系统时间，说干就干。

程序设计步骤如下：

1、 新建一个工程；

2、 在窗体上放一个TEdit控件和一个TClientSocket（在Internet页下）控件。TEdit用来显示取得的格林尼治时间转化成北京时间后的时间，TClientSocket用来从Internet 时间服务器获取标准的格林尼治时间；

3、 程序代码如下：

procedure TForm1.FormCreate(Sender: TObject);

begin

ClientSocket1.Host :='tick.usno.navy.mil'; // 美国海军天文台；

ClientSocket1.Port :=13;

ClientSocket1.Open;

end;



procedure TForm1.ClientSocket1Read(Sender: TObject;

Socket: TCustomWinSocket);

var

TempTime: TDateTime;

hh,mm,ss,ms: word;

sTime : string;

begin

sTime := Socket.ReceiveText; // 取得格林尼治时间；

sTime:=Copy(sTime,12,8); // 取得时间部分；

DecodeTime(StrToTime(sTime),hh,mm,ss,ms);

hh:=(hh+8) mod 24; // 转化成北京时间；

TempTime:=EncodeTime(hh,mm,ss,ms);

Edit1.Text :=TimeToStr(TempTime);

end;



4、 编译运行，稍微等几秒钟（和你的网络速度有关，笔者等了大概一秒钟），TEdit控件就显示出了由格林尼治时间转化得到的北京时间。



怎么样？很简单吧。赶快试一下吧！需要说明一点：由于网络延时的缘故，这

个程序得到的时间会和标准时间有几秒的误差，但除非你用来控制火箭的发射，否

则，这无妨大碍。

笔者是从美国海军天文台得到标准时间，你还可以从别的时间服务器上获间，但由于每个时间服务器的时间格式不同，所以在编写程序时要注意作相应的处理。

域名 组织

Clock.sgi.com SGI

Tick.mit.edu 麻省理工学院

Time.nist.gov NIST

[pp616]

http://www.time.ac.cn/stime.asp
那里有个时间服务器。 还有个vb做的校时程序。 可以参考一下。

[Persistent8813]

这么快，谢谢了，下午试试，多谢