I am trying to write a function that will help me to budget for multiple
scenarios. Function: SalaryAmt,

Sample Datasheet:

A B C D E F G H I J
1 Month1 Month2 Month3 Month4
2 UseSalary 1 1 2 3
3 Annual Annual Annual 1/1/2005 2/1/2005 3/1/2005 4/1/2005
4 Name StartDate EndDate Salary1 Salary2 Salary3
5
6 Tom 1/1/2005 2/28/2005 10000 23000 43000 =fn =fn =fn =fn
7 Dick 3/1/2005 12000 14000 16000 =fn =fn =fn =fn
8 Harry 3/1/2005 14000 16000 18000 =fn =fn =fn =fn
9 Sally 4/1/2005 35000 38000 40000 =fn =fn =fn =fn


The scenarios, the numbers on row2 following UseSalary, are calculated on
another sheet and are based on net revenues for that month. One variable as
to how much a person can be paid is the net revenue situation.

If I insert the SalaryAmt function in any cell in within G6:J9 (the range
will change as I add months and people), the following is my attempt at the
proper logic:

€˜ I am assuming that the active cell is already formatted for currency, no
$, no decimals.
€˜ I think the function needs to know where it is

NowIamAt_r = ActiveCell row
NowIamAt_c = ActiveCell column

returnvalue= AS currency
loopcontrol=.T.

DOWHILE loopcontrol

€˜ First test, should the person be paid this month? They should not be paid
if the EndDate applies

IF Month1Date [NowIamAt_c,$3] is EndDate [$C,NowIamAt_r]

returnvalue = $ 0
loopcontrol=.F.
EXIT

ENDIF

€˜ If there is no EndDate, then need to see if the start date is same or
earlier than this months date

IF ThisMonthDate [NowIamAt_c,$3] is = StartDate [$B,NowIamAt_r]
€˜ It this test is passed, need to fill in value for the governing scenario
Select.case
Case [NowIamAt_c$2] = €œ1€�
returnvalue = ([$D, NowIamAt_r]/12)
Case [NowIamAt_c$2] = €œ2€�
returnvalue = ([$E, NowIamAt_r]/12)
Case [NowIamAt_c$2] = €œ3€�
returnvalue = ([$F, NowIamAt_r]/12)
Case [NowIamAt_c$2] < €œ1€�
Change variable type to text
returnvalue = €œerror<1€�
Case [NowIamAt_c$2] €œ3€�
Change variable type to text
returnvalue = €œerror3€�
ENDCASE

ELSE

€˜If test is not passed, returnvalue is zero

returnvalue = 0

ENDIF

Loopcontorl = .F.

ENDDO