VB.NET时间日期数据处理及技巧

　　
　　我们在编程中，通常都需要处理时间日期数据，这也是一种比较难于处理的数据类型，因为时间日期类型的结构相当复杂，并且还有一定的规则，如果在定义的时候不符合规则，程序在编译的时候就会出错。在Visual Basic .Net用以处理时间日期类型的结构（Structure）主要是2个，分别为DateTime和TimeSpan，这二个结构都位于命名空间System，并且在Visual Basic .Net中自己也定义了一种数据类型Date，这种数据类型相当于上面提及的DateTime类。这时候可能很多朋友会问了，什么叫结构，它有什么作用？其实结构和类在作用和功能上是非常类似的，它也有构造函数，二者的主要区别如下：
　　
　　1. 结构不能包含显式的无参数构造函数。结构成员将自动初始化为它们的默认值。
　　
　　2. 结构不能有以下形式的初始值设定项：base。
　　
　　其实对于大多数朋友，你具体使用结构和类的时候，完全可以不需要考虑到二者区别，因为二者在使用上几乎相同。
　　
　　虽然Visual Basic .Net中提供了Date数据类型来处理时间日期类型，但在实际中往往并不使用它，因为它的定义非常麻烦，加上时间日期类型结构相当复杂，对于很多初学者往往会出现错误。下面就是在Visual Basic .Net中通过Date数据类型定义一个时间日期类型数据变量的语句，就可见其烦杂了：
　　
　　Dim s As Date = #12/2/2002 7:00:00 PM#
　　
　　在定义Date数据类型时候，必须注意下面三点：
　　
　　1. Date数值必须以数字符号"#"括起来。
　　
　　2. Date数值中的日期数据可有可无，如果有必须符合格式"m/d/yyyy"。
　　
　　3. Date数值中的时间数据可有可无，如果有必须和日期数据通过空格分开，并且时分秒之间以":"分开。
　　
　　一．DateTime和TimeSpan的关系和区别：
　　DateTime和TimeSpan是Visual Basic .Net中用以处理时间日期类型数据的二个主要的结构，这二者的区别在于，DatTime表示一个固定的时间，而TimeSpan表示的是一个时间间隔，即一段时间。在下面介绍的程序示例中，TimeSpan就用以当前时间和给定时间之差。
　　
　　二．DateTime和TimeSpan中的常用成员及其说明：
　　DateTime结构和TimeSpan结构提供了丰富的方法和属性，通过这些方法和属性，几乎可以直接处理任何时间日期类型数据。表01和表02分别是DateTime结构的常用属性和常用方法及其说明：
　　　
　　　
　　　
　　　
　　三．DateTime和TimeSpan中常用成员的使用方法及其使用技巧：
　　在了解了DateTime和TimeSpan的常用方法和常用属性后，下面将通过一个示例来掌握上述方法和属性的用法。在下面的示例中将着重介绍下列问题的处理方法：
　　
　　1. 判断输入的日期时间字符串的合法性。
　　
　　2. DateTime实例之间的运算。
　　
　　3. 日期时间数据的获取方法。
　　
　　下面是用Visual Basic .Net实现上述功能的示例的主要步骤：
　　
　　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组件，分别是Button1至Button3，并在这三个Button组件拖入Form1的设计窗体后，分别双击这三个组件，这样系统会在Form1.vb文件分别产生这三个组件的Click时间对应的处理代码。
　　
　　8. 按照图01、图02、图03设定设定组件的主要属性
　　　
　　图01：【处理日期时间数据】设计界面之一
　　　
　　图02：【处理日期时间数据】设计界面之二
　　　
　　图03：【处理日期时间数据】设计界面之三
　　
　　在完成上面的工作以后，下面就进入程序的功能实现阶段。
　　
　　9. 判断输入的日期时间字符串的合法性。为了实现这个功能，首先要掌握把输入的日期时间字符串转换成可供Visual Basic .Net使用的日期时间类型的数据的方法。这个方法就是使用DateTime中的Parse方法，Parse方法能够把一个符合日期时间的字符串转换成一个DateTime实例。下面是一个具体的转换代码：
　　Dim dtTemp as System.DateTime = System.DateTime.Parse ( "12/2/2002 13:20:25")
　　但如果给定要转换的字符串不合法，程序在执行的时候就会出现异常。程序通过对异常的捕获，来判断给定要转换的字符串合法性。在Visual Basic .Net中捕获异常一般使用的是Try …Catch ….End Try语句。这里要注意的是Try …Catch ….End Try语句是一个非常重要的语句，在后面章节中的很多关键代码部分都会经常的使用到它，通过它的确能够解决很多麻烦的问题。
　　下面是在本程序中实现这个功能的具体操作步骤：
　　
　　首先把Visual Studio .Net的当前窗口切换到【Form1.vb】，进入Form1.vb文件的编辑界面。然后用下列的代码替换Form1.vb中Button3组件的Click事件对应的处理代码。
　　
　　Private Sub Button3_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button3.Click
　　Dim dtMyDate As System.DateTime
　　Try
　　dtMyDate = DateTime.Parse ( TextBox19.Text )
　　'转换给定的日期时间字符串
　　Catch
　　MessageBox.Show ( "输入的时间日期字符串不合法！", "错误！" )
　　'提示出错
　　TextBox19.Text = ""
　　Return
　　End Try
　　'以上是判断输入日期时间字符串合法性的典型代码
　　End Sub
　　
　　10. 获取计算机日期时间数据。程序要实现这个功能非常简单，只需要掌握表01和表02中列出的DateTime常用属性、方法的使用方法就能够方便完成了。具体到本程序具体的操作是用下列代码替换Form1.vb中Button2的Click事件对应的处理代码：
　　
　　Private Sub Button1_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button1.Click
　　Dim dMyDate As DateTime = DateTime.Now
　　'创建实例，此实例存放当前日期和时间
　　TextBox1.Text = dMyDate.ToString ( )
　　'显示当前日期和时间
　　TextBox2.Text = dMyDate.Date
　　'显示当前日期
　　TextBox3.Text = dMyDate.Year
　　'显示年度
　　TextBox4.Text = dMyDate.Month
　　'显示月份
　　TextBox5.Text = dMyDate.Day
　　'显示日号
　　TextBox6.Text = dMyDate.DayOfYear
　　'显示当前天是一年中的第多少天
　　TextBox7.Text = dMyDate.DayOfWeek
　　'显示当前天是本星期中的第多少天
　　TextBox8.Text = dMyDate.ToLongDateString
　　'以长日期形式来显示日期
　　TextBox9.Text = dMyDate.ToShortDateString
　　'以短日期形式来显示日期
　　TextBox18.Text = dMyDate.TimeOfDay.ToString ( )
　　'显示当前时间
　　TextBox17.Text = dMyDate.Hour
　　'显示当前时间的小时
　　TextBox16.Text = dMyDate.Minute
　　'显示当前时间的分钟
　　TextBox15.Text = dMyDate.Second
　　'显示当前时间的秒
　　TextBox14.Text = dMyDate.Millisecond
　　'显示当前时间的毫秒
　　TextBox13.Text = dMyDate.ToLongTimeString
　　'以长时间形式来显示当前时间
　　TextBox12.Text = dMyDate.ToShortTimeString
　　'以短时间形式来显示当前时间
　　End Sub
　　
　　11. 日期时间数据的运算。在下面介绍的代码是实现二个DateTime实例之差，即当前的时间和给定的时间之差。解决的步骤是首先判断给定的日期时间字符串的合法性，如果不合法，则返回。如果合法，则以此来创建DateTime实例dtMyDate。然后dtMyDate调用其Subtract方法减去当前的时间，并存放到TimeSpan实例tsTemp。tsTemp调用其Duration方法把二者之差的绝对值显示出来。具体到程序中的实现方法是用下列代码替换Form1.vb中的Button2的Click事件的处理代码：
　　
　　Private Sub Button2_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button2.Click
　　Dim tsTemp As TimeSpan
　　Dim dtMyDate As DateTime
　　Try
　　dtMyDate = DateTime.Parse ( TextBox10.Text )
　　Catch
　　MessageBox.Show ( "输入的时间日期字符串不合法！" , "错误！" )