[vb.net 2005] 날자 및 시간 예제

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        If TextBox1.Text <> "" Then
            TextBox1.Text = ""

        Else

            TextBox1.Text = Format(Now, "yyyy년 MM월 dd일")
            TextBox2.Text = MonthCalendar1.TodayDate
            'TextBox6.Text = Today
            'TextBox6.Text = My.Computer.Clock.LocalTime      

            'TextBox6.Text = DateTime.Now                     

            'TextBox6.Text = Format(Now, "hh.mm.ss.fff tt")     

            'TextBox6.Text = TimeString                         

            TextBox6.Text = DateTime.UtcNow
            TextBox3.Text = Now()
        End If

    End Sub

'-------------------------------------------------------------------------------------------------------------------------

    Private Sub MonthCalendar1_DateSelected(ByVal sender As Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles MonthCalendar1.DateSelected
        TextBox4.Text = MonthCalendar1.SelectionStart
        TextBox5.Text = Format(MonthCalendar1.SelectionStart, "yyyy년 MM월 dd일")
    End Sub

'-------------------------------------------------------------------------------------------------------------------------

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()

    End Sub