Create hours worked functions

Question

I am trying to create a form for employee attendance, the attendance table is populated by employee login and log out.
my table looks like this
table attendance
employee_id
schedule_id
start_time
end_time
total_time_worked (for this column i tried this formula in the property palette (:timeout-:timein) it did work but came out in .333333)
any ideas please?
thank you in advance.

Answer 1

Here is a function that return something more comprehensive:
CREATE OR REPLACE FUNCTION Diff_Time
     LD$Date_Deb IN DATE DEFAULT SYSDATE
     ,LD$Date_Fin IN DATE DEFAULT SYSDATE
     ,LN$JJ       OUT PLS_INTEGER
     ,LN$HH       OUT PLS_INTEGER
     ,LN$MI       OUT PLS_INTEGER
     ,LN$SS       OUT PLS_INTEGER
  ) Return NUMBER
IS
  dif   NUMBER ;
Begin
  If LD$Date_Fin < LD$Date_Deb Then
     Return ( -1 ) ;
  End if ;
  Select  LD$Date_Fin - LD$Date_Deb Into dif  From DUAL ;
  Select  trunc ( LD$Date_Fin - LD$Date_Deb)  Into LN$JJ  From DUAL ;
  Select  trunc ( (LD$Date_Fin - LD$Date_Deb) * 24) -  ( LN$JJ * 24 ) Into LN$HH From DUAL ;
  Select  trunc ( (LD$Date_Fin - LD$Date_Deb) * 1440) - ( (LN$HH * 60) + ( LN$JJ * 1440) ) Into LN$MI From DUAL ;
  Select  trunc ( (LD$Date_Fin - LD$Date_Deb) * 86400) - ( (LN$MI * 60) + (LN$HH * 3600) + ( LN$JJ * 3600 * 24 ) ) Into LN$SS From DUAL ;
  Return( dif ) ;
End ;
/That you can call as follow:
SQL> set serveroutput on
SQL> declare
  2   dd pls_integer;
  3   hh pls_integer;
  4   mi pls_integer;
  5   ss pls_integer;
  6   dif number ;
  7  Begin
  8   dif := diff_time ( sysdate, sysdate + 10.523, dd,hh,mi,ss ) ;
  9   dbms_output.put_line(
10     '(' || ltrim(to_char(dif,'99999.99999')) || ')' || '  '
11     || to_char(dd,'99999') || 'd '
12     || to_char(hh,'00') ||':'
13     || to_char(mi,'00') ||':'
14     || to_char(ss,'00')
15     ) ;
16  End;
17  /
(10.52300)      10d  12: 33: 07Francois