$PBExportHeader$of_secondafter.srf
global type of_secondafter from function_object
end type

forward prototypes
global function long of_secondafter (datetime adtm_start, datetime adtm_end)
end prototypes

global function long of_secondafter (datetime adtm_start, datetime adtm_end);//////////////////////////////////////////////////////////////////////////////
//
//  Function:      of_SecondsAfter
//
//  Access:      public
//
//  Arguments:
//  adtm_start     Beginning time.
//  adtm_end       Ending time.
//
//  Returns:      long
//            Number of whole seconds between two date times.
//            If any argument's value is NULL, function returns NULL.
//            If any argument's value is Invalid, function returns NULL.
//
//  Description:    Given two datetimes, return the number of seconds between 
//            the two.
//
//////////////////////////////////////////////////////////////////////////////
//
//  Revision History
//
//  Version
//  5.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
//  Copyright © 1996-1997 Sybase, Inc. and its subsidiaries.  All rights reserved.
//  Any distribution of the PowerBuilder Foundation Classes (PFC)
//  source code by other than Sybase, Inc. and its subsidiaries is prohibited.
//
//////////////////////////////////////////////////////////////////////////////

long ll_total_seconds, ll_day_adjust
date ld_sdate, ld_edate
time lt_stime, lt_etime



ld_sdate = date(adtm_start)
ld_edate = date(adtm_end)

lt_stime = time(adtm_start)
lt_etime = time(adtm_end)

//Note: 86400 is number of seconds in a day.
If ld_sdate = ld_edate then 
  ll_total_seconds = secondsafter(  lt_stime,lt_etime)
Elseif ld_sdate < ld_edate Then
  ll_total_seconds = SecondsAfter(lt_stime,Time('23:59:59'))
  ll_day_adjust = DaysAfter(ld_sdate,ld_edate) -1
  If ll_day_adjust > 0 Then ll_total_seconds = ll_total_seconds + 86400 * ll_day_adjust
  ll_total_seconds = ll_total_seconds + SecondsAfter(Time('00:00:00'),lt_etime) +1
Else //end date < start date
  ll_total_seconds = SecondsAfter(lt_stime,Time('00:00:00'))
  ll_day_adjust = DaysAfter(ld_sdate,ld_edate) +1
  If ll_day_adjust < 0 Then ll_total_seconds = ll_total_seconds + 86400 * ll_day_adjust
  ll_total_seconds = ll_total_seconds + SecondsAfter(Time('23:59:59'),lt_etime) -1
end If

return ll_total_seconds

end function

create or replace function datediff( p_what in varchar2,
                                     p_d1   in date,
                                     p_d2   in date ) return number
  as
      l_result    number;
  begin
      select (p_d2-p_d1) *
             decode( upper(p_what),
                     'SS', 24*60*60, 'MI', 24*60, 'HH', 24, NULL )
       into l_result from dual;

      return l_result;
  end;

global function decimal gf_datediff(string as_what, datetime adt_d1, datetime adt_d2 );
Decimal lc_datediff

SELECT datediff( :as_what, :adt_d1, :adt_d1)
INTO :lc_datediff
FROM DUAL ;

Return lc_datediff

end function