Getting day from a date 2

[Pete222]

I'm making a diary...but it only says the date (e.g. 4/8/02) and I want to convert that into the day name (e.g. sunday). thx for any help!

Pete.
My site: clix.to/F

 

[abrewis]

Try using this function:

Public Function GetDay(dteDate As Date) As String

Dim intDay As Integer

intDay = Weekday(dteDate)

Select Case intDay
Case 1
GetDay = "Sunday"
Case 2
GetDay = "Monday"
Case 3
GetDay = "Tuesday"
Case 4
GetDay = "Wednesday"
Case 5
GetDay = "Thursday"
Case 6
GetDay = "Friday"
Case 7
GetDay = "Saturday"
End Select

End Function

 

[CCLINT]

Or just:

= Format("4/8/02","dddd&quot

 

[Pete222]

Thx, both work!

Pete.
My site: clix.to/F