Hello everyone,

A little bit stuck, I'm just wondering if anyone knows a way how I'd be able
to work out the 1st Day of a particular month, of a particular year.

So If I did the following

aString = WhatsTheDay(1, 2010)

the function "WhatsTheDay" would return "Fri" or "Friday"

Thanks for any help in advance!

Function WhatsTheDay(mnth As Integer, yr As Integer) As String
whatday = Format(DateSerial(yr, mnth, 1), "dddd")
End Function

--
Gary''s Student - gsnu200778

sorry:

Function WhatsTheDay(mnth As Integer, yr As Integer) As String
WhatsTheDay = Format(DateSerial(yr, mnth, 1), "dddd")
End Function
--
Gary''s Student - gsnu200778


"Gary''s Student" wrote:

Function WhatsTheDay(mnth As Integer, yr As Integer) As String
whatday = Format(DateSerial(yr, mnth, 1), "dddd")
End Function

--
Gary''s Student - gsnu200778

You sir, deserve a Pint of cold beer.

Thank you so much, I've been looking at a lot more complicated examples. I
feel a bit of a dummy now.

Thanks again!

"Gary''s Student" wrote:

sorry:

Function WhatsTheDay(mnth As Integer, yr As Integer) As String
WhatsTheDay = Format(DateSerial(yr, mnth, 1), "dddd")
End Function
--
Gary''s Student - gsnu200778


"Gary''s Student" wrote:

Function WhatsTheDay(mnth As Integer, yr As Integer) As String
whatday = Format(DateSerial(yr, mnth, 1), "dddd")
End Function

--
Gary''s Student - gsnu200778

You are very welcome.
Have a pleasant day!
--
Gary''s Student - gsnu200778


"NateBuckley" wrote:

You sir, deserve a Pint of cold beer.

Thank you so much, I've been looking at a lot more complicated examples. I
feel a bit of a dummy now.

Thanks again!

"Gary''s Student" wrote:

sorry:

Function WhatsTheDay(mnth As Integer, yr As Integer) As String
WhatsTheDay = Format(DateSerial(yr, mnth, 1), "dddd")
End Function
--
Gary''s Student - gsnu200778


"Gary''s Student" wrote:

Function WhatsTheDay(mnth As Integer, yr As Integer) As String
whatday = Format(DateSerial(yr, mnth, 1), "dddd")
End Function

--
Gary''s Student - gsnu200778

Just as a follow up.... if one doesn't, or doesn't want to, remember the
"dddd" argument, there is an alternative set of formulas available.

Function WhatsTheDay(mnth As Integer, yr As Integer) As String
WhatsTheDay = WeekdayName(Weekday(DateSerial(yr, mnth, 1)))
End Function

Rick


"Gary''s Student" wrote in message
...
sorry:

Function WhatsTheDay(mnth As Integer, yr As Integer) As String
WhatsTheDay = Format(DateSerial(yr, mnth, 1), "dddd")
End Function
--
Gary''s Student - gsnu200778


"Gary''s Student" wrote:

Function WhatsTheDay(mnth As Integer, yr As Integer) As String
whatday = Format(DateSerial(yr, mnth, 1), "dddd")
End Function

--
Gary''s Student - gsnu200778