>Can anyone please tell me if you have created a class or
>a function that can return the End of the month date, including
>determining the leap year..

In the faq there is this function.
****
2. The last day of the month:
ldEndMonth = GoMonth(ldMyDate - Day(ldMyDate) + 1, 1) - 1
****

The basic idea is to skip to the next month. Go to the first day of that month then subtract 1.