Solved

# Function to automate calculation of sheet

Posted on 2011-09-20
Medium Priority
205 Views
Hi,

Have attached an example, basically need a function that returns a value based on a start and end date, i.e. Forcast(startdate,enddate,amount, excluded month 1, exc month 2, exc month 3, exc month 4).

In the example you will see in Column D a list of dates that amounts go out on, ie 14th or 28th of month etc.  Next to this in column E is the amount paid on that date.  Now the function will need to work out for each column how many of those payment dates are between the start and end date specified in the function call.

And then times the amount by the number of times that date appears.  It then needs to add this total together, and add in the (amount) figure as above and also the income figure which is calculated by number of FRIDAYS between that date times £565.

If the month is one of the excluded dates then it is not included in the calculation for that period, i.e. if I included 2 and 3 as the excluded months then it would not count these.

Columns F to I values right at the bottom show what should be right if the function is working as planned.

Cheers
Example.xlsx
0
Question by:StormFusion
• 3

Author Comment

ID: 36566187
0

Author Comment

ID: 36566194
0

Author Comment

ID: 36572801
Finally found something that has stumped the pro's lol
0

LVL 19

Accepted Solution

Arno Koster earned 2000 total points
ID: 36708395
Well, it's not hard to concoct a formula that delivers what you are looking for, the hard part is getting to know what exactly you are looking for.
The way i understand the description from an input viewpoint, you could be looking for a formula with 37 inputs (start date, end date, income plus 17 day values and 17 amounts) that has one output.
looking at the expected output columns F:I, you would be looking for a formula that takes the start date, end date, a single day number and a single corresponding day value as inputs and delivers a single output (thereby forgetting about the income on fridays)

If you want a function to represent the formula you are already using, it would be

``````Public Function Forcast(startdate As Date, enddate As Date, day As Integer, amount As Double) As String
Dim result As Double
Dim wage As Double

'-- initialise
result = 0
wage = 565

For d = startdate To enddate
If DatePart("d", d) = day Then result = result + amount
'If Weekday(d, vbMonday) = 5 Then result = result + wage
Next d
process = result

End Function
``````

you can un-comment the if weekday()=5 line to include wages on friday.
0

LVL 50

Expert Comment

ID: 37412247
This question has been classified as abandoned and is closed as part of the Cleanup Program. See the recommendation for more details.
0

## Featured Post

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.