PHSYS - Wiki

A função DayOfWeek retorna a data atual do sistema sem a parte de hora.

Sintaxe

Function Date: TDateTime;

Exemplos

var
  dataAtual: TDateTime;
  dataStr: string;
begin
  dataAtual := Date;
  dataStr := DateToStr(dataAtual); // Converte a data para uma string legível
  Informacao(dataStr);
end.