获得网络时间
1. java获取网络当前时间
java获取网络时间
try {
URL url = new URL("http://www.bjtime.cn");// 取得资源对象
URLConnection uc = url.openConnection();// 生成连接回对象
uc.connect(); // 发出连接
long ld = uc.getDate(); // 取得网站日期时间
Date date = new Date(ld); // 转换为答标准时间对象
Calendar calendar = Calendar.getInstance();
calendar.setTime(date);
int day = calendar.get(Calendar.DAY_OF_MONTH);
if (day == 6) {
return true;
}
} catch (Exception e) {
e.printStackTrace();
}
2. 怎么获取网络时间
首先，去控制板面那里确保你选择的时区是对的
然后去到 “日期和时间”> 网络时间 > 更变设定
3. 如何获取网络时间 电脑开机自动获取
系统服务项里面有一个 windows time 就是控制与互联网时间同步的 要使他开机运行
4. vb 获取网络时间
下列代码不用任何控件就能从国家授时中心网页获取时间获得网络时间。
Function NetTime(Optional url As String) As String '返回包括时间和日期的字符串
Dim obj, OBJStatus, Retrieval
Dim GetText As String
Dim i As Long
Dim myDate As Date
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
If url = "" Then
url = "http://www.time.ac.cn/stime.asp" '从国家授时中心网页获取时间
End If
'通过下载网页头信息获取网络时间
On Error Goto ToExit
With Retrieval
.Open "Get", url, False, "", ""
.setRequestHeader "If-Modified-Since", "0"
.setRequestHeader "Cache-Control", "no-cache"
.setRequestHeader "Connection", "close"
.Send
If .Readystate <> 4 Then Exit Function
GetText = .getAllResponseHeaders()
i = InStr(1, GetText, "date:", vbTextCompare)
If i > 0 Then '网页下载成功
i = InStr(i, GetText, ",", vbTextCompare)
GetText = Trim(Mid(GetText, i + 1))
i = InStr(1, GetText, " GMT", vbTextCompare)
GetText = Left(GetText, i - 1)
myDate = GetText '字符串变为时间类型
myDate = myDate + #8:00:00 AM# '将时间转化为北京时间
NetTime = myDate '将时间转化为字符串
End If
End With
ToExit:
Set Retrieval = Nothing
Set OBJStatus = Nothing
Set obj = Nothing
End Function
利用上述NetTime函数，可以将本机时间同步到标准时间，误差一般不超过1秒，如果多次运行或加上网络延时校正代码可进一步减少误差。
运行代码后，可以用第三方软件或到国家授时中心网站查看本机时间与标准时间的误差以验证代码的效果，当然更可以用第三方软件来校正电脑时间，这样误差将不超过0.1秒。这是VB中用Time语句设定本机时间无法实现的，因为Time语句的“分辨率”只能达到整秒。
Sub UpDateTime()
Dim sTime as String
sTime=NetTime()
On Error Resume Next
If Stime<>"" Then
Time=sTime
Date=sTime
End If
End Sub
5. asp获取网络时间
网络提供的校时服务器
<%
Function TimeToSecond(Str)'时间转为秒函数
Str = DateDiff("s",Str,"1970-01-01 08:00:00")
TimeToSecond = Str
End Function
Function SecondToTime(Str)'秒转为时间函数
Str = DateAdd("s",Str,"1970-01-01 08:00:00")
SecondToTime = Str
End Function'
'得到北京时间
function getBeijingTime()
SinaHtml=GetURL("https://gss0..com/8aQDcnSm2Q5IlBGlnYG/app?mole=beijingtime")
SinaHtml=Bytes2BStr(SinaHtml)
SinaHtml=cutStr(SinaHtml)
SinaHtml=SecondToTime(SinaHtml)
alltime=split(SinaHtml," ")
getBeijingTime=alltime(1)
End function
'得到北京日期
function getBeijingDate()
SinaHtml=GetURL("https://gss0..com/8aQDcnSm2Q5IlBGlnYG/app?mole=beijingtime")
SinaHtml=Bytes2BStr(SinaHtml)
SinaHtml=cutStr(SinaHtml)
SinaHtml=SecondToTime(SinaHtml)
getBeijingDate=SinaHtml
End function
''截取取回字符串 获得时间的长字符串格式
function cutStr(str)
times=""
times=right(str,15)
times=left(times,10)
cutStr=times
end function
' 二进制转字符串
function bytes2bstr(vin)
strreturn = ""
for i = 1 to lenb(vin)
thischarcode = ascb(midb(vin,i,1))
if thischarcode < &h80 then
strreturn = strreturn & chr(thischarcode)
else
nextcharcode = ascb(midb(vin,i+1,1))
strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode))
i = i + 1
end if
next
bytes2bstr = strreturn
end function
' 获取远程HTML
Function GetURL(url)
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "GET", url, False
.Send
set GetURL=server.CreateObject("adodb.stream")
GetURL = .responseBody
if len(.responsebody)<10 then
response.write "获取远程文件 <a href="&url&" target=_blank>"&url&"</a> 失败。"
response.end
end if
End With
Set Retrieval = Nothing
End Function
response.Write(getBeijingTime()&"<br/>")
response.Write(getBeijingDate())
%>
6. 设置获取网络时间是什么意思
是路由器自动分配给你的动态IP地址，根据路由器品牌不同或设置不同，会在一内段时间内再重新容给你分配刷新一个新的IP，可能是10个小时或24小时或这更长。
通常情况下即使再重新分配，IP也是不变的，路由器一般是从101开始分配，比如192.168.1.101，如果你的路由器就只有你一个电脑就应该是这个IP。
当然如果你重新连接电脑也会再分配一次，估计还是192.168.1.101.
这个不会影响你的上网。
7. VC++如何得到网络时间
什么是网络时间？？？
是指服务器的时间？如果是的话，你要从服务器获取时间，要客户端发送命令去获取，服务器以其本地系统时间作为应答。
8. VB 获取网络时间方法
下面是一个比较完整的获取网络时间的代码，自动判断网络没连接或者连接失败类情况，不用on Error Resume Next：
Private Sub Command1_Click()
Dim obj, OBJStatus, url, GetText, i
Dim Retrieval
url = "http://www.163.com"
'判断网络是否连接
If url <> "" Then
Set Retrieval = GetObject("winmgmts:\\.\root\cimv2")
Set obj = Retrieval.ExecQuery("Select * From Win32_PingStatus Where Address = '" & Mid(url, 8) & "'")
For Each OBJStatus In obj
If IsNull(OBJStatus.StatusCode) Or OBJStatus.StatusCode <> 0 Then
Exit Sub
Else
Exit For '已连接则继续
End If
Next
End If
'通过下载网页头信息获取网络时间
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False, "", ""
.setRequestHeader "If-Modified-Since", "0"
.setRequestHeader "Cache-Control", "no-cache"
.setRequestHeader "Connection", "close"
.Send
If .Readystate <> 4 Then Exit Sub
GetText = .getAllResponseHeaders()
i = InStr(1, GetText, "date:", vbTextCompare)
If i > 0 Then '网页下载成功
i = InStr(i, GetText, ",", vbTextCompare)
GetText = Trim(Mid(GetText, i + 1))
i = InStr(1, GetText, " GMT", vbTextCompare)
GetText = Left(GetText, i - 1)
MsgBox "网络时间:" & GetText
End If
End With
Set Retrieval = Nothing
Set OBJStatus = Nothing
Set obj = Nothing
End Sub
9. 如何获取网络是时间
获取网络时间的方法如下
1、以XP系统为例，在电脑连接互联网的状态下，电脑桌面右回下角鼠标双击答时间，弹出”日我和时间属性“窗口，点击”Internet时间“，在它的界面点击”立即更新“
10. 易语言获取网络时间
需要一个客户组件 客户1.连接(“time-a.timefreq.bldrdoc.gov”,13)'他的返回时间是英国格林威治时间 反馈代码如版下 .版本2 .子程序权_客户1_数据到达.局部变量取回数据,文本型.局部变量时间,文本型,,"0".局部变量日期,文本型,,"3".局部变量sj1,日期时间型 取回数据＝取字节集数据(客户1.取回数据(),#文本型,)时间＝分割文本(取回数据,“”,)日期＝分割文本(时间[2],“-”,)日期[1]＝“20”＋日期[1]sj1＝增减时间(到时间(日期[1]＋“/”＋日期[2]＋“/”＋日期[3]＋“/”＋时间[3]),#小时,8)信息框(sj1,0,)客户1.断开连接()