Help with Time Statement

[HDfatboy03]

Hello

I'm working on creating a time stamp for work. Currently we are using a paper time sheet and I believe it would be simpler if we used excel.

Below is a statement that works for the date

S T A R T C O D E

Private Sub UserForm_Initialize()
'adds date automatically
Me.txtDate.Value = Format(Date, "Medium Date")
End Sub

E N D C O D E

Is there a way to use a statement like the one above to automatically add the current time (ex. 09:03) and the Day of the week (ex. Monday, Tuesday, Wednesday ... etc)

Any help will be great appreciated

Thanks in advance
HDfatboy03

 

[Norie]

You could change Date to Now and change the formatting string to something like "dddd dd mmmm yyyy hh:mm".

Obviously you can play around with the format.

 

[HDfatboy03]

I figured out the time stamp ... but still can't figure out the day of the week (ex. Monday, Tuesday, Wednesday ...etc.) Do you or anyone have any ideas ???

the code below works

Me.txtTime.Value = Format(Time, "medium time")

Thanks for any suggestions or help

 

[Norie]

Well the format I posted worked fine for the day of the week.

I don't know if there is a named format that includes the day of the week, so you might need to use a custom one like that.