close
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim b As Integer
b = TextBox1.Text
Dim a As Date
a = Now() /////顯示今天的時間
Label1.Text = a /////輸入a變數
Label2.Text = DateAdd("d", b, a) ////將a變數加上今天時間顯示在label2
End Sub
End Class
全站熱搜
留言列表