当前位置:首页 > 编程开发 > vb转换数字字符串为日期格式

vb转换数字字符串为日期格式

最近技术宅在学习asp.net时,碰到了一个小问题:总是无法把纯数字字符串转化为日期函数,经过很多试验和参考大家的经验,最终还是成功了。

虽然说办法有点笨,但是总总是可行的。

原题重现:

编写网页文件lx4-2.aspx,设计一个用户信息类UserInfo。要求如下:

 包括两个属性:姓名(Name)和生日(Birthday)。

 包括一个方法DecideAge()用于判断用户是否达到规定年龄。当年龄大于等于18岁时返回值“XXX,您是成人了!”;当年龄小于18岁时返回值“XXX,您还没长大呢?”。

因为用户输入的生日格式为“19910723”之类的类型,转化就常出错,不过幸好还是解决了。

vb转换数字字符串为日期格式

代码如下:


Class UserInfo

Public user_name As String
 Public birthday As Date

Public Function legality() As String
 Dim age As Integer
 age = DateDiff("yyyy", birthday, Today())
 If age >= 18 Then
 Return ",您是成人了!"
 Else
 Return ",您还木有长大啊亲!"
 End If
 End Function
End Class
Partial Class lx4_2
 Inherits System.Web.UI.Page

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
 Dim user As New UserInfo
 user.user_name = TextBox1.Text
 Dim y As String = String.Empty
 Dim m As String = String.Empty
 Dim d As String = String.Empty
 Dim ymd As String = String.Empty
 y = TextBox2.Text.Substring(0, 4)
 m = TextBox2.Text.Substring(4, 2)
 d = TextBox2.Text.Substring(6, 2)
 ymd = y & "/" & m & "/" & d
 user.birthday = CDate(ymd)
 Label1.Text = TextBox1.Text & user.legality()
 End Sub
End Class
友荐云推荐
  • «
  • »
  • 作者:
    除非注明,本文原创:技术宅,欢迎转载!转载请以链接形式注明本文地址,谢谢。
    原文链接:http://www.jishuzh.com/program/vb转换数字字符串为日期格式.html