Re: Modified Dietz program for 12C (inc. program) Message #12 Posted by tony(nz) on 16 June 2006, 7:12 a.m., in response to message #11 by Les Wright
Matt - I've now added a program - see below
Les, Here is an example using your Sigma+ design. The
remaining SL depreciable balance factor is used to to get the
weights.
MVB=1000 on 12.312005
MVE=1600 on 3.312006
100 paid on 1.152006
150 paid on 2.152006
200 paid on 3.152006
What is the modified Dietz return?
M.DY, CLEAR FIN, CLEAR SIGMA, 1 PV
12.312005 STO 0 3.312006 DDYS n
RCL 0 1.152006 DDYS SL RDN 100 Sigma+
RCL 0 2.152006 DDYS SL RDN 150 Sigma+
RCL 0 3.152006 DDYS SL RDN 200 Sigma+
RCL 6 1000 + 1600 LASTX - RCL 2 - %T
12.58%.
Ref: HPCC DataFile V23N2 P11 for documentation of the depreciation functions. SL doesn't use i or PMT.
The program below automates the above, for any number of periods.
[i] is used for the linked return, [PMT] for the MV and R0 and R7 for dates.
Each number only needs to be keyed in once.
1. key in program
2. Initialisation
M.DY(only because this is used in the example), CLEAR FIN, 1 PV
3. Initial data input. The above example is extended for another quarter.
To re-start this quarter's cashflow from here, while here or in step 4a, [f[[PRGM] first.
12.312005 STO 7 1000 PMT (MVB)
4a. First quarter, with MVE=1600:
3.312006 R/S, see 90
1.152006 ENTER 100 R/S, see 1.00
2.152006 ENTER 150 R/S, see 2.00
3.152006 ENTER 20 R/S, see 3.00, oops mistake!
LASTX sig- , see 2.00
3.152006 ENTER 200 R/S, see 3.00
4b. Now we are finished the cash flow input.
GTO 23 1600 R/S , see 12.58, R/S , see 12.58 (linked return, just the one period so far)
5a. Second quarter, with MVE=2000:
6.302006 R/S, see 91
4.152006 ENTER 100 R/S, see 1.00
5.152006 ENTER 150 R/S, see 2.00
6.152006 ENTER 200 R/S, see 3.00
5b.
GTO 23 2000 R/S , see -2.79 (this quarter return), R/S , 9.44 (two quarter return)
etc
[f][P/R] | | When cash flow entry is |
[f]CLEAR[PRGM] |00- | finished: [g][GTO]23 |
[RCL]7 |01- 45 7 | key in MVE, press [R/S] |
[STO]0 |02- 44 0 | |
[x<>y] |03- 34 |[RCL]6 |23- 45 6 |
[STO]7 |04- 44 7 |[RCL][PMT] |24- 45 14 |
[g][ddays] |05- 43 26 |[+] |25- 40 |
[n] |06- 11 |[x<>y] |26- 34 |
[f]CLEAR[Sigma] |07- 42 32 |[PMT] |27- 14 |
[RCL][n] |08- 45 11 |[ENTER] |28- 36 |
[R/S] |09- 31 |[g][LSTx] |29- 43 36 |
[x<>y] |10- 34 |[-] |30- 30 |
[RCL]0 |11- 45 0 |[RCL]2 |31- 45 2 |
[x<>y] |12- 34 |[-] |32- 30 |
[g][ddays] |13- 43 26 |[%T] |33- 23 |
[x<>y] |14- 34 |[R/S] |34- 31 |
[RDN] |15- 33 |[RCL][i] |35- 45 12 |
[f][SL] |16- 42 23 |[%] |36- 25 |
[x<>y] |17- 34 |[g][LSTx] |37- 43 36 |
[RDN] |18- 33 |[+] |38- 40 |
[RDN] |19- 33 |[+] |39- 40 |
[RDN] |20- 33 |[i] |40- 12 |
[SIG+] |21- 49 |[g][GTO]00 |41- 43,33 00 |
[g][GTO]09 |22- 43,33 09 |[f][P/R] | |
Cheers, Tony
Edited: 16 June 2006, 6:39 p.m.
|