獲得網路時間
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.斷開連接()