This Calendar file is for use in your custom MS Excel VBA applications. It can be used to select dates to use as inputs into variables you place in your code. It can also be used as a standalone app for you MS Excel worksheets. Using the handy Calendar Menu, you can open the form and select dates in three formats (general date, month-year, quarter-year) to include in your worksheets.

NOTE: I have updated this file to correct an issue with changing the year

NOTE: Your system colors will vary from the ones used in the image

To use this Calendar as part of an existing module, simply include the following code at the top of your procedure:

Dim RptDate
Dim Dt, Mt, Qt
Application.Run "CALENDAR.XLS!Calendar_Frm"
Dt = Workbooks("Calendar.xls").Sheets(1).Range("A1").Value
Mt = Workbooks("Calendar.xls").Sheets(1).Range("A2").Value
Qt = Workbooks("Calendar.xls").Sheets(1).Range("A3").Value
If Dt <> "" Then

RptDate = Dt
RptDate = Format(DateAdd("d", -6, RptDate), "mmdd") &
"-" & Format(RptDate, "mmddyy")
ElseIf Mt <> "" Then
RptDate = Format(Mt, "mmmyy")
Else
RptDate = Qt
End If
Note: The variable "RptDate" will now hold the date value for the remainder of your code.

Download the zipped File HERE
Save this file to:
"C:\Program Files\Microsoft Office\Office\Xlstart\"
and it will open every time you start a MS Excel session.

� 2002 Dan Herrera
 These functions may be distributed freely, but please give credit where credit is due.
And if you feel you must give credit, or have a request for a custom function/macro,
please send me a note DataMasterFla

Sign Guestbook View Guestbook

Back. Close

Hosted by www.Geocities.ws

1