27/11/2011

How to display current date, time and day of given date? vb.net code for beginners

During learning of Visual basic such task has been given to the learner in very beginning stage of learning.So let first design the windows form and place the various controls on windows form. The control which I am using is as under



sno         control name                     property

01         Textbox1.text       Name property- txtTime
02         Textbox2.text       Name property- txtdate
03         Textbox3.text       Name property- txtDay
04          Label1                  Text Property-   Time No is
05          Label2                  Text Property- Date Today is
06          Label3                  Text Property- Enter Date
07          Label4                   -
08         Command Button   Text Property- Find the day

The windows form will be like this

then on form load event write following code

Private Sub frmDate_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txttime.Text = TimeString
        TxtDate.Text = DateString
       

    End Sub
the code on click event of button1 will be
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim MYDATE As Date
        Dim aday As String

        MYDATE = CDate(TxtDay.Text)
        aday = Format(MYDATE, "dddd")
        Label4.Text = "The day on " & TxtDate.Text & " is " & aday

    End Sub 
Enter the date in "enter date" text box  in  dd/mm/yyyy format.