;+ ; Contains the ddmm_to_ddd function ; ; :Author: ; Baptiste Cecconi ; ; :History: ; 2004/07/23: Created ; ; 2004/07/23: Last Edit ;- ; ;+ ; Gives the number of the day day/month/year in the year ; ; :Returns: ; <return desc here> ; ; :Params: ; year: in, required, type=sometype ; A parameter named year ; month: in, required, type=sometype ; A parameter named month ; day: in, required, type=sometype ; A parameter named day ;- FUNCTION ddmm_to_ddd, year, month, day dday=day if ( (year mod 4) eq 0) then begin nbdaysmonth=[31L, 29L, 31L, 30L, 31L, 30L, 31L, 31L, 30L, 31L, 30L, 31L] endif else begin nbdaysmonth=[31L, 28L, 31L, 30L, 31L, 30L, 31L, 31L, 30L, 31L, 30L, 31L] endelse for i=0, month-2 do begin dday=dday+nbdaysmonth[i] endfor return, dday end