Difference Bet~n two dates?

Question

Hi
can u write a function which can return a string having the difference between two input dates? That must be in X Year,X days, X hours,X minutes,X seconds.
Just think One person was born in 01/01/1979 05:20:30.
Today just now the date is 25/09/2004 16:51:30.
What is the age of that person right now?
Please help me in detail in SQL code.
FARHAD

Answer 1

There are several ways you could do this.
The following example should help you.
SQL> declare
  2  date1 date;
  3  date2 date;
  4  v_years pls_integer;
  5  v_days pls_integer;
  6  v_partial_days number;
  7  v_hours pls_integer;
  8  --v_hours2 number;
  9  v_minutes pls_integer;
10  v_dseconds pls_integer;
11  v_dseconds2 pls_integer;
12  v_seconds pls_integer;
13  begin
14     date1 := to_date('25/09/2004 16:21:29','DD/MM/YYYY HH24:MI:SS');
15     date2 := to_date('01/01/1979 05:20:30','DD/MM/YYYY HH24:MI:SS');
16     select trunc(months_between(date1,date2)/12) years
17       into v_years
18       from dual;
19 
20     select trunc(date1 - add_months(date2, 12*v_years))
21       into v_days
22       from dual;
23 
24     select trunc(((date1 - add_months(date2,12*v_years)) - v_days)*24)
25       into v_hours
26       from dual;
27 
28     select to_number(to_char(date1,'MI'))*60 + to_number(to_char(date1,'SS')),
29            to_number(to_char(date2,'MI'))*60 + to_number(to_char(date2,'SS'))
30       into v_dseconds,v_dseconds2
31       from dual;
32     if v_dseconds < v_dseconds2 then
33        v_dseconds := v_dseconds + 3600;
34     end if;
35     v_minutes := trunc((v_dseconds-v_dseconds2)/60);
36     v_seconds := v_dseconds - v_dseconds2 - v_minutes*60;
37 
38     dbms_output.put_line(v_years);
39     dbms_output.put_line(v_days);
40     dbms_output.put_line(v_hours);
41     dbms_output.put_line(v_minutes);
42     dbms_output.put_line(v_seconds);
43  end;
44  /
25
268
11
0
59
PL/SQL procedure successfully completed.