功能在Profile 工具上。
要输入代码,如下。
子例程 date_and_time 返回实时时钟和日期的相关数据。返回数据包括本地时间以及本地时间与通用协调时间
(Universal Coordinated Time, UTC) 之间的时差,通用协调时间也称为格林威治标准时间 (*****wich Mean Time,
GMT)。
子例程 date_and_time() 的调用方式如下:
call date_and_time( date , time, zone, values )
date
CHARACTER*8
输出 以 CCYYMMDD 格式表示的日期,其中 CCYY 表示四位数的年份,MM 表示两位数的月份,DD
表示两位数的当月日期。例如:19980709
time CHARACTER*10
输出 以 hhmmss.sss 格式表示的当前时间,其中 hh 表示小时,mm 表示分钟,ss.sss 表示秒和毫秒。
zone
CHARACTER*5 输出 与 UTC 的时差,以小时数和分钟数表示,采用 hhmm
格式。
values INTEGER*4 VALUES(8) 输出 下面介绍的 8
个元素组成的整数数组。
INTEGER*4 values 数组中返回的 8
个值为
VALUES(1) 以 4
位整数表示的年份。例如:1998。
VALUES(2) 以从 1 到 12
的整数表示的月份。
VALUES(3) 以从 1 到 31
的整数表示的当月日期。
VALUES(4) 以分钟数表示的与 UTC
的时差。
VALUES(5) 以从 1 到 23
的整数表示的当天小时时间。
VALUES(6) 以从 1 到 59
的整数表示的一个小时中的分钟时间。
VALUES(7) 以从 0 到 60
的整数表示的一分钟中的秒数。
VALUES(8) 位于范围 0 至 999 中的毫秒数。