DateValue: How to have a capitalised "weekday"?

[tinfanide]

Sub EntryDate()

Dim sDate As String, sTime As String

// "DDD" only returns a small-letter weekday
sDate = Format(DateValue(Now()), "yyyy-mm-dd DDD")

sTime = Format(TimeSerial(Hour(Now()), Minute(Now()), Second(Now())), "hh:mm:ss")

Selection.Text = "(" & sDate & ", " & sTime & ")"

End Sub

[gmaxey]

It works here. Returning "Thu" here.

You code can be greatly simplified:

Sub EntryDateII()
Selection.Text = Format(Now, "yyyy-mm-dd DDD hh:mm:ss")
End Sub

[tinfanide]

Originally Posted by gmaxey

It works here. Returning "Thu" here.

You code can be greatly simplified:

Sub EntryDateII()
Selection.Text = Format(Now, "yyyy-mm-dd DDD hh:mm:ss")
End Sub

Sorry. I should have made it clearer.
I would like to return THU instead of Thu.
Thanks.

[fumei]

Selection.Text = UCase(Format(Now, "yyyy-mm-dd DDD hh:mm:ss"))

As the day of the week is the ONLY alpha text, it becomes uppercase.

[tinfanide]

Yes, thanks.