Fórum Duvida Cruel - A respeito de Datas #215870

daí no caso se eu quiser que apareça o nome do cliente que irá fazer aniversário, é só colocar depois do SELECT? eu tentei fazer mas retornou erro

Isso mesmo, você deverã adicionar na cláusula SELECT o campo referente ao nome do cliente e, ao final do seu sql, agrupar pelo nome do cliente:


// acrescente a unit DateUtils na cláusula uses
var
Aviso : Integer;
Arq : TextFile;
Linha : String;
Data: TDateTime;
Plural: string[1];
begin
AssignFile(Arq, ´C:\Aniversario.Txt´);
Reset(Arq);

While not Eof(Arq) do
Readln(Arq,Linha);
CloseFile(Arq);

try
Aviso := StrToInt(Linha);
except
Aviso := 0;
end;

Data := Date + Aviso; // já traz a data correta, somando-se os dias

Query1.Close;
Query1.SQL.Clear;
Query1.Sql.Text := ´SELECT [color=red:db9f1eecd8]NOMEDOCLIENTE[/color:db9f1eecd8],COUNT(DT_NASCIMENTO) TOTAL_CLIENTES FROM CLIENTES ´+
´ WHERE EXTRACT(DAY FROM DT_NASCIMENTO) = :pDIA ´+
´ AND EXTRACT(MONTH FROM DT_NASCIMENTO) = :pMES [color=red:db9f1eecd8]GROUP BY NOMEDOCLIENTE[/color:db9f1eecd8]´;
Query1.ParamByName(´pDia´).AsInteger := DayOf(Data);
Query1.ParamByName(´pMes´).AsInteger := MonthOf(Data);
Query1.Prepare;
Query1.Open;

if Query1.FieldByName(´TOTAL_CLIENTES´).AsInteger > 1
then Plural := ´s´
else Plural := ´´;

Label1.Caption := ´Há ´+Query1.FieldByName(´TOTAL_CLIENTES´).AsString+ ´ cliente´+Plural+´ fazendo aniversário´;
end;