floor函数bug！

brucecolvin

1. Params
   
2. 
   
3. Vars
   
4. 
   
5.         Numeric Status(-1.2);
   
6.         Numeric tmp;
   
7. 
   
8. Begin
   
9. 
   
10.        
    
11.         tmp = abs(Status);       //应等于1.2
    
12.        
    
13.         tmp = tmp-Floor(tmp,1); //应等于0.2
    
14.                
    
15.         tmp = tmp*10;            //应等于2
    
16.        
    
17.         Commentary(text(tmp)); //应等于2
    
18.        
    
19.         tmp = Floor(tmp,1);     //应等于2
    
20.        
    
21.         Commentary(text(tmp)); //应等于2，实际却等于1
    
22.        
    
23.         tmp = tmp/10;                          //应等于0.2，实际却等于0.1
    
24.        
    
25.         Commentary(text(tmp)); //应等于0.2，实际却等于0.1
    
26.        
    
27.         Commentary(text(IntPart(2))); //应该=2，实际也等于2;

复制代码

floor依然存在intpart函数一样的问题，很要命啊，程序化出这个问题！！！