13518219792
form 的load事件中加一句：timer1.interval=1000
創新互聯建站主營余慶網站建設的網絡公司,主營網站建設方案,重慶APP開發,余慶h5微信平臺小程序開發搭建,余慶網站營銷推廣歡迎余慶等地區企業咨詢
在一個按鈕里面加入一句觸發timer事件開始計時的代碼：
timer1.enabled=true
timer的tick事件中加入這么兩句：
textbox1.backcolor=color.red
timer1.enabled=false
Dim?obj,OBJStatus?As?Object,url?As?String,GetText?As?String,i?As?Integer
Dim?Retrieval
url=""
'判斷網絡是否連接
If?url""Then
Retrieval=GetObject("winmgmts:\\.\root\cimv2")
obj=Retrieval.ExecQuery("Select*FromWin32_PingStatusWhereAddress='"Mid(url,8)"'")
For?Each?OBJStatus?In?obj
If?IsNothing(OBJStatus.StatusCode)?Or?OBJStatus.StatusCode0?Then
Exit?Sub
Else
Exit?For'已連接則繼續
End?If
Next
End?If
'通過下載網頁頭信息獲取網絡時間
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.Readystate4?Then?Exit?Sub
GetText=.getAllResponseHeaders()
i=InStr(1,GetText,"date:",vbTextCompare)
If?i0?Then'網頁下載成功
i=InStr(i,GetText,",",vbTextCompare)
GetText=?Trim(Mid(GetText,i+1))
i=InStr(1,GetText,"GMT",vbTextCompare)
GetText=GetText.Substring(0,i-1)'??Left(GetText,i-1)
MsgBox?("網絡時間:"GetText)
End?If
End?With
Retrieval=Nothing
OBJStatus=Nothing
obj=Nothing
使用datediff函數
textbox3.text=datediff("d","textbox1.text","textbox2.text")
說明一下：
“d”表示“天”
還可以用“y”,"m","d","h","n","s"
分別表示“年”“月”“日”“時”“分”“秒”
Dim?a?As?DateTime?=?#18:10:50#
Dim?b?As?DateTime?=?#17:05:40#
Dim?c?As?TimeSpan?=?a.Subtract(b)
Console.WriteLine(c.ToString)
最后那句是控制臺的輸出，反正c是兩個時間段的間隔，隨你怎么弄
在你對日期/時間進行格式化時，控制面板中的地區與語言選項部分的設置會影響你所得到的結果。那些設置用來初始化DateTimeFormatInfo對象，這個對象與當前線程的文化有關，并提供控制格式的值。
Dim dateTimeInfo as DateTime = DateTime.Now
MessageBox.Show (dateTimeInfo)
Dim strMonth as String = dateTimeInfo.ToString("F")
MessageBox.Show(strMonth)
上面的代碼定義了日期時間變量dateTimeInfo并將其值設為當前日期/時間。然后，我再定義字符串變量strMonth并將dateTimeInfo的值轉換為"帶長時間的完整日期/時間"格式下的字符串。
下面是一個標準日期格式說明符列表：
d：短日期
D：長日期
t：短時間
T：長時間
f：帶短時間的完整日期/時間
F：帶長時間的完整日期/時間
g：帶短時間的一般日期/時間
G：帶長時間的一般日期/時間
M或m：月-日
R或r：RFC1123
s：遵守ISO 8601的可分類日期/時間
u：國際可分類日期/時間
U：帶長時間的完整日期/時間。（此格式與F相同，但它用于國際GMT時間。）
Y或y：年-月
你得先補基礎。
最好去學校，找計算機系的學生，抄下專業專業課程和對應的課本（說不定順便能討些舊課本），賣齊這些課本（一般學校里面就有書店）慢慢學。
（以下課程不全）
至少需要讀一遍的：計算機導論、程序設計基礎、軟件工程、編譯原理
重點學習的：算法與數據結構、面向對象程序設計
還有VB.Net需要一定的基礎，建議先從 C++ 或 VB（版本6.0）入門
