1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
|
set serveroutput on
Declare
Valeur nUmber;
resultat Number;
Heure number;
Minute number;
Seconde number;
Begin
Resultat := To_Date('01012000'||To_Char(heurefin,'HHMISS'),'DDMMYYYYHH24MISS')-
To_Date('01012000'||To_Char(heuredebut,'HHMISS'),'DDMMYYYYHH24MISS');
--Dans les deux cas, le resultat est en jour. tu le formatte donc en heure...
Valeur:=resultat*24;
Heure := Trunc(Valeur);
Valeur:=(Valeur-Heure)*60;
Minute := Trunc(Valeur);
Valeur:=(Valeur-Minute)*60;
Seconde := Trunc(Valeur);
Dbms_Output.put_Line(
Heure ||'=='||
Minute ||'=='||
Seconde );
End; |
Partager