FUNCTION utc2diff, intime, start_time=start_time, errmsg=errmsg
;
   ON_ERROR, 2
   errmsg = ''
   
   IF N_PARAMS() LT 1 THEN BEGIN
      
      PRINT, 'UTC2DIFF -- Syntax error.'
      PRINT, '   Usage: Result=UTC2DIFF(intime [,start_time=xxx [,errmsg=errmsg]])'
      PRINT, ' '
      PRINT, ' Example:'
      PRINT, ' '
      PRINT, "   Result=UTC2DIFF('25-FEB-1999')"
      PRINT, '   This example returns the diffrence in days between'
      PRINT, '   2-dec-1995 (default) and 25-feb-1999'
      PRINT, ' ' 
      PRINT, "   Result=UTC2DIFF('25-FEB-1999',start='1-JAN-1999')"
      PRINT, '   This example returns the diffrence in days between'
      PRINT, '   1-JAN-1999 and 25-feb-1999'
      PRINT, ' ' 
      RETURN,-1
   ENDIF
   
   IF KEYWORD_SET(start_time) THEN s_date = start_time ELSE $
      s_date = '02-DEC-1995'
   
   s_datemjd = anytim2utc(s_date,errmsg=errmsg)
   IF errmsg NE '' THEN GOTO, handle_error
   
   e_datemjd = anytim2utc(intime,errmsg=errmsg)
   IF errmsg NE '' THEN GOTO, handle_error
   
   diff_day = e_datemjd.mjd + 1 - s_datemjd.mjd
   
   RETURN, diff_day
handle_error:
   MESSAGE, /cont, errmsg
   RETURN,-1
END


;---------------------------------------------------------------------------
; End of 'UTC2DIFF.PRO'.
;---------------------------------------------------------------------------