下面是在本程序中实现这个功能的具体操作步骤：
首先把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 ( "输入的时间日期字符串不合法！" , "错误！" )
Return
End Try
'判断输入的时间日期字符串的合法性
tsTemp = dtMyDate.Subtract ( DateTime.Now )
'二个DateTime实例相减
TextBox11.Text = tsTemp.Duration.ToString ( )
'取二个DateTime之差绝对值，并显示出来
End Sub |
至此在上述步骤都正确执行，并成功保存后，【处理日期时间数据】项目的全部工作就完成了。图04、图05和图06分别是【处理日期时间数据】项目编译后的运行界面：
图04：【处理日期时间数据】运行界面之一
图05：【处理日期时间数据】运行界面之二
图06：【处理日期时间数据】运行界面之三
四．小结：
本文介绍在Visual Basic .Net中日期时间类型数据的处理方法及在处理这些数据时的一些注意事项和技巧。以下就是本文中的知识点：
1. 结构和类的区别。
2. 用Date变量定义日期时间，及其注意事项。
3. DateTime和TimeSpan的主要区别，和二者主要的成员及其简单说明。
4. 判断给定时间日期的合法性。
5. 日期时间类型数据（DateTime实例）的运算。
6. 日期时间及其相关数值的获取。
如果您通过本文的介绍掌握了以上内容，那么本文的目的就算完成了，就让我们下一节再见吧！
|
|
