@verb #1004:"calc_time" this none this rxdo #7165
@program #1004:"calc_time" this none this
"Time is stored in days since Jan 1, 1900, with fractions for hours & half-hours."
{time} = args
time = tofloat(time / 1800 * 1800)
time = time / 86400.0
return time + 25569.0
"Last modified by manta (#7165) on Wed Feb 23 17:36:46 2000 MST."
.