Select current time ...想返回毫秒？？？

leojing

环境odbc+db2(AS/400)
高手们？？？？Select current time ...或其它方法想要毫秒，有没有那位大侠有办法！！！

leojing

在client access中用select current timestamp from ...能返回毫秒，应该是ODBC的问题，不知各位有没有用过？

qingzhou

可以通过RPGIV程序来获取，在RPGIV是有个TimeStamp这个时间函数来处理“毫秒”。

例如：以下是取当前的毫秒时间的简单的RPGIV例子。

1. 
   
2. D  LoanDate           S                     D        DatFmt(*ISO)
   
3. D  TimeStamp         S                     Z      
   
4. D  MSecond            S                    6    0
   
5. 
   
6. /FREE
   
7. 
   
8.    MSecond = %SubDt(TimeStamp : *MS);
   
9.   
   
10.    *inLR = *ON ;
    
11. 
    
12. /END-FREE
    
13. 
    
14. //  %SubDt是系统BIF，其功能类似于“取子串”。                    //
    
15. //  在Date and Time Durations中，*YEARS → *Y ...*SECONDS →  //  
    
16. //  *S , *MSECONDS → *MS                                                         //
    
17. 
    

复制代码

qingzhou

既然已经涉及到TimeStamp这个时间函数，我想顺带补充加深说明如下：

我们在日常处理PF中的记录时，有时需要准确判断当前记录是否已经被Update过？系统应用有时很需要的是判断当前的记录状态，这点在银行部门特别明显，据说以前招行的老版本程序中曾经有采用过TimeStamp来处理这个问题，现在流行的是采用触发器事务处理机制。

其实施思路大体如下：

1。先利用TimeStamp来取当前记录的时间值作为变量TMP1；

2。修改该条记录；

3。在Update之前重读该记录，并取时间值TMP2；

4。判断TMP1 ？= TMP2 ；

5。决定是否进行Update处理？