Manipulação de datas

Delphi
1. Verifica se o ano é bissexto

function IsThisLeapYear: Boolean;
begin
Result := IsLeapYear(YearOf(Date));
end;

Oracle

• SYSDATE - retorna a data e a hora atual do banco de dados
  
  
  SELECT SYSDATE FROM dual;
  
  SYSDATE
  
  ---------------------
  
  30/07/2009 12:00:00



• ADD_MONTHS - somando meses ou subtraindo meses
  
  
  SELECT ADD_MONTHS(SYSDATE,1) FROM DUAL;
  
  
  ADD_MONTHS(SYSDATE,1)
  
  --------------------
  
  30/08/2009 12:00:00



• LAST_DAY - último dia do mês da data passada como parâmetro
  
  
  SELECT LAST_DAY(sysdate) FROM dual;
  
  
  LAST_DAY(SYSDATE)
  
  -----------------
  
  30/04/2009 10:17:00



• NEXT_DAY - próximo dia da semana
  
  
  SELECT SYSDATE, NEXT_DAY(SYSDATE,7) FROM dual;
  
  
  SYSDATE     NEXT_DAY(SYSDATE,7)
  
  ----------- -------------------
  
  06/04/2009  11/04/2009



• MONTHS_BETWEEN - número de meses que existem entre duas datas
  
  
  SELECT MONTHS_BETWEEN(ADD_MONTHS(SYSDATE,5),SYSDATE) FROM DUAL;
  
  
  MONTHS_BETWEEN(ADD_MONTHS(SYSDATE)
  
  ------------------------------
  
  5