Comments on: How To: Get the Weekday as Text in Excel VBA

By: Abhijeet

Abhijeet — Mon, 19 Oct 2009 09:54:25 +0000

I have a simpler formula to get weekdays
If cell A1 has a date, i would simply use a formula =text(A1,”ddd”) and i have the mon, tue, wed,etc for the relevant date in cell A1.
Thanks.

By: Mike

Mike — Tue, 15 Sep 2009 02:46:11 +0000

Hello all, Yes! I am a quite the newbie to Excel… I am hoping that one of you will have an answer to my question:
I am working on a production schedule in Excel. I have figured how long each job will take… now I would like to add the calculated time it will take to the start date, but also consider we only work 4 days a week (Monday- Thursday), for example: I don’t want the completion date to fall on a Saturday. Is there an easy way to achieve this?

By: Tiposaurus

Tiposaurus — Sun, 30 Aug 2009 20:10:59 +0000

Thanks for the comments.

As I said in the article, the code I wrote isn’t great. At the time it was a quick hack to provide an immediate solution. A couple of comments have given much better solutions.

#3, Bernard: Yep, a select case would certainly be more elegant. Alternatively, I suspect an improvement on my code would be to use Else If’s, rather than repeated If’s.

#4, Atroson: Thanks, I didn’t know the TEXT() function did that! I also notice that the following seems to work in Excel 2003:
=TEXT(A1,”ddd”) will return “Wed”, while
=TEXT(A1,”dddd”) will return “Wednesday”
So it doesn’t look like the weekday() function is needed.

By: Tonnie Bleumink

Tonnie Bleumink — Thu, 06 Aug 2009 09:55:18 +0000

Dankje voor deze handige functie, heb hem toegepast en werkt prima,

Thankx for this function, I used it en works fine

By: Atroson

Atroson — Fri, 31 Jul 2009 20:29:05 +0000

=TEXT(WEEKDAY(A1),”ddd”)

This is easier and faster to use than the nested IF statements. Hope this helps.

By: Bernard

Bernard — Mon, 27 Jul 2009 06:25:52 +0000

May be a select case would be more “elegant”?
Sub MyProcedure()
Dim intDay%
Dim strDay$
intDay = Weekday(Date)
strDay = dayText(intDay)
End Sub
Function dayText(intDay As Integer) As String
Select Case intDay
Case 1
dayText = “Sunday”
Case 2
dayText = “Monday”
Case 3
dayText = “Tuesday”
Case 4
dayText = “Wednesday”
Case 5
dayText = “Thursday”
Case 6
dayText = “Friday”
Case 7
dayText = “Saturday”
End Select
End Function

By: Ahmad Al-Musallami

Ahmad Al-Musallami — Sun, 19 Jul 2009 14:09:38 +0000

Hi.

I think that there is even an esier way to do it, using the cell formating (custom format).

STEPS:
1. Right Click the cell or press Ctrl + 1. The Format Cells window appears.

2. From the “Number” tab, select “Custom” from “Category” list on the left.

3. On the Type box write the following format code “ddd dd/mm/yyyy”.

4. Click OK.

5. Make sure that the cell if wide enough to display the number correctly, so if you see “##########” then you need to streach the column a bit wider.

Good luck.

Ahmad Al-Musallami
aalmusallami@gmail.com

By: Arup Adhikari

Arup Adhikari — Sat, 18 Jul 2009 04:03:43 +0000

i am very much thanks to you that you give me a lot of information of this source