Public Class Form1
成都創(chuàng)新互聯(lián)堅持“要么做到,要么別承諾”的工作理念,服務(wù)領(lǐng)域包括:網(wǎng)站設(shè)計制作、成都網(wǎng)站設(shè)計、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣等服務(wù),滿足客戶于互聯(lián)網(wǎng)時代的托克遜網(wǎng)站設(shè)計、移動媒體設(shè)計的需求,幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴!
Private Past As Date
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Past = Now
IO.File.AppendAllText("test.txt", Past.ToString, System.Text.Encoding.Default)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim Now1 As Date = CDate(IO.File.ReadAllText("test.txt", System.Text.Encoding.Default))
Dim Now2 As Date = Now
MsgBox("從" Now1.ToString "到" Now2.ToString "經(jīng)過了" CStr(CDate((Now2 - Now1).ToString)))
End Sub
實際情況修改下。
End Class
在你對日期/時間進行格式化時,控制面板中的地區(qū)與語言選項部分的設(shè)置會影響你所得到的結(jié)果。那些設(shè)置用來初始化DateTimeFormatInfo對象,這個對象與當前線程的文化有關(guān),并提供控制格式的值。
Dim dateTimeInfo as DateTime = DateTime.Now
MessageBox.Show (dateTimeInfo)
Dim strMonth as String = dateTimeInfo.ToString("F")
MessageBox.Show(strMonth)
上面的代碼定義了日期時間變量dateTimeInfo并將其值設(shè)為當前日期/時間。然后,我再定義字符串變量strMonth并將dateTimeInfo的值轉(zhuǎn)換為"帶長時間的完整日期/時間"格式下的字符串。
下面是一個標準日期格式說明符列表:
d:短日期
D:長日期
t:短時間
T:長時間
f:帶短時間的完整日期/時間
F:帶長時間的完整日期/時間
g:帶短時間的一般日期/時間
G:帶長時間的一般日期/時間
M或m:月-日
R或r:RFC1123
s:遵守ISO 8601的可分類日期/時間
u:國際可分類日期/時間
U:帶長時間的完整日期/時間。(此格式與F相同,但它用于國際GMT時間。)
Y或y:年-月
Dim a As String
Dim b As Date
a = "2016-11-18"
b = CDate(a)
本例中最主要的就是CDate()函數(shù),這個函數(shù)是用于把字符型變量轉(zhuǎn)換成日期型變量,
字符型變量(本例中的a)如果不是標準的日期格式,請先用字符串函數(shù)處理成標準日期格式再用CDate函數(shù)進行轉(zhuǎn)換,否則會報錯
將時間轉(zhuǎn)換為指定的字符串格式用:Now.ToString("yyyyMMddHHmmss")就Ok了。
例如:年份用小寫yyyy(大寫不識別),大寫MM識別為月份,小寫mm識別為分鐘,日期天為大寫DD(小寫不識別),
小時大寫HH識別為24小時制,小寫hh識別為12小時制,秒用小寫ss(大寫不識別)
補充:Visual Basic.NET是基于微軟.NET Framework之上的面向?qū)ο蟮木幊陶Z言。
其在調(diào)試時是以解釋型語言方式運作,而輸出為EXE程序是是以編譯型語言方式運作。
可以看作是Visual Basic在.Net Framework平臺上的升級版本,增強了對面向?qū)ο蟮闹С?。大多的VB.Net程序員使用Visual Studio .Net作為IDE(integrated development environment).SharpDevelop是另一種可用的開源的IDE。
VB.Net需要在.Net Framework平臺上才能執(zhí)行。
Dim unix As DateTime = #1/1/1970#
unix = unix.AddSeconds(CDbl("時間戳"))
MsgBox(unix)
'--------------------
百度VB2010(VB.NET)吧建設(shè)發(fā)展中,需要你的支持和幫助!!!
快加入我們吧!發(fā)表你的疑問,經(jīng)驗,程序,分享..
讓我們共同進步!
dim date as DateTime = DateTime.Parse(TextBox1.Text)
TextBox2.Text = date.ToShortDateTime()
日期類型有好多種轉(zhuǎn)換表達式, 特別的使用.ToString("YYYY-mm-dd") 這種形式可以自定義ToString里面的格式化樣式。