免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
› 论坛 › 操作系统 › AS400 › rpg3（不是rpg4）里怎么样计算时间差？
最近访问板块 发新帖
查看: 2045 | 回复: 4
打印 上一主题 下一主题

rpg3（不是rpg4）里怎么样计算时间差？ [复制链接]

tom9030

论坛徽章:
0
跳转到指定楼层
1楼 [收藏(0)] [报告]
发表于 2005-02-03 13:17 |只看该作者 |倒序浏览
有没有类似的小程序或API计算时间差,比如计算从17：30到19：05相差95分钟
提供一下吧 ：）
coolk

论坛徽章:
0
2楼 [报告]
发表于 2005-02-04 13:01 |只看该作者

rpg3（不是rpg4）里怎么样计算时间差？

应该没有！

写个ILE的，再CALL来返回结果不就可以了吗？
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
tom9030

论坛徽章:
0
3楼 [报告]
发表于 2005-02-04 13:22 |只看该作者

rpg3（不是rpg4）里怎么样计算时间差？

用ile/rpg也行。可是俺不太懂，有example否？！
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
wildfish

论坛徽章:
0
4楼 [报告]
发表于 2005-02-04 16:12 |只看该作者

rpg3（不是rpg4）里怎么样计算时间差？


  2. H*****************************************************************      
  3. H* calculate hours different two date format.                           
  4. H*****************************************************************      
  5. HDATFMT(*ISO)                                                           
  6. H*****************************************************************      
  7. DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords++++++++++++++++++++++++++
  8. d DCC1            S               Z                                    
  9. d DCC2            S               Z                                    
  10. D                 DS                                                   
  11. DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords++++++++++++++++++++++++++
  12. DY6                       1      6S 0                                   
  13. Dhh                       1      2S 0                                   
  14. Dmm                       3      4S 0                                   
  15. Dss                       5      6S 0                                   
  16. C*****************************************************************      
  17. C* Main Line Routine                                                   
  18. C*****************************************************************      
  19. C*                                                                     
  20. C     *ENTRY        PLIST                                               
  21. CL0N01Factor1+++++++Opcode&ExtFactor2+++++++Result++++++++Len++D+HiLoEq.
  22. C                   PARM                    d1                8 0      
  23. C                   PARM                    t1                6 0      
  24. C                   PARM                    d2                8 0      
  25. C                   PARM                    t2                6 0      
  26. C                   PARM                    hourx             7 0      
  27. c*                                                                     
  28. CL0N01Factor1+++++++Opcode&ExtFactor2+++++++Result++++++++Len++D+HiLoEq
  29. C                   MOVEL     D1            DC1               8        
  30. C                   MOVEL     T1            TC1               6        
  31. C*                                                                     
  32. C                   MOVEL     D2            DC2               8        
  33. C                   MOVEL     T2            TC2               6        
  34. C*                                                                     
  35. c                   movel     *blanks       DAT1             26        
  36. c                   eval      DAT1= %subst(dC1:1:4) + '-'  +           
  37. C                                   %subst(dC1:5:2) + '-'  +           
  38. C                                   %subst(dC1:7:2) + '-'  +           
  39. C                                   %subst(TC1:1:2) + '.'  +           
  40. C                                   %subst(TC1:3:2) + '.'  +           
  41. C                                   %subst(TC1:5:2) +  '.000000'      
  42. C                   movel     dat1          dcc1                       
  43. C*                                                                     
  44. c                   movel     *blanks       DAT2             26        
  45. c                   eval      DAT2= %subst(dC2:1:4) + '-'  +           
  46. C                                   %subst(dC2:5:2) + '-'  +           
  47. C                                   %subst(dC2:7:2) + '-'  +           
  48. C                                   %subst(TC2:1:2) + '.'  +           
  49. C                                   %subst(TC2:3:2) + '.'  +            
  50. C                                   %subst(TC2:5:2) +  '.000000'        
  51. C                   movel     dat2          dcc2                        
  52. C*                                                                     
  53. C                   z-add     0000          HOURS             9 0      
  54. C                   z-add     0000          HOURx             7 0      
  55. C     DCC1          SUBDUR    DCC2          HOURS:*mn                  
  56. c* calculate the minutes.                                               
  57. c                   eval(h)   hourx = hours/60                          
  58. C*                                                                     
  59. C*                                                                     
  60. CL0N01Factor1+++++++Opcode&ExtFactor2+++++++Result++++++++Len++D+HiLoEq.
  61. C                   SETON                                        LR     
  62. C                   RETURN                                             
  63. ****************** End of data *****************************************
复制代码
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
tom9030

论坛徽章:
0
5楼 [报告]
发表于 2005-02-04 16:57 |只看该作者

rpg3（不是rpg4）里怎么样计算时间差？

拷过去试一下。
thank you!
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号：11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们：huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP