Подсчет разницы между датами

CREATE TABLE "Debtor" (
"debtor_id"  SERIAL NOT NULL /* идентификатор должника */,
"name" VARCHAR(100) NOT NULL /* имя должника */,
"amount" MONEY NOT NULL DEFAULT 0 /* сумма долга */,
"flagRefund" BOOLEAN NOT NULL DEFAULT '0' /* флаг погашения */,
"interestRate" SMALLINT NOT NULL DEFAULT 0 /* процентная ставка */,
"dealDate" DATE NOT NULL DEFAULT CURRENT_TIMESTAMP /* дата сделки */,
"flagDisposableAccrualInterest" BOOLEAN NOT NULL DEFAULT '1' /* флаг одноразового начисления процентов */,
"flagMonthlyInterestCharge" BOOLEAN NOT NULL DEFAULT '0' /* флаг ежемесячного начисления процентов */,
"flagAnnualInterestCharge" BOOLEAN NOT NULL DEFAULT '0' /* флаг ежегодного начисления процентов */,
"flagDelete" BOOLEAN NOT NULL DEFAULT '0' /* флаг удаления записи */,
"accountMoney_id_AccountMoney" INTEGER NOT NULL /* идентификатор счёта */,
"user_id_User" INTEGER NOT NULL /* идентификатор пользователя */,
PRIMARY KEY ("debtor_id")
);

-- -- Погасить долг
-- -- 1. Рассчитать сумму, которую должник отдал нам:
--        если флаг одноразового начисления процентов трушный,
--        то
--        1.прибавляем к денежному счету(сумма долга)* (1+процент)
--        2.ставим флаг погашен 
--        если флаг ежемесячного начисления процентов трушный,
--        то
--        1. считаем количество месяцев  
--        2. прибавляем к денежному счету ФОРМУЛА
--        3. ставим флаг погашен
--        если флаг ежегодного начисления процентов трушный,
--        то
--        1. считаем количество месяцев  
--        2. прибавляем к денежному счету ФОРМУЛА
--        3. ставим флаг погашен
-- -- 2. Прибавить эту сумму к счету
--        
CREATE FUNCTION DebtRepaid(debtor_id_var INTEGER) RETURNS void AS 
'
DECLARE
  flagDisposableAccrualInterest_var BOOLEAN;
  flagMonthlyInterestCharge_var BOOLEAN;
  flagAnnualInterestCharge_var BOOLEAN;
  
  currBalance      MONEY;
  idUser           INTEGER;
  idAmountAccount  INTEGER; 
  sum              MONEY;
  finalSum         MONEY;
  interestRate_var SMALLINT;
  numberMonths     SMALLINT;
  numberYear       SMALLINT;
 
BEGIN
 
  -- Узнаем значение флага одноразового начисления процентов
  SELECT INTO flagDisposableAccrualInterest_var "flagDisposableAccrualInterest"
  FROM "Debtor"
  WHERE "debtor_id"= debtor_id_var;
  
  -- Узнаем значение флага ежемесячного начисления процентов
  SELECT INTO  flagMonthlyInterestCharge_var "flagMonthlyInterestCharge"
  FROM "Debtor"
  WHERE "debtor_id"= debtor_id_var;
  
  -- Узнаем значение флага ежегодного начисления процентов
  SELECT INTO flagAnnualInterestCharge_var "flagAnnualInterestCharge"
  FROM "Debtor"
  WHERE "debtor_id"= debtor_id_var;
 
  -- Узнаем сумму долга (без процентов)
  SELECT INTO sum "amount"
  FROM "Debtor"
  WHERE "debtor_id"= debtor_id_var;
 
  -- Узнаем процентную ставку 
  SELECT INTO interestRate_var "interestRate"
  FROM "Debtor"
  WHERE "debtor_id"= debtor_id_var;
 
  -- Узнаем идентификатор счёта
  SELECT INTO idAmountAccount "accountMoney_id_AccountMoney"
  FROM "Debtor"
  WHERE "debtor_id"= debtor_id_var;
 
  -- Узнаем текущий баланс счета
  SELECT INTO currBalance "currentBalance"
  FROM "AccountMoney"
  WHERE "accountMoney_id"= idAmountAccount;
 
  -- флаг одноразового начисления процентов
  IF (flagDisposableAccrualInterest_var = TRUE ) THEN
 
     currBalance:= currBalance+(currBalance*interestRate_var/100);
     -- Ставим флаг погажения долга
     UPDATE "Debtor" 
     SET 
     "flagRefund" = TRUE
     WHERE "debtor_id" = debtor_id_var;
 
     UPDATE "AccountMoney" 
     SET 
     "currentBalance"  = currBalance
     WHERE "accountMoney_id" = idAmountAccount;
  
  -- флаг ежемесячного начисления процентов
  ELSEIF (flagMonthlyInterestCharge_var  = TRUE) THEN
     --
     --
     -- Ставим флаг погажения долга
     UPDATE "Debtor" 
     SET 
     "flagRefund" = TRUE
     WHERE "debtor_id" = debtor_id_var;
  -- флаг ежегодного начисления процентов
  ELSEIF (flagAnnualInterestCharge_var  = TRUE) THEN
     --
     --
     -- Ставим флаг погажения долга
     UPDATE "Debtor" 
     SET 
     "flagRefund" = TRUE
     WHERE "debtor_id" = debtor_id_var;
  ELSE
    -- 
    -- 
    NULL;
  END IF;
    
END;
'
LANGUAGE plpgsql;