FUNCTION hms2sec,hms

s=hms MOD 100
m=(FLOOR(hms)/100) MOD 100
h=FLOOR(hms/10000.)
RETURN,(h*60.+m)*60.+s
END