find number of work days in month

[jhnnyboz]

So I am trying to find the number of work days in a month given that the month is a user inputted integer.

so this is what assigns the month

[VBA]month = InputBox("Enter the month as an number (EX. If you want to enter for January then enter 1).", "Info", "99")[/VBA]

then i want to find the nubmer of work days from month/1/current year to the end of the month.

so i have

[VBA]startdate = month / 1 / 12

enddate = WorksheetFunction.EoMonth(startdate, 0)
workdaysinmonth = Application.WorksheetFunction.NetworkDays(startdate, enddate)[/VBA]

but it thinks i am trying to divide the month by one and by 12 and never gives me a date.

its like i need something like

[VBA]startdate = &month& #1/12#[/VBA]

but that is not recogized by vba.

please help

[Tinbendr]

You should probably change the variable name as Month is a reserve word.

[VBA]startdate = MyMonth & "/1/12"[/VBA]

[Aussiebear]

If you were to use Option Explicit at the start of your code, it would pick up errors such as typos.undeclared variables and use of reserved words.

[Paul_Hossler]

I think you want to use DateSerial(..), as well as Option Explicit as well as explicitly Dim-ing your variables

[VBA]
Option Explicit
Sub demo()
Dim StartDate As Date, EndDate As Date
Dim Mon As Long
Mon = InputBox("Enter the month as an number (EX. If you want to enter for January then enter 1).", "Info", "99")

StartDate = DateSerial(2012, Mon, 1)
EndDate = DateSerial(Year(StartDate), Month(StartDate) + 1, 0)
End Sub
[/VBA]


Paul

[Bob Phillips]

You could also use

[VBA] EndDate = StartDate + 31 - Day(StartDate + 31)
[/VBA]

[robertflicks]

The last one from you "xld" seems quit simple and nice. Well. these was new thing that I get to learn here. These formula should mostly be used by people going to office. About me I used to calculate the working day at the start of every month. So it great to be the part of these thread and discussion.