將輸入的字符串用各種方法嘗試轉換為日期變量。然后對再將日期變量輸出回textbox中。

創新互聯建站致力于網站建設,網站制作設計,營銷網頁定制網站制作,外貿營銷網站建設,企業網站建設,小程序制作,網站SEO優化,網站設計制作案例豐富,是成都做網站公司和建站公司,歡迎咨詢。
這里要做的就是用try 配合 各種轉換為日期變量的函數來得到一個日期結果。如果所有格式都無法轉為日期,則可以提示用戶無法轉換 或是根本 不操作。
給你一個例子,里邊包含了幾種不同格式轉換成標準的日期時間格式;
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")
' 當前系統日期 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
想直接轉換是不行的,首先你可以將字符串按照時間的格式修改為“2014-05-12 15:07:12”
然后就 可以使用datetime.tryparse(s,out d)進行轉換了
在你對日期/時間進行格式化時,控制面板中的地區與語言選項部分的設置會影響你所得到的結果。那些設置用來初始化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:年-月
1.啟動VB6.0并創建一個新的標準exe項目。
2.在窗體上繪制命令按鈕的一個版本,名稱為Command1。
3.雙擊命令按鈕以進入代碼窗口。
4.假設調用了一個函數a,從1到100,可以選擇計數循環,下一條語句。
5.編寫命令按鈕的單擊事件。
6.按F5運行測試,就完成了。
Dim a As String
Dim b As Date
a = "2016-11-18"
b = CDate(a)
本例中最主要的就是CDate()函數,這個函數是用于把字符型變量轉換成日期型變量,
字符型變量(本例中的a)如果不是標準的日期格式,請先用字符串函數處理成標準日期格式再用CDate函數進行轉換,否則會報錯
當前文章:vb.net轉換日期類型 vba 日期轉換為數字
網頁網址:http://www.yijiale78.com/article8/doddgip.html
成都網站建設公司_創新互聯,為您提供動態網站、網站策劃、網頁設計公司、網站設計公司、App開發、關鍵詞優化
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯