把字符型数据转化为日期型数据

<Script runat="server">
Sub Page_Load()Sub Page_Load(s as object, e as eventargs)
    Dim dt as DateTime = DateTime.Now
    Dim dtt as string = dt.ToString()
    Dim da as DateTime = Convert.ToDateTime(dtt)
    Response.Write<BR>" 字符串转化为日期型:& da & "<BR><BR>")
    
    Dim ds as DateTime
    ds = DateAdd("d" , 10, da)
    Response.Write("日期加上10天后为:<BR>" & ds)
End Sub
</Script>