alias dst_test2 {
var %hr 00:00:00
var %a $ctime($puttok($asctime($ctime),%hr,4,32))
while (%a >= 0) {
var %newtime $asctime(%a)
dec %a 3600 | var %oldtime $asctime(%a)
var %t1 $remove($gettok(%oldtime,4,32),:) , %t2 $remove($gettok(%newtime,4,32),:)
var %diff $calc(%t2 - %t1)
if ( !$istok(10000 -230000, %diff,32)) { echo -a from %oldtime to %newtime $base(%diff,10,10,5) }
}
}