Displaying time and date * * RESOLVED * *

[jnichols]

How do I display time and date (in real-time) in a label in the following format:

May 6, 2004
12:06:32 PM

I know this is probably very simple but I can't seem to make it work.

Thanks in adavance

Brad Nichols

[mendhak]

You can use the FormateDateTime function.

MessageBox.Show(FormatDateTime(Now.ToLongTimeString))
 
MessageBox.Show(FormatDateTime(Today, DateFormat.LongDate))

[jnichols]

But how can i get it to display in a Label on the MDIParent?

I'm sorry i am new to all this, trying to learn though.

Thanks again

Brad Nichols

[jnichols]

Ok on the MDIParent form in the upper right hand corner I want to display the date and time in 2 different Labels. (i.e. Label1 = Thursday, May 6, 2004 Label2 = 5:26:34 P.M.). Also is it possible to display it in real-time like have the seconds count on screen? Please help

Thanks in advance

Brad Nichols

[Ideas Man]

I don't get the MDI stuff, but you usually just put something like

Label1.Text = Now.ToLongTimeString

inside the tick event of a timer and set the interval to 1000. If you do this, it will not be exactly identical to the system clock, but it's not that noticable.

[jnichols]

Ok here's what i've got. Now how do I get it to display?

Private Sub InitializeTimer()
        ' Run this procedure in an appropriate event.
        ' Set to 1 second.
        Clock.Interval = 1000
        ' Enable timer.
        Clock.Enabled = True
    End Sub
 
    Private Sub Clock_Tick(ByVal Sender As System.Object, ByVal e As System.EventArgs) Handles Clock.Tick
        ' Set the caption to the current time.
        lblTime.Text = Now.ToLongTimeString
        lblDate.Text = Now.ToLongDateString
    End Sub

[Negative0]

Where do you call the initialize Timer fucntion?

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 1000
        Timer1.Enabled = True
 
 
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = Now
    End Sub

This is all I have in a form and it works no problem.

[jnichols]

It works Thanks