Changeset 146 for trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET
- Timestamp:
- 07/26/06 10:57:43 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_calendar.pro
r134 r146 61 61 ; 62 62 value = long(value[0]) 63 ; make sure the value correspond 64 value = jul2date(date2jul(value)) 63 65 ; define year month day 64 66 year = value/10000l 65 67 month = (value MOD 10000L)/100L 66 68 day = value MOD 100L 67 ; make sure the values correspond to real dates68 if year EQ 0 then year = -169 if month EQ 0 then month = 670 if day EQ 0 then day = 1571 69 ; check that the date exists in the calendar 72 70 if (where(infowid.calendar EQ julday(month, day, year)))[0] EQ - 1 then return
Note: See TracChangeset
for help on using the changeset viewer.