首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

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

2013-01-07 
vb.net中怎样获取日期中的年月日时分秒Dim dateTime As String 2001/12/23此时用CDate()函数将其转化

vb.net中怎样获取日期中的年月日时分秒
  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属性应该怎么获取?
[解决办法]
是不是因为"2001/12/23 12:25:33"里的冒号你写成全角了啊
[解决办法]
要在英文输入法状态下输入冒号
Dim dateTime As String = "2001/12/23 12:25:33"
[解决办法]


Dim dateTime As String = "2001/12/23 12:25:33"
MsgBox(CDate(dateTime).Year & "   " & CDate(dateTime).Month & "   " & CDate(dateTime).Day)

貌似没问题啊
[解决办法]
其实你用的是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

[解决办法]
UPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUP
------解决方案--------------------


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

[解决办法]
引用:
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"
此时用……


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

热点排行