【ELTimeToString】

1. [LegacyColorValue = true];
   
2. { ELTimeToString Function}
   
3. { This function accepts a EL time and returns the date string HH:MM }
   
4. { Written by eKam 8/ 2/2003 }
   
5. { TimeToStr, a different version, was also coded by Greg Ballard, 2004}       
   
6. { Bug fix    eKam 4/27/2004 }
   
7. 
   
8. inputs: TimeSelect( numericsimple );
   
9. var: s(""),strl(0);
   
10. s = NumToStr(TimeSelect,0);
    
11. strl = strlen(s);
    
12. if      strl = 4 then
    
13.         ELTimeToString =       LeftStr(s,2) + ":" + RightStr(s,2)
    
14. else if strl = 3 then
    
15.         ELTimeToString = "0" + LeftStr(s,1) + ":" + RightStr(s,2)
    
16. else if strl = 2 then
    
17.         ELTimeToString = "00:" + RightStr(s,2)
    
18. else if strl = 1 then
    
19.         ELTimeToString = "00:0" + RightStr(s,1)
    
20. else if strl = 0 then
    
21.         ELTimeToString = "00:00";

复制代码