Commandbutton to enter current time

[RPT_22]

Hi,

I have created a userform but need help inserting code

1. I have commandbutton1 placed on a userform labelled Enter Time
2. When Enter Time button pressed, i need the current time to be entered into Textbox 1

Once time is entered into textbox1, i don`t want the time to change [remain static] as i may not send the userform data for up to 1 hour

Is this possible....thank you

 

[mohadin]

Hi try this

Private Sub CommandButton1_Click()
TextBox1.Value = Split(Now())(1)
End Sub

 

[RPT_22]

Hi mohadin
Thanks that works
What does the Split and (1) do in the code?
Thank you

 

[mohadin]

Well
NOW() will give you

11/20/2021 9:59​

Split do divide to an Array Array(0)= 11/20/2021 & Array(1)=9:59
So array(1) is what you want

 

[RPT_22]

Thanks mohadin

 

[mohadin]

Well come