[MaverickSidewinder]

I would like to make a form that shows date and time. I know how to display the time (ill post the code so if people want to know that they'll know how

Code for Displaying time

' Create a form with a timer (interval time set to 500) and a label (default will be Label1)
' Set the label caption to 00:00:00 (those are zeros NOT the letter O)

Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub

Now i would like to know the code to simply display the current date that a user has on the computer on a label..either with numeric values like: 00/00/00 or possibly (i would prefer this) with word values, example:

A label that shows: "Today is the: 1st[it doesn't need to have the "st"] of January 2006

I hope someone knows how to do this and is willing to help me with it

Maybe it doesn't even exist..but i really doubt it

p.s. I put colors on the display so it is easier to see what i would like to display..i know how to color the labels and text

Edited by MaverickSidewinder, 11 November 2005 - 02:27 PM.

[Advertisements]

Hi MaverickSidewinder,
Try:

label1.caption=Format(Now, "Long Date")

or

,
label1.caption=Format(Now,"dddd, MMM d yyyy")

[darth_ash]

Hi MaverickSidewinder,
Try:

label1.caption=Format(Now, "Long Date")

or

,
label1.caption=Format(Now,"dddd, MMM d yyyy")

[MaverickSidewinder]

Does this code have to be put on the Timer1 Pivate Sub?
That's where i put it and none of them work...do i have to add something to the label? (ex. for time i would have to add 00:00:00 or else i wouldn't work..)

Thanks though!

[darth_ash]

Put the date code in the form load event, since it will stay static for 24hrs.
For the system time will need to user a timer with an interval of 1000msec (i.e. 1sec)

Edited by darth_ash, 11 November 2005 - 10:39 AM.

[MaverickSidewinder]

3 words

1) Thank
2) You
3) Resolved