日期时间转换

来源：互联网发布：招商局集团知乎编辑：程序博客网时间：2024/04/30 10:50

将 2013/04/16 5:04:03 转换成 20130416050403

    Private Sub btnTimeConvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTimeConvert.Click
        Dim strDate As String = "2013/04/16 5:04:03"
        Dim strYMDHSM As String = ""
        Try
            Dim strYYYYMMDD As String = ""
            Dim strHHSSMM As String = ""
            Dim strYYYY As String = ""
            Dim strMM As String = ""
            Dim strDD As String = ""
            Dim str24HH As String = ""
            Dim strSS As String = ""
            Dim strM As String = ""

Dim arrYYYYMMDD() As String
Dim arrHHSSMM() As String

strYYYYMMDD = strDate.Substring(0, 10)
strHHSSMM = strDate.Substring(11)

arrYYYYMMDD = strYYYYMMDD.Split("/")
arrHHSSMM = strHHSSMM.Split(":")

            strYYYY = arrYYYYMMDD(0).PadLeft(4, "0")
            strMM = arrYYYYMMDD(1).PadLeft(2, "0")
            strDD = arrYYYYMMDD(2).PadLeft(2, "0")

            str24HH = arrHHSSMM(0).PadLeft(2, "0")
            strSS = arrHHSSMM(1).PadLeft(2, "0")
            strM = arrHHSSMM(2).PadLeft(2, "0")

strYMDHSM = strYYYY & strMM & strDD & str24HH & strSS & strM

        Catch ex As Exception
            strYMDHSM = ""
        End Try
        MsgBox(strYMDHSM)
    End Sub