Advertisement
Guest User

Untitled

a guest
Dec 6th, 2015
117
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. CREATE OR REPLACE FUNCTION "BEREKEN_RENTE"
  2. (in_bedrag IN INTEGER,
  3. in_rente IN INTEGER,
  4. in_date IN DATE,
  5. yes_no IN CHAR)
  6. RETURN NUMBER
  7.  IS
  8.     Resultaat NUMBER;
  9.     maanden NUMBER;
  10.     temp NUMBER;
  11.     jaren NUMBER;
  12.  BEGIN
  13. --
  14.     SELECT MONTHS_BETWEEN(TO_DATE (SYSDATE), TO_DATE (in_date)) INTO maanden FROM dual;
  15. --
  16.     temp := MOD(maanden, 12);
  17.     jaren := (maanden - temp) / 12;
  18.     maanden := temp;
  19.     Resultaat := in_bedrag * POWER((in_rente / 100) + 1, jaren);
  20.  --
  21.  IF maanden >= 6 THEN
  22.      Resultaat := Resultaat * (((in_rente / 2) / 100) + 1);
  23.  END IF;
  24.  
  25.  Resultaat := ROUND(Resultaat, 2);
  26. --
  27.  IF yes_no = 'Y' THEN
  28.      Resultaat := 0;
  29.  END IF;
  30. --
  31.  
  32. RETURN Resultaat;
  33. END;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement