日期与时间运算

xiaoshizi928 · 发表于 2010/10/7 16:30:43

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。如果您注册时有任何问题请联系客服QQ： 83569622 　。

您需要登录才可以下载或查看，没有帐号？注册

x

*&---------------------------------------------------------------------*
*& Report  Z_XIAOSHIZI_PROGRAM
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT  z_xiaoshizi_program.
*针对字符串的操作操作符两边是不能有空格的
*针对运算的操作，运算符两边都是要有空格的
DATA: Mdate  TYPE  D.
   Mdate  =  SY-DATUM.  "如传回 19971015
   Mdate+6(2)  =  '01'. "Mdate 变成 19971001
   Mdate  =  Mdate - 1.  "Mdate 变成 19970931
WRITE : / Mdate.

DATA: HOURS  TYPE  I,
            MINUTES  TYPE  I,
            T2  TYPE  T  VALUE '200000',
            T1  TYPE  T  VALUE  '183000'.
      HOURS = ( T2 - T1 ) / 3600.  "计算有几小时
      MINUTES = ( T2 - T1 ) / 60.  "计算几分钟
WRITE : / HOURS,MINUTES.

DATA : Mdate1 TYPE Datum,
   Mdate2 TYPE D.
   Mdate1 = '20100722'.
   Mdate2 = SY-DATUM.
WRITE : Mdate1,'********',Mdate2.

xiaoshizi928 · 发表于 2010/10/7 16:30:54

*&---------------------------------------------------------------------*
*& Report  Z_XIAOSHIZI_PROGRAM
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  z_xiaoshizi_program.

*针对字符串的操作操作符两边是不能有空格的
*针对运算的操作，运算符两边都是要有空格的

DATA: Mdate  TYPE  D.
   Mdate  =  SY-DATUM.  "如传回 19971015
   Mdate+6(2)  =  '01'. "Mdate 变成 19971001
   Mdate  =  Mdate - 1.  "Mdate 变成 19970931

WRITE : / Mdate.

DATA: HOURS  TYPE  I,
            MINUTES  TYPE  I,
            T2  TYPE  T  VALUE '200000',
            T1  TYPE  T  VALUE  '183000'.
      HOURS = ( T2 - T1 ) / 3600.  "计算有几小时
      MINUTES = ( T2 - T1 ) / 60.  "计算几分钟

WRITE : / HOURS,MINUTES.

DATA : Mdate1 TYPE Datum,
   Mdate2 TYPE D.

   Mdate1 = '20100722'.
   Mdate2 = SY-DATUM.

WRITE : Mdate1,'********',Mdate2.

zhangxing_zx · 发表于 2011/4/2 12:58:15

感謝分享~謝謝

帐号		自动登录	找回密码
密码			注册

社区人物壹佰网重点话题	分享知识原创连载活动正式启动已有673人参加查看全部会员靓照旅行分享文学连载	壹佰读书会开始招收成员了
招聘求职壹佰网信息化选型平台	倾听用户的心声纵横四海谈IT如何提升企业管理管理小说连载《苏州桥》	如何获取努力值
原创连载－我来管管看 ERP分享+	推荐连载：[已结帖][分享知识原创连载]财务供应链项目新手实施手记：记录自己正	入门学习-致所有初学者

[SAP其他资料区] 日期与时间运算

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。如果您注册时有任何问题请联系客服QQ： 83569622 　。

浏览过的版块

[SAP其他资料区] 日期与时间运算

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。如果您注册时有任何问题请联系客服QQ： 83569622 。

浏览过的版块

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。如果您注册时有任何问题请联系客服QQ： 83569622 　。