Changeset 238 for trunk/SRC/Calendar/date2jul.pro
- Timestamp:
- 03/27/07 15:43:18 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Calendar/date2jul.pro
r231 r238 1 1 ;+ 2 2 ; 3 ; @file_comments 3 ; @file_comments 4 4 ; gives Julian day equivalent of a date in yyyymmdd format 5 5 ; … … 14 14 ; if 50 <= year <= 99 --> year = 1900 + year 15 15 ; 16 ; @returns 16 ; @returns 17 17 ; date in Julian day 18 18 ; … … 25 25 ; 1 26 26 ; 27 ; @history 27 ; @history 28 28 ; Sebastien Masson (smasson\@lodyc.jussieu.fr) June 2005 29 29 ; … … 46 46 ;------------------------------------------------------------ 47 47 IF array_equal(date, long(date)) THEN return, julday(month, day, year) 48 48 49 49 fraction = date - long(date) 50 50 hour = floor(fraction * 24d) … … 52 52 minute = floor(fraction*1440d) 53 53 second = (TEMPORARY(fraction) - minute/1440d) * 86400d 54 54 55 55 return, julday(month, day, year, hour, minute, second) 56 56
Note: See TracChangeset
for help on using the changeset viewer.