日期时间转换

将 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