VB.NET时间日期数据处理及技巧
VB.NET时间日期数据处理及技巧 我们在编程中,通常都需要处理时间日期数据,这也是一种比较难于处理的数据类型,因为时间日期类型的结构相当复杂,并且还有一定的规则,如果在定义的时候不符合规则,程序在编译的时候就会出错。在Visual Basic .Net用以处理时间日期类型的结构(Structure)主要是2个,分别为DateTime和TimeSpan,这二个结构都位于命名空间System,并且在Visual Basic .Net中自己也定义了一种数据类型Date,这种数据类型相当于上面提及的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 ( "输入的时间日期字符串不合法!","错误!" ) (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |