Mega Code Archive
BINARY_DOUBLE Demo
<![CDATA[
SQL>
SQL> DECLARE
2 bd BINARY_DOUBLE;
3 bd_area BINARY_DOUBLE;
4 bd_sine BINARY_DOUBLE;
5 nm NUMBER;
6 nm_area NUMBER;
7 nm_sine NUMBER;
8 pi_bd BINARY_DOUBLE := 3.1415926536d;
9 pi_nm NUMBER := 3.1415926536;
10 bd_begin TIMESTAMP(9);
11 bd_end TIMESTAMP(9);
12 bd_wall_time INTERVAL DAY TO SECOND(9);
13 nm_begin TIMESTAMP(9);
14 nm_end TIMESTAMP(9);
15 nm_wall_time INTERVAL DAY TO SECOND(9);
16 BEGIN
17 bd_begin := SYSTIMESTAMP;
18 bd := 1d;
19 LOOP
20 bd_area := bd * bd * pi_bd;
21 bd := bd + 1d;
22 EXIT WHEN bd > 5000000;
23 END LOOP;
24 bd_end := SYSTIMESTAMP;
25
26
27 END;
28 /
PL/SQL procedure successfully completed.
SQL>
]]>