date_2 = interval(2)
datesecs = date_2/10000*secondsperhour +
& mod(date_2/100,100)*secondsperminute +
& mod(date_2,100)
integer date_1,date_2
date_2 = 0
date_2 = date(2)
date_2 = -date(2)
ss = mod(date_2,100) +
& date_2/10000*secondsperhour
integer date_2