Trabalhando com Date em Delphi

Trabalhar com datas e horas são fundamentais para qualquer aplicação comercial, para controlar a data e a hora que o funcionário entra e sai ou quando uma venda foi efetuada...
Existem diversas funções e procedimentos capazes de manipular datas e horas, e hoje vou mostrar algumas das rotinas mais usadas e como usa-las.

-Função Date

A função Date mostra a data no formato dd/mm/aaaa, vamos a um exemplo.

ShowMessage('Hoje é ' + DateToStr(Date));

Perceba que, usamos DateToStr para converter Date para String, pois ShowMessage aceita apenas String e Date é do tipo DateTime.

-Now

Podemos usar também o comando Now ao invés de Date, mas para isso, deveríamos converte-lo de DataTimeToStr para String.
Com isso, ele mostra não só a data, mas também a hora em hh:mm:ss.

ShowMessage('Hoje é ' + DataTimeToStr(Now));

-ShortDayNames e LongDayNames

Mostram respectivamente o dia do mês curto e escrito por extenso. (Jan / Janeiro).
Para isso, usamos o índice do dia da semana, de 1 a 7.

1-Domingo
2-Segunda
3-Terça
4-Quarta
...

Por exemplo, para mostrar o domingo, usamos:

LongDayNames[1];

ou

ShowMessage(LongDayNames[1]);

Se nós usarmos ShortDayNames o resultado seria:

ShowMessage(ShortDayNames[1]);

-DayOfWeek

Esse nos permite mostrar o dia da semana sem informar seu índice, por exemplo, quero saber que dia é hoje, então usamos a combinação de LongDayNames, DayOfWeek e Now para informar o dia de hoje.

ShowMessage('Hoje é ' + LongDayNames[DayOfWeek(Now)]);

-DayOfTheMonth e DayOfTheYear

DayOfTheMonth retorna o dia do mês, no caso, em número.

ShowMessage('Hoje é dia' + IntToStr(DayOfTheMonth(Now)));

DayOfTheYear nos retorna qual o dia do ano, neste caso, já se passaram 246 dias desde 1 de Janeiro.

ShowMessage('Hoje é o dia ' + IntToStr(DayOfTheYear(Now)) + ' do ano.');

IntToStr para converter Integer para String, pois as funções retornam números inteiros e ShowMessage só recebe String.

-LongMonthNames e MonthOfTheYear

Da mesma maneira que podemos trabalhar com dias, podemos também trabalhar com os meses.

ShowMessage('Estamos no mês de ' + LongMonthNames[MonthOfTheYear(Now)]);

Também pode-se trabalhar com ShortMonthNames para mostrar os meses abreviados.

Em breve faço um artigo com as outras funções para utilizar datas e Time em Delphi.
Abraço e até a próxima.