Buscar por:

Trabalho avançado com datas

Código

O delphi disponibiliza uma unit que oferece diversas rotinas de data/hora (pelo menos a partir da versão 7.0). A unit dateutils permite que você compare datas, extraia dias, meses ou anos entre datas, entre muitos outros cálculos.

Alguns exemplos:

// Declare dateutils para usar estas funções

DayOf(const AValue : TDateTime) : Word; // Extrai o dia de uma data

MonthOf(const AValue : TDateTime) : Word; // Extrai o mês de uma data

YearOf(const AValue : TDateTime) : Word; // Extrai o ano de uma data

HourOf(const AValue : TDateTime) : Word; // Extrai a hora de um horário informado

StartOfTheYear(const AValue : TDateTime) : Word; // Resulta o dia do ano corrente

EndOfTheMonth(const AValue : TDateTime) : Word; // Resulta no último dia do mês corrente

DaysBetween(const ANow, AThen: TDateTime): Integer; // Retorna o número de dias entre duas datas

DaysInAMonth(const AYear, AMonth: Word): Word; // Retorna o número de dias no mês informado (incluindo fevereiro de anos bissextos)

Tomorrow; // Resulta na data de amanhã