; NAME: ; CONVTIME ; ; AUTHOR: ; Jiraporn Whalley (whalley@coaps.fsu.edu) ; ; REVISION for Y2K: ; AUTHOR: ; Shyam Lakshmin (lakshmin@cs.fsu.edu) ; DATE: ; July 8, 1999 ; ; PURPOSE: ; This function returns time in minutes from 1-1-1980 00:00. ; ; CALLING SEQUENCE: ; RESULT = CONVTIME(YR, MO, DY, HR, MN) ; ; INPUTS: ; YR (Integer) Year in the range [1980, 2020]. ; MO (Integer) 2 digits abbreviation of month, [1, 12]. ; DY (Integer) Day of month, [1, 31]. ; HR (Integer) Hour of the day, [0, 23]. ; MN (Integer) Minute of the hour, [0, 59]. ; ; OUTPUTS: ; RESULT: (Long) Minutes from 1-1-1980 00:00. ; ; KEYWORD PARAMETERS: ; ; RESTRICTIONS: ;- ;============================================================================= FUNCTION CONVTIME, yr, mo, dy, hr, mn year = LONARR(41) year(*) = [527040, 525600, 525600, 525600, 527040, 525600, 525600, 525600, $ 527040, 525600, 525600, 525600, 527040, 525600, 525600, 525600, $ 527040, 525600, 525600, 525600, 527040, 525600, 525600, 525600, $ 527040, 525600, 525600, 525600, 527040, 525600, 525600, 525600, $ 527040, 525600, 525600, 525600, 527040, 525600, 525600, 525600, $ 527040] mon_of_yr = LONARR(12) mon_of_yr(*) = [44640, 40320, 44640, 43200, 44640, 43200, $ 44640, 44640, 43200, 44640, 43200, 44640] mon_of_leapyr = LONARR(12) mon_of_leapyr(*) = [44640, 41760, 44640, 43200, 44640, 43200, $ 44640, 44640, 43200, 44640, 43200, 44640] min_in_day = 1440 min_in_hr = 60 t = 0L y = yr - 1980 FOR i = 0, y - 1 do t = t + year(i) m = mo(0) m = m - 1 IF (yr MOD 4) EQ 0 THEN $ month = mon_of_leapyr $ ELSE $ month = mon_of_yr FOR i = 0, m-1 DO t = t + month(i) d = LONG(dy(0) - 1) * min_in_day t = t + d t = t + hr * min_in_hr t = t + mn RETURN, t END