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

 

 

 

 

 



創作者介紹
創作者 jethro0119 的頭像
jethro0119

滷蛋與貢丸

jethro0119 發表在 痞客邦 留言(0) 人氣()


留言列表 (0)

發表留言