How to convert 'weekday' from number into 'string'

[Dave Neve]

Hi

I'd like to know how to convert the following code so that it gives a day in
letters ie Monday, Tuesday etc rather than a number.

Thanks in advance

Sub fulldate()

MsgBox ("Nous sommes le " & Weekday((Date)) _
& " " & Str(Day(Date)) _
& " " & MonthName(Month(Date)) _
& " " & Str(Year(Date)))


End Sub

 

[Perry]

you'd be looking for the Format() function
Look it up in Help
or here
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbenlr98/html/vafctformatx.asp

Immediate window output:
? format(date, "dddd")
zaterdag
? format("21-10-2004", "dddd")
donderdag

Note: zaterdag = Saturday and donderdag = Thursday in Dutch :-0

Krgrds,
Perry

 

[Peter Hewett]

Hi Dave Neve

Just adding a little to what Perry has said, you can use the Format function to
do the whole thing in one go:

MsgBox Format$(Date, "dddd, dd mmmm yyyy")

HTH + Cheers - Peter

 

[Jay Freedman]

Hi Dave

In Word 2000 and later, the WeekdayName function will return the
correct name:

MsgBox ("Nous sommes le " & WeekdayName(Weekday(Date)) _

I don't have a system set up for multiple languages, but I believe
that WeekdayName returns the correct string for the language you
choose for Windows in the Regional and Language Options dialog.

For Word 97, the WeekdayName and MonthName functions don't exist, so
you would have to define a couple of arrays like this:

Dim WeekdayName As Variant
Dim MonthName As Variant
WeekdayName = Array("Sunday", "Monday", "Tuesday", _
"Wednesday", "Thursday", "Friday", "Saturday")
MonthName = Array("January", "February", "March", _
"April", "May", "June", "July", "August", _
"September", "October", "November", "December")

or the equivalent for the language you expect to use.