vb.net中怎样获取日期中的年月日时分秒

Question

  Dim dateTime As String = "2001/12/23"
此时用CDate()函数将其转化为日期格式，然后通过CDate(dateTime).year/CDate(dateTime).month/CDate(dateTime).day
可以获得其年月日，但当加上时间时如：
Dim dateTime As String = "2001/12/23 12：25：33"
此时用CDate()函数会报错，说无法转化成时间类型
那么Date类型的hour属性应该怎么获取？

Answer 1

要在英文输入法状态下输入冒号
Dim dateTime As String = "2001/12/23 12:25:33"

Answer 2

Dim dateTime As String = "2001/12/23 12：25：33"
MsgBox(CDate(dateTime).Year & "   " & CDate(dateTime).Month & "   " & CDate(dateTime).Day)貌似没问题啊

Answer 3

其实你用的是vb.net,完全可以这样
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim strMyDateTime As String
        strMyDateTime = "2001/12/23 12:25:33"        Dim myDateTime As System.DateTime
        'myDateTime = System.DateTime.Parse(strMyDateTime, "yyyy/MM/dd hh:mm:ss")
        myDateTime = System.DateTime.Parse(strMyDateTime)        'Dim moment As New System.DateTime(1999, 1, 13, 3, 57, 32, 11)        ' Year gets 1999.
        Dim year As Integer = myDateTime.Year        ' Month gets 1 (January).
        Dim month As Integer = myDateTime.Month        ' Day gets 13.
        Dim day As Integer = myDateTime.Day        ' Hour gets 3.
        Dim hour As Integer = myDateTime.Hour        ' Minute gets 57.
        Dim minute As Integer = myDateTime.Minute        ' Second gets 32.
        Dim second As Integer = myDateTime.Second        ' Millisecond gets 11.
        Dim millisecond As Integer = myDateTime.Millisecond
        TextBox1.Text = myDateTime.ToString    End Sub

Answer 4

UPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUP

Answer 5

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dateTime As String = "2001/12/23"
        Dim s As String = CDate(dateTime).Year.ToString & "/" & CDate(dateTime).Month.ToString & "/" & CDate(dateTime).Day.ToString & "/" & "12：25：33"
        Dim T As Date = CDate("12：25：33")
        dateTime = dateTime & " " & T
        MsgBox(s)
        MsgBox(dateTime)
    End Sub
End Class

Answer 6

不那个冒号有问题，是全角的。为什么不直接：Dim dateTime As date = #2001/12/23 12：25：33#