2. 用Date变量定义日期时间，及其注意事项

3. DateTime和TimeSpan的主要区别，和二者主要的成员及其简单说明

㈠、DateTime和TimeSpan的关系和区别：

㈡、DateTime和TimeSpan中的常用成员及其说明：

　　DateTime结构和TimeSpan结构提供了丰富的方法和属性，通过这些方法和属性，几乎可以直接处理任何时间日期类型数据。

表01和表02分别是DateTime结构的常用属性和常用方法及其说明：

表01：datetime类的常用属性及其说明

表02：datetime结构的常用方法及其说明

表03和表04分别是timespan结构的常用属性和常用方法及其说明：

表03：timespan结构的常用属性及其说明

表04：timespan结构的常用方法及其说明

4. 判断给定时间日期的合法性、日期时间类型数据（DateTime实例）的运算与日期时间及其相关数值的获取

1. 启动 Visual Studio .Net。
　　2. 选择菜单【文件】|【新建】|【项目】后，弹出【新建项目】对话框。

　 3. 将【项目类型】设置为【Visual Basic项目】。
　　4. 将【模板】设置为【Windows窗体应用程序】。
　　5. 在【名称】文本框中输入【处理日期时间数据】。
　　6. 在【位置】的文本框中输入【E:\VS.NET项目】，然后单击【确定】按钮，这样在"E:\VS.NET项目"目录中就产生了名称为"处理日期时间数据"的文件夹，并在里面创建了名称为【处理日期时间数据】的项目文件。
　　7. 把Visual Studio .Net的当前窗口切换到【Form1.vb（设计）】窗口，并从【工具箱】中的【Windows窗体组件】选项卡中往Form1窗体中拖入下列组件，并执行相应操作：

　　一个TabControl组件（包含三个TabPage组件.）
　　十九个Label组件。
　　十九个TextBox组件，用以显示时间日期数值。
　　三个Button组件，并在这三个Button组件拖入Form1的设计窗体后，分别双击这三个组件，这样系统会在Form1.vb文件分别产生这三个组件的Click时间对应的处理代码。

　　8. 按照图01、图02、图03设定设定组件的主要属性

图01：【处理日期时间数据】设计界面之一

图03：【处理日期时间数据】设计界面之三

在完成上面的工作以后，下面就进入程序的功能实现阶段。

9.判断输入的日期时间字符串的合法性。

为了实现这个功能，首先要掌握把输入的日期时间字符串转换成可供Visual Basic .Net使用的日期时间类型的数据的方法。这个方法就是使用DateTime中的Parse方法，Parse方法能够把一个符合日期时间的字符串转换成一个DateTime实例。下面是一个具体的转换代码：

但如果给定要转换的字符串不合法，程序在执行的时候就会出现异常。程序通过对异常的捕获，来判断给定要转换的字符串合法性。在Visual Basic .Net中捕获异常一般使用的是Try …Catch ….End Try语句。这里要注意的是Try …Catch ….End Try语句是一个非常重要的语句，在后面章节中的很多关键代码部分都会经常的使用到它，通过它的确能够解决很多麻烦的问题。

下面是在本程序中实现这个功能的具体操作步骤：

　　首先把Visual Studio .Net的当前窗口切换到【Form1.vb】，进入Form1.vb文件的编辑界面。然后用下列的代码替换Form1.vb中btnJudge组件的Click事件对应的处理代码。

'判断输入日期时间字符串合法性  
Private Sub btnJudge_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btnJudge.Click
    Dim dtMyDate As System.DateTime

    Try
        dtMyDate = DateTime.Parse(txtDateTime.Text) '转换给定的日期时间字符串  

    Catch

        MessageBox.Show("你输入的时间日期字符串不合法！","错误！")  '@R_403_304@  
        txtDateTime.Text = ""
        Return

    End Try
End Sub
'获取计算机日期时间数据
'程序要实现这个功能非常简单，只需要掌握表01和表02中列出的DateTime常用属性、方法的使用方法就能够方便完成了。具体到本程序具体的操作是用下列代码替换Form1.vb中btnDateTimeNow的Click事件对应的处理代码

'获得计算机日期、时间  
Private Sub btnDateTimeNow_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btnDateTimeNow.Click
    '创建实例，此实例存放当前日期和时间  
    Dim dMyDate As DateTime = DateTime.Now

    '显示当前日期和时间  
    txtDateTimeNow.Text = dMyDate.ToString()

    '显示当前日期  
    txtDateNow.Text = dMyDate.Date

    '显示当前年度  
    txtYear.Text = dMyDate.Year

    '显示当前月份  
    txtMonth.Text = dMyDate.Month

    '显示日号  
    txtDay.Text = dMyDate.Day

    '显示当前天是一年中的第多少天  
    txtDayofyear.Text = dMyDate.DayOfYear

    '显示当前天是本星期中的第多少天  
    txtWeek.Text = dMyDate.DayOfWeek

    '以长日期形式来显示日期  
    txtDateLong.Text = dMyDate.ToLongDateString

    '以短日期形式来显示日期  
    txtDateShort.Text = dMyDate.ToShortDateString

    '显示当前时间  
    txtTimeNow.Text = dMyDate.TimeOfDay.ToString()

    '显示当前时间的小时  
    txtHour.Text = dMyDate.Hour

    '显示当前时间的分钟  
    txtMinute.Text = dMyDate.Minute

    '显示当前时间的秒  
    txtSecond.Text = dMyDate.Second

    '显示当前时间的毫秒  
    txtMillisecond.Text = dMyDate.Millisecond

    '以长时间形式来显示当前时间  
    txtTimeLong.Text = dMyDate.ToLongTimeString

    '以短时间形式来显示当前时间  
    txtTimeShort.Text = dMyDate.ToShortTimeString
End Sub

'日期时间数据的运算
'在下面介绍的代码是实现二个DateTime实例之差，即当前的时间和给定的时间之差。解决的步骤是首先判断给定的日期时间字符串的合法性，如果不合法，则返回。如果合法，则以此来创建DateTime实例dtMyDate。然后dtMyDate调用其Subtract方法减去当前的时间，并存放到TimeSpan实例tsTemp。tsTemp调用其Duration方法，把二者之差的绝对值显示出来。具体到程序中的实现方法是用下列代码替换Form1.vb中的btnOK的Click事件的处理代码：

'输入时间与系统时间之差  
Private Sub btnOK_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btnOK.Click
    Dim tsTemp As TimeSpan
    Dim dtMydate As DateTime
    '判断输入的时间日期字符串的合法性  
    Try
        dtMydate = DateTime.Parse(txtDateTimeEnter.Text)
    Catch
        MessageBox.Show("输入的时间日期字符串不合法","错误！")
        Return

    End Try

    '两个DateTime实例相减  
    tsTemp = dtMydate.Subtract(DateTime.Now)

    '取两个各DateTime之差绝对值，并显示出来  
    txtTimeDifference.Text = tsTemp.Duration.ToString()
End Sub

至此在上述步骤都正确执行，并成功保存后，【处理日期时间数据】项目的全部工作就完成了。图04、图05和图06分别是【处理日期时间数据】项目编译后的运行界面：

图04：

图05：

图06：

二、常见的时间日期类型问题

<spanstyle="white-space:pre"></span><spanstyle="font-size:18px;">enOnLine.OnTime=Convert.ToString(dtQuery.Rows(0).Item("onTime"))</span>