Pular para o conteúdo principal

Funções de Data e Hora (Delphi)

É muito comum nos depararmos no dia a dia com a necessidade de manipular datas e horas, seja para um calculo de permanência, dias de atraso enfim, é praticamente escapar de alguma situação que necessite desse tipo de controle.
Assim como a necessidade e se utilizar algum recurso para manipular as datas e horas de alguma maneira e freqüente, as duvidas de como o faze-lo também é, basta um breve olhar em qualquer fórum especializado e lá está, alguma duvida relacionada, por isso decidi falar um pouco sobre uma unit muito poderosa chamada DateUtils para a manipulação de data e hora, com um grande numero de métodos e classes que facilitam a vida de qualquer um.


Alguns exemplos:
  • CompareDate(constA, B: TDateTime): TValueRelationship;
Compara apenas a data de dois valores (do tipo TDateTime) retornando:
LessThanValue O primeiro valor é menor que o segundo
EqualsValue Os valores são iguais
GreaterThanValue O primeiro valor é maior que o segundo
  • CompareDateTime(const A, B: TDateTime): TValueRelationship;
O mesmo que o item anterior levando em consideração o horário também.
  • CompareTime(const A, B: TDateTime): TValueRelationship;
O mesmo que o item anterior levando em consideração apenas o horário.
  • IncDay(const AValue: TDateTime; const ANumberOfDays: Integer = 1): TDateTime;
Incrementa uma data de acordo com a quantidade de dias especificada.
  • IsPM(const AValue: TDateTime): Boolean;
Indica se a porção hora da data ocorre após o meio-dia.
  • DaySpan(const ANow, AThen: TDateTime): Double;
Retorna o numero de dias entre duas datas levando em consideração também as horas
  • DaysBetween(const ANow, AThen: TDateTime): Integer;
Retorna o número de dias entre duas datas sem levar em consideração as horas.
  • DateOf(const AValue: TDateTime): TDateTime;
Converte data e hora para apenas data.
  • DayOfTheMonth(const AValue: TDateTime): Word
Retorna o dia do mês (1 a 31) de uma data.
  • DayOfTheYear(const AValue: TDateTime): Word;
Retorna o numero de dias entre uma data e o dia 31 de dezembro do ano anterior
  • DayOfTheWeek(const AValue: TDateTime): Word;
Retorna o dia da semana de uma data, onde 1 representa segunda e 7 domingo
  • HourOf(const AValue: TDateTime): Word;
Retorna a quantidade de horas de uma data, variando de 0 a 23.
  • TimeOf(const AValue: TDateTime): TDateTime;
Retorna a porção de tempo de uma data.
  • WithinPastDays(const ANow, AThen: TDateTime; const ADays: Integer): Boolean;
Indica quando duas datas possuem o mesmo numero de dias.
  • WithinPastYears(const ANow, AThen: TDateTime; const AYears: Integer): Boolean;
Indica quando duas datas possuem o mesmo numero de anos.
  • YearsBetween(const ANow, AThen: TDateTime): Integer;
Retorna o numero aproximado de anos entre duas datas.

Bom caso haja alguma dúvida quanto a utilização das funções é só postar, abraços e até a próxima...

Comentários

  1. Opa, bom tópico, o dayspan resolveu meu problema, rsrs, valeu...

    ResponderExcluir
  2. Muito interessante. Pergunta? tem que instalar este componente? onde consigo?
    sergiopmattos@gmail.com

    ResponderExcluir
  3. Olá anônimo, o DateUtils é uma biblioteca do próprio Delphi, não tem que instalar nada, apenas declarar.. , abraços...

    ResponderExcluir

Postar um comentário

Obrigado por Participar do programero, fique a vontade para agradecer, retificar, perguntar ou sugerir.

Mais visitadas

Funções de data Oracle

  Com o Oracle é possível obter uma série de resultados a partir de uma ou mais datas, como por exemplo verificar o último dia do mês ou verificar a quantidade de meses entre duas datas, então vamos a alguns exemplos:   Data atual do sistema: SYSDATE Remover meses de uma data: ADD_MONTHS(SYSDATE, -1) Adicionar meses de uma data: ADD_MONTHS(SYSDATE, +1) Buscar o último dia do mês: LAST_DAY(SYSDATE) Primeiro dia do mês: TRUNC(SYSDATE, ‘MONTH’) Quantidade de meses entre duas datas: MONTHS_BETWEEN(SYSDATE, ‘27/07/1982’) Primeiro dia do ano: TRUNC(SYSDATE, ‘YEAR’) Dias da semana: DECODE( TO_NUMBER( TO_CHAR          (SYSDATE, ‘D’) ) ,1, ‘domingo’ ,2, ‘segunda-feira’ ,3, ‘terça-feira’ ,4, ‘quarta-feira’ ,5, ‘quinta-feira’ ,6, ‘sexta-feira’ ,7,’sábado’ )

Listar arquivos existentes em diretório (Delphi)

Mostraremos uma maneira simples e prática para listar o conteúdo de um diretório com a opção de incluir nessa listagem os arquivos de seus subdiretórios. No exemplo abaixo temos um Edit para receber o diretório a ser pesquisado um CheckBox para indicar se os subdiretórios entrarão na pesquisa um botão para efetuar a pesquisa e um Memo para listar os arquivos encontrados, no final um Edit que receberá o cálculo final (em bytes) da soma do tamanho dos arquivos. procedure TForm1.Button1Click(Sender: TObject); begin   tamanhoTotal := 0;   memLista.Lines.Clear;   ListarArquivos(edtDiretorio.Text, chkSub.Checked);   Edit1.Text := IntToStr( tamanhoTotal ); end; procedure TForm1.ListarArquivos(Diretorio: string; Sub:Boolean); var   F: TSearchRec;   Ret: Integer;   TempNome: string; begin   Ret := FindFirst(Diretorio+'\*.*', faAnyFile, F);   try     while Ret = 0 do       begin         if TemAtributo(F.Attr,

Manipular arquivos com PL/SQL (Oracle)

O bom e velho arquivo, é impressionante como lidamos com seus vários tipos durante todos os dias, bom hoje vamos mostrar um jeito simples de se escrever e ler arquivos apenas com a codificação nativa do Oracle. A primeira coisa a fazer é criar um diretório válido configurado no Oracle, e permissões de acesso a esse diretório para o usuário de banco onde faremos o exemplo, sendo assim suponhamos que nosso usuário de banco se chame programero, e nosso diretório real esteja em c:\programero, então logado como SYSTEM devemos executar os seguintes comandos: 1: -- cria diretorio 2: create or replace directory DIR_PROGRAMERO as ' C:\PROGRAMERO '; 3: -- concede permissão de escrita e leitura para nosso usuário 4: grant read , write on directory DIR_PROGRAMERO to PROGRAMERO; Para escrever, basicamente precisamos apenas saber onde esse arquivo ficará, no nosso caso no diretório criado acima, segue o código de escrita: 1: declare 2: -- nosso handler 3: v_a