sppu-te-comp-content/DatabaseManagementSystems
sppu-te-comp-content/DatabaseManagementSystems
3
1
Fork 0
Code Issues Activity

Added out params for function as per req. p.s. Thanks to Macho for providing the patch.

Browse Source
This commit is contained in:
K 2024-11-09 12:05:14 +05:30
parent 06c90bf376
commit 997137287e
Signed by: notkshitij
GPG Key ID: C5B8BC7530F8F43F
1 changed files with 32 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
Practical/Practical Exam/PL-SQL/P7 - Age_calc.md
View File

@ -3,34 +3,37 @@
## Creating function
```sql
CREATE OR REPLACE FUNCTION Age_calc (p_dob IN DATE)
RETURN VARCHAR IS
-- declare
ageOP VARCHAR2(255);
years NUMBER;
months NUMBER;
days NUMBER;
CREATE OR REPLACE FUNCTION P7(
dob IN DATE,
f_month OUT NUMBER,
f_day OUT NUMBER
)
RETURN NUMBER
IS
current_date DATE := SYSDATE;
year_diff NUMBER;
month_diff NUMBER;
day_diff NUMBER;
BEGIN
year_diff := EXTRACT(YEAR FROM current_date) - EXTRACT(YEAR FROM dob);
month_diff := EXTRACT(MONTH FROM current_date) - EXTRACT(MONTH FROM dob);
day_diff := EXTRACT(DAY FROM current_date) - EXTRACT(DAY FROM dob);
years := EXTRACT(YEAR FROM SYSDATE) - EXTRACT(YEAR FROM p_dob);
months := EXTRACT(MONTH FROM SYSDATE) - EXTRACT(MONTH FROM p_dob);
days := EXTRACT(DAY FROM SYSDATE) - EXTRACT(DAY FROM p_dob);
IF (days < 1) THEN
months := months - 1;
days := days + EXTRACT(DAY FROM LAST_DAY(ADD_MONTHS(SYSDATE, -1)));
IF (day_diff < 0) THEN
month_diff := month_diff - 1;
day_diff := day_diff + EXTRACT(DAY FROM last_day(add_months(SYSDATE, -1)));
END IF;
IF (months < 1) THEN
years := years - 1;
months := months + 12;
IF (month_diff < 0) THEN
year_diff := year_diff - 1;
month_diff := month_diff + 12;
END IF;
ageOP := 'Given person is ' || years || ' years ' || months || ' months ' || days || ' days old.';
f_month := month_diff;
f_day := day_diff;
RETURN ageOP;
END Age_calc;
RETURN year_diff;
END;
/
```
@ -38,8 +41,13 @@ END Age_calc;
## Calling function
```sql
DECLARE
years NUMBER;
months NUMBER;
days NUMBER;
BEGIN
DBMS_OUTPUT.PUT_LINE(Age_calc(TO_DATE('2004-04-28', 'YYYY-MM-DD')));
years := P7(TO_DATE('2003-12-02', 'YYYY-MM-DD'), months, days);
DBMS_OUTPUT.PUT_LINE('Age: ' || years || ' Years ' || months || ' Months ' || days || ' Days.');
END;
/