openconsole

string time,date
int h,m,s,d,mo,y,seconds,days

time = time$
date = date$

print

'Seconds from midnight
seconds = Secs()

'Date in Julian format
days = Julian(y,mo,d)


print " days ",days," seconds ",seconds
print
print " Press any key to end..."
print
waitcon
end

Sub Julian(year :int, month :int, day : int),int
def a, jn, m, y : int
a = (14 - month)/12
y = year + 4800 - a
m = month + 12 * a - 3
jn = day + (153 * m + 2)/5 + y * 365 + y/4 - y/100 + y/400 - 32045
RETURN jn
endsub 

sub Secs(),int
h = val(mid$(time,1,2))
m = val(mid$(time,4,2))
s = val(mid$(time,7,2))

d = val(mid$(date,1,2))
mo = val(mid$(date,4,2))
y = val(mid$(date,7,4))

'Seconds from midnight
seconds = h * 3600
seconds = seconds + (m * 60)
seconds = seconds + s

return seconds
endsub