Does VBA have a function which accepts an integer
input between 1 and 7, which returns a string value
to represent the corresponding day of the week??

For example, if you give the function an integer value
of 1, then it should give back a string of "Sunday"...
and the number 7 should return "Saturday".

I know I can easily write my own function, but I'm
curious if VBA provides a function already. No
need for me to reinvent the wheel.

thank you

Don't think so, you would need to write one

Function MyWeekDay(DayNum As Long) As String
Dim Days As Variant

MyWeekDay = Format(Date - (Weekday(Date) - 2) + DayNum - 2, "ddd")
End Function


HTH

Bob

"Robert Crandal" wrote in message
...
Does VBA have a function which accepts an integer
input between 1 and 7, which returns a string value
to represent the corresponding day of the week??

For example, if you give the function an integer value
of 1, then it should give back a string of "Sunday"...
and the number 7 should return "Saturday".

I know I can easily write my own function, but I'm
curious if VBA provides a function already. No
need for me to reinvent the wheel.

thank you

Hello Robert,

Via VBA you can use
Format(n,"ddd")
or
Application.Worksheetfunction.Text(n,"ddd")
where n is your number 1, 2, 3, ... (starting with 1 = Sunday)

Regards,
Bernd

I just found out that VBA does actually provide a function of it's
own. It is called "WeekdayName()"

It works as follows:

WeekdayName(1) == returns "Sunday"
WeekdayName(1) == returns "Sunday"
WeekdayName(1) == returns "Sunday"
WeekdayName(1) == returns "Sunday"
WeekdayName(1) == returns "Sunday"
WeekdayName(1) == returns "Sunday"


"Bob Phillips" wrote in message
...
Don't think so, you would need to write one

Function MyWeekDay(DayNum As Long) As String
Dim Days As Variant

MyWeekDay = Format(Date - (Weekday(Date) - 2) + DayNum - 2, "ddd")
End Function

I mean:

WeekdayName(1) == returns "Sunday"
WeekdayName(2) == returns "Monday"
WeekdayName(3) == returns "Tuesday"
WeekdayName(4) == returns "Wednesday"
WeekdayName(5) == returns "Thursday"
WeekdayName(6) == returns "Friday"
WeekdayName(7) == returns "Saturday"

Nice, that would work just as well too!

Thank you everyone!


"Bernd P" wrote in message
...
Hello Robert,

Via VBA you can use
Format(n,"ddd")
or
Application.Worksheetfunction.Text(n,"ddd")
where n is your number 1, 2, 3, ... (starting with 1 = Sunday)

Aah yes, I recall seeing that once now you mention, just never had cause to
use it.

Bob

"Robert Crandal" wrote in message
...
I just found out that VBA does actually provide a function of it's
own. It is called "WeekdayName()"

It works as follows:

WeekdayName(1) == returns "Sunday"
WeekdayName(1) == returns "Sunday"
WeekdayName(1) == returns "Sunday"
WeekdayName(1) == returns "Sunday"
WeekdayName(1) == returns "Sunday"
WeekdayName(1) == returns "Sunday"


"Bob Phillips" wrote in message
...
Don't think so, you would need to write one

Function MyWeekDay(DayNum As Long) As String
Dim Days As Variant

MyWeekDay = Format(Date - (Weekday(Date) - 2) + DayNum - 2, "ddd")
End Function

Hello Robert,

Good one.

Regards,
Bernd