ABAP:如何等待小数秒数

转载自：http://www.cnblogs.com/eagle-dtq/p/6834154.html

WAIT UP TO x SECONDS. 和CALL FUNCTION 'ENQUE_SLEEP'都只能支持整数的秒数（如果是非整数，则四舍五入），如果要WAIT非整数的描述，可以如下写法：

DATA: t1 TYPE i,t2 TYPE i.GET RUN TIME FIELD t1.
PERFORM zwait USING '0.1'.
GET RUN TIME FIELD t2.
WRITE t2.FORM zwait USING VALUE(second).DATA: d1  TYPE d,d2  TYPE d,t1  TYPE t,t2  TYPE t,tsl TYPE timestampl,s1  TYPE p DECIMALS 6,s2  TYPE p DECIMALS 6,sec TYPE p DECIMALS 6..GET TIME STAMP FIELD tsl.CONVERT TIME STAMP tsl TIME ZONE sy-zonlo INTO DATE d1 TIME t1.s1 = frac( tsl ).WHILE second > sec.GET TIME STAMP FIELD tsl.CONVERT TIME STAMP tsl TIME ZONE sy-zonlo INTO DATE d2 TIME t2.s2 = frac( tsl ).sec = ( ( d2 - d1 ) * 86400 ) + t2 - t1 + s2 - s1.ENDWHILE.ENDFORM.

******************************************************************************************************************

根据上述coding，整理成如下function：

最小等待秒数可以设置为'0.0000001'

FUNCTION zecc_set_wait_time.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     REFERENCE(IV_TIME) TYPE  TIMESTAMPL DEFAULT 1
*"----------------------------------------------------------------------DATA: d1  TYPE d,d2  TYPE d,t1  TYPE t,t2  TYPE t,tsl TYPE timestampl,s1  TYPE p DECIMALS 6,s2  TYPE p DECIMALS 6,sec TYPE p DECIMALS 6..GET TIME STAMP FIELD tsl.CONVERT TIME STAMP tsl TIME ZONE sy-zonlo INTO DATE d1 TIME t1.s1 = frac( tsl ).WHILE iv_time > sec.GET TIME STAMP FIELD tsl.CONVERT TIME STAMP tsl TIME ZONE sy-zonlo INTO DATE d2 TIME t2.s2 = frac( tsl )."24h = 86400sec = ( ( d2 - d1 ) * 86400 ) + t2 - t1 + s2 - s1.ENDWHILE.ENDFUNCTION.

原来的coding可以修改为：

DATA: t1 TYPE i,t2 TYPE i.GET RUN TIME FIELD t1.
*PERFORM zwait USING '0.1'.
CALL FUNCTION 'ZECC_SET_WAIT_TIME'EXPORTINGiv_time = '0.1'.GET RUN TIME FIELD t2.
WRITE t2.

ABAP:如何等待小数秒数相关推荐

Windows脚本中等待几秒的替代方法
用ping命令实现等待.等待的秒数可以用 -n 参数来控制.如果要等待10秒,参数是 -n 11 ping -n 11 127.0.0.1>nul [@more@] 来自 " ITPU ...
Thread.yield()方法表示交出主动权，join表示等待当前线程，可以指定秒数
Thread.yield()方法表示交出主动权,join表示等待当前线程,可以指定秒数学习了:http://www.importnew.com/14958.html 膜拜一下源码膜拜: Threa ...
js等待5秒后执行_Python+selenium自动化之等待
Selenium学习和使用过程中,比较常见的一个问题就是,弹窗定位不到.元素定位不到等,除了页面有frame.多窗口,就是没有加等待.代码运行的速度远远高于浏览器加载的速度,就像双人跑步运动,一个人快 ...
python 时间-秒_Python-代码等待10秒不直观，教你用进度条显示时间进度
1.前言你有没有试过代码里等待几秒再继续做下一件事,但是控制台日志啥都没打,一直傻傻的等? 今天教大家显示实时打印等了多少秒的进度条,希望大家喜欢. 2.工具登场今天跟大家分享的Python库就是 ...
让线程等待10秒_把python程序变成多线程
之前我们做的自动化工具,每当开始处理数据,GUI(图形界面)就会变成无响应了,用户体验很不好. 这次,我们来给工具加上多线程,让它在处理数据的同时,GUI也能进行交互. 首先,带大家简单了解下,什么是 ...
求平均数、百分率、最大值、最小值、两个字段相差秒数的SQL
平均数: avg(字段名) 百分率:分子/分母 count(case when 字段名及条件 then 1 else bull end) / count(*) 最大值: max(字段名) 最小值: m ...
oracler日期函数相差六个月_oracle中计算两个日期的相差天数、月数、年数、小时数、分钟数、秒数等...
oracle如何计算两个日期的相差天数.月数.年数.小时数.分钟数.秒数 1.相差天数(两个日期相减) --Oracle中两个日期相差天数-- select TO_NUMBER(TO_DATE('20 ...
将秒数转换为时分秒的c语言程序,秒数换算(c语言输入秒转化为时分秒)
2,433,290,981秒是多少天?(一天是按多少小时算的请注明) 谢谢 2,433,290,981/(60*60*24)=28163.09天一天当然是按24小时算秒到分钟的换算到小时的- - ...
Python编程：毫秒数换算成常见的小时数、分钟数、秒数
1.题目请你随便输入一个毫秒数,快速换算成常见的小时数.分钟数.秒数. # 如何让python计算结果保留两位小数A: # # 设结果为a: # 1)round(a,2) # 2)'%.2f' % ...
Oracle中计算两个日期的相差天数、月数、年数、小时数、分钟数、秒数
一.两个日期相差的小时.分钟.秒 1.1.实现效果 1.2.实现的sql语句 --Oracle中两个日期相差小时数-- select TO_NUMBER((TO_DATE('2021-09-22 11 ...

ABAP:如何等待小数秒数

ABAP:如何等待小数秒数相关推荐

最新文章

热门文章