將輸入的字符串用各種方法嘗試轉(zhuǎn)換為日期變量。然后對(duì)再將日期變量輸出回textbox中。
創(chuàng)新互聯(lián)建站致力于網(wǎng)站建設(shè),網(wǎng)站制作設(shè)計(jì),營(yíng)銷網(wǎng)頁(yè)定制網(wǎng)站制作,外貿(mào)營(yíng)銷網(wǎng)站建設(shè),企業(yè)網(wǎng)站建設(shè),小程序制作,網(wǎng)站SEO優(yōu)化,網(wǎng)站設(shè)計(jì)制作案例豐富,是成都做網(wǎng)站公司和建站公司,歡迎咨詢。
這里要做的就是用try 配合 各種轉(zhuǎn)換為日期變量的函數(shù)來得到一個(gè)日期結(jié)果。如果所有格式都無法轉(zhuǎn)為日期,則可以提示用戶無法轉(zhuǎn)換 或是根本 不操作。
給你一個(gè)例子,里邊包含了幾種不同格式轉(zhuǎn)換成標(biāo)準(zhǔn)的日期時(shí)間格式;
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
' 01/09/2001 00:00:00
Dim MyDateTime1 As DateTime = DateTime.Parse("Sep 2001")
' 05/09/2001 14:15:33
Dim MyDateTime2 As DateTime = DateTime.Parse("Wed 5 September 2001 14:15:33")
' 01/09/2005 00:00:00
Dim MyDateTime3 As DateTime = DateTime.Parse("5,9,01")
' 09/05/2001 14:15:33
Dim MyDateTime4 As DateTime = DateTime.Parse("5/9/2001 14:15:33")
' 當(dāng)前系統(tǒng)日期 14:15:00
Dim MyDateTime5 As DateTime = DateTime.Parse("2:15 PM")
Dim MyInfo As String = MyDateTime1.ToString()
MyInfo += vbCrLf + MyDateTime2.ToString()
MyInfo += vbCrLf + MyDateTime3.ToString()
MyInfo += vbCrLf + MyDateTime4.ToString()
MyInfo += vbCrLf + MyDateTime5.ToString()
MessageBox.Show(MyInfo, "信息提示", _
MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.Message, "信息提示", _
MessageBoxButtons.OK, MessageBoxIcon.Information)
End Try
End Sub
End Class
想直接轉(zhuǎn)換是不行的,首先你可以將字符串按照時(shí)間的格式修改為“2014-05-12 15:07:12”
然后就 可以使用datetime.tryparse(s,out d)進(jìn)行轉(zhuǎn)換了
在你對(duì)日期/時(shí)間進(jìn)行格式化時(shí),控制面板中的地區(qū)與語(yǔ)言選項(xiàng)部分的設(shè)置會(huì)影響你所得到的結(jié)果。那些設(shè)置用來初始化DateTimeFormatInfo對(duì)象,這個(gè)對(duì)象與當(dāng)前線程的文化有關(guān),并提供控制格式的值。
Dim dateTimeInfo as DateTime = DateTime.Now
MessageBox.Show (dateTimeInfo)
Dim strMonth as String = dateTimeInfo.ToString("F")
MessageBox.Show(strMonth)
上面的代碼定義了日期時(shí)間變量dateTimeInfo并將其值設(shè)為當(dāng)前日期/時(shí)間。然后,我再定義字符串變量strMonth并將dateTimeInfo的值轉(zhuǎn)換為"帶長(zhǎng)時(shí)間的完整日期/時(shí)間"格式下的字符串。
下面是一個(gè)標(biāo)準(zhǔn)日期格式說明符列表:
d:短日期
D:長(zhǎng)日期
t:短時(shí)間
T:長(zhǎng)時(shí)間
f:帶短時(shí)間的完整日期/時(shí)間
F:帶長(zhǎng)時(shí)間的完整日期/時(shí)間
g:帶短時(shí)間的一般日期/時(shí)間
G:帶長(zhǎng)時(shí)間的一般日期/時(shí)間
M或m:月-日
R或r:RFC1123
s:遵守ISO 8601的可分類日期/時(shí)間
u:國(guó)際可分類日期/時(shí)間
U:帶長(zhǎng)時(shí)間的完整日期/時(shí)間。(此格式與F相同,但它用于國(guó)際GMT時(shí)間。)
Y或y:年-月
1.啟動(dòng)VB6.0并創(chuàng)建一個(gè)新的標(biāo)準(zhǔn)exe項(xiàng)目。
2.在窗體上繪制命令按鈕的一個(gè)版本,名稱為Command1。
3.雙擊命令按鈕以進(jìn)入代碼窗口。
4.假設(shè)調(diào)用了一個(gè)函數(shù)a,從1到100,可以選擇計(jì)數(shù)循環(huán),下一條語(yǔ)句。
5.編寫命令按鈕的單擊事件。
6.按F5運(yùn)行測(cè)試,就完成了。
Dim a As String
Dim b As Date
a = "2016-11-18"
b = CDate(a)
本例中最主要的就是CDate()函數(shù),這個(gè)函數(shù)是用于把字符型變量轉(zhuǎn)換成日期型變量,
字符型變量(本例中的a)如果不是標(biāo)準(zhǔn)的日期格式,請(qǐng)先用字符串函數(shù)處理成標(biāo)準(zhǔn)日期格式再用CDate函數(shù)進(jìn)行轉(zhuǎn)換,否則會(huì)報(bào)錯(cuò)
當(dāng)前文章:vb.net轉(zhuǎn)換日期類型 vba 日期轉(zhuǎn)換為數(shù)字
網(wǎng)頁(yè)網(wǎng)址:http://chinadenli.net/article8/doddgip.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供動(dòng)態(tài)網(wǎng)站、網(wǎng)站策劃、網(wǎng)頁(yè)設(shè)計(jì)公司、網(wǎng)站設(shè)計(jì)公司、App開發(fā)、關(guān)鍵詞優(yōu)化
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)