Hi,

Alt+F11 to open Vb editor , right click 'ThisWorkbook' and insert module and
paste the code in.

Call with
=DayOfMonth()

At present it only works on today date but it would be easy to modify to
pass a date parameter.

Function DayOfMonth() As String
myday = Weekday(Now, 1)
For x = 1 To Day(DateSerial(Year(Date), Month(Date) + 1, 1) - 1)
testdate = DateSerial(Year(Now), Month(Now), x)
testday = Weekday(DateSerial(Year(Now), Month(Now), x))
If testdate Now Then GoTo getmeout
If myday = testday Then dom = dom + 1
Next
getmeout:
DayOfMonth = Date & " is the " & dom & " " _
& WeekdayName(Weekday(Now, 2), abbreviate, 2) _
& " of " & MonthName(Month(Date))
End Function

Mike

"geebee" wrote:

Hi,

I need to write something which determines whether or not the day is the
first, second, third or fourth day. For example if it is Thursday, determine
whether or now its the first, second, third or fourth Thursday of the month.

Thanks in advance,
geebee