OpenVMS Source Code Demos

calc_date_time_diff_002.com

$!===========================================================
$! title   : CALC_DATE_TIME_DIFF_002.com
$! author  : Neil Rieck
$! created : 2019-01-28
$! purpose : compute the difference between two dates in DCL
$! platform: VMS on VAX; OpenVMS on Alpha; OpenVMS on Itanium
$!===========================================================
$ say :== write sys$output
$ say "-i-time1: ",f$cvtime()
$ time1 = f$time()
$ wait 0:0:03
$ say "-i-time2: ",f$cvtime()
$ time2 = f$time()
$ say "-i-diff : ",f$delta_time(time1,time2)
$ exit

---

Back to Home
Neil Rieck
Waterloo, Ontario, Canada.