Changeset 227 for trunk/SRC/Calendar/jul2date.pro
- Timestamp:
- 03/16/07 12:50:12 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Calendar/jul2date.pro
r205 r227 35 35 +( 10000L*year - 100L*month - day)*(year LT 0) 36 36 ; 37 IF total([hour NE 12, min NE 0, sec NE 0]) EQ 0 THEN return, long(res) $37 IF total([hour NE 12, min NE 0, abs(sec) GE 1.e-4]) EQ 0 THEN return, long(res) $ 38 38 ELSE return, double(res) + (hour / 24.0d0) + (min/1440.0d0) + (sec / 86400.0d0) 39 39
Note: See TracChangeset
for help on using the changeset viewer.