Date and Time on a Userform

[Gregs]

Hi Mr Excel,

How do I put the current date and time on a userform say in a textbox and each time I bring up the userform it refreshes.

Any help would be appreciated

 

[manrav]

try now()
you can use the now() function in a cell and then link the text box to that cell

 

[Gregs]

Thanks. How do you link it? Whats the code??

 

[manrav]

you can place this code in any event
for example say you have a button that refreshes your form and your current date and time need to be stored in a text box named "TextBox1" you can place the following code in the click event of the Button


Dim CurTimeDate As String
CurTimeDate= Now()
TextBox1 = CurTimeDate

each time the button is clicked the textbox will capture the current date and time

Hope this helps

let me know if you need more info

 

[NateO]

Hello, you could also use a pure programatic solution by placing code like the following in your userform module:

<pre>
Private Sub userform_initialize()
TextBox1 = Now
End Sub</pre>

Where you adjust the code for the correct name of the textbox. A label would work as well...

 

[razzandy]

On the same lines as Nato but just to make sure the format is OK for your region try this:

Private Sub UserForm_Initialize()
TextBox1.Value = Format(Now, "ddd dd-mmm-yyyy hh:mm")
End Sub

This will give you Thu 20-Sep-2002 00:15

Cheers

Ryan UK

 

[NateO]

Good thinking Ryan, the format is one that I'm accustomed to, didn't think of it.

Have a good one!

Cheers,

North Atlantic Treaty Organization
This message was edited by NateO on 2002-09-19 17:38

 

[Gregs]

Thanks Guys for the Help.

I used Ryan's code and works beautifully !!

Cheers

GREGS