End of Month Function in Visual Basic

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Fredriksson - 24 Jan 2007 20:21 GMT

I would like to initialize a text box in a user form with the last day of the
month calculated from the current date (Today)

I tried the following:

Private Sub UserForm_Initialize()
Me.AcctPeriodInputBox.Value = EOMONTH(Date)
End Sub

How do I use Functions that are in Excel to calculate values in a macro?

Reply to this Message

merjet - 24 Jan 2007 20:34 GMT

Precede them by Application. or Application.WorksheetFunction.

Hth,
Merjet

Reply to this Message

Fredriksson - 25 Jan 2007 15:06 GMT

Thank you for your suggestion

>Precede them by Application. or Application.WorksheetFunction.
>
>Hth,
>Merjet

Reply to this Message

NickHK - 25 Jan 2007 02:56 GMT

If you are using VBA anyway, there's no need for external functions:

Public Function LastDayOfMonth(WhichMonth As Date) As Date
LastDayOfMonth = DateSerial(Year(WhichMonth), Month(WhichMonth) + 1, 0)
End Function

Adjust the argument/return value for your needs.

NickHK

> I would like to initialize a text box in a user form with the last day of the
> month calculated from the current date (Today)
[quoted text clipped - 6 lines]
>
> How do I use Functions that are in Excel to calculate values in a macro?

Reply to this Message

Fredriksson - 25 Jan 2007 15:06 GMT

Thank you for your suggestion

>If you are using VBA anyway, there's no need for external functions:
>
[quoted text clipped - 11 lines]
>>
>> How do I use Functions that are in Excel to calculate values in a macro?

Reply to this Message