【OS_DivsBetweenDates】

1. inputs:
   
2.         CurrDate( numeric ),
   
3.         FutureDate( numeric ),
   
4.         FirstDivMonth( numeric ),
   
5.         FirstDivDay( numeric ),
   
6.         DivAmt( numeric ),
   
7.         Rate( numeric ),
   
8.         pv( truefalse ) ;
   
9. 
   
10. variables:
    
11.         var0( false ),
    
12.         var1( 0 ),
    
13.         var2( 0 ),
    
14.         var3( 0 ),
    
15.         var4( 0 ),
    
16.         var5( 0 ),
    
17.         var6( 0 ),
    
18.         var7( 0 ),
    
19.         var8( 0 ),
    
20.         var9( 0 ),
    
21.         var10( 0 ),
    
22.         var11( 2.71828183 ),
    
23.         var12( 0 ),
    
24.         var13( 0 ),
    
25.         var14( 0 ),
    
26.         var15( 1 / 365 ) ;
    
27. 
    
28.                
    
29. var2        = FirstDivMonth        + 3 ;
    
30. if var2 > 12 then
    
31.         var2 = var2 - 12 ;
    
32. var3 = var2 + 3 ;
    
33. if var3 > 12 then
    
34.         var3 = var3 - 12 ;
    
35. var4 = var3 + 3 ;
    
36. if var4 > 12 then
    
37.         var4 = var4 - 12 ;
    
38. 
    
39. var9 = 0 ;
    
40. var1 = 0 ;
    
41. var0 = false ;
    
42. var13 = DateToJulian( CurrDate ) ;
    
43. var14 = DateToJulian( FutureDate ) ;
    
44. 
    
45. for var10 = var13 to var14
    
46.         begin
    
47.         var9 = var9 + 1 ;
    
48.         var6 = Month( JulianToDate( var10 ) ) ;
    
49.         condition1 = var6 = FirstDivMonth
    
50.                 or var6 = var2
    
51.                 or var6 = var3
    
52.                 or var6 = var4 ;
    
53.         if condition1
    
54.         then
    
55.                 begin
    
56.                 var7 = DayOfMonth( var10 ) ;
    
57.                                                                                              
    
58.                                              
    
59.                 var8 = MinList( FirstDivDay, LastDayOfMonth( var6 ) ) ;
    
60.                 if var7 = var8 then
    
61.                         begin
    
62.                         if pv then
    
63.                                 begin
    
64.                                 var12 = Power( var11, -Rate * var9 * var15 ) ;
    
65.                                 var1 = var1 + ( DivAmt * var12 ) ;
    
66.                                 end
    
67.                           else
    
68.                                 var1 = var1 + DivAmt ;
    
69.                         end ;
    
70.                 end ;
    
71.         end ;
    
72. 
    
73. OS_DivsBetweenDates = var1 ;

复制代码