Consulta ao Mês
Quero fazer um Banco de Dados onde eu tenha cadastrado todos os dados dos clientes. Más o que eu realmente preciso é que se o cliente estiver efetuando uma compra no mês de seu aniversário, o nome dele apareça com algum destaque dentro do DBEDIT e também que apareça uma Label com a palavra Desconto, senão estiver no mês de aniversário não fazer nenhuma das ações selecionadas anteriormente, preciso disso com urgência. Se puder mandar para adrianokahn@ig.com.br ficarei muito rao pela atenção.
Obrigado
Adriano Barbosa de Souza (Kahn)
Obrigado
Adriano Barbosa de Souza (Kahn)
K@hn
Curtidas 0
Respostas
Luizfernando777
29/10/2003
Td blz,
faz o seguinte
´a função´
function TForm1.VerAniversario(vData: TDate):Boolean;
var // variaveis para decodificar as datas.
vAno, vMes, vDia : Word; // data de nasc.
dAno, dMes, dDia : Word; // data Atual;
begin
DecodeDate(vData, vAno, vMes, vDia); // decodifica a data de nasc.
// do seu cliente;
DecodeDate(Now, dAno, dMes, dDia); // decodifica a data atual
if vMes = dMes then // se mes de nasc. for igual ao mes atual
Result := True // retorna Verdadeiro
else // caso contrário
Result := False; // returna falso
end;
´como usar´
if VerAniversario(Table1Dt_Nasc.Value) = True then
begin
Label1.Font.Style := [ fsBold ];
Label1.Font.Color := clRed;
Label1.Caption := ´FELIZ ANIVERSÁRIO´;
end else
Label1.Caption := ´´;
faz o seguinte
´a função´
function TForm1.VerAniversario(vData: TDate):Boolean;
var // variaveis para decodificar as datas.
vAno, vMes, vDia : Word; // data de nasc.
dAno, dMes, dDia : Word; // data Atual;
begin
DecodeDate(vData, vAno, vMes, vDia); // decodifica a data de nasc.
// do seu cliente;
DecodeDate(Now, dAno, dMes, dDia); // decodifica a data atual
if vMes = dMes then // se mes de nasc. for igual ao mes atual
Result := True // retorna Verdadeiro
else // caso contrário
Result := False; // returna falso
end;
´como usar´
if VerAniversario(Table1Dt_Nasc.Value) = True then
begin
Label1.Font.Style := [ fsBold ];
Label1.Font.Color := clRed;
Label1.Caption := ´FELIZ ANIVERSÁRIO´;
end else
Label1.Caption := ´´;
GOSTEI 0
K@hn
29/10/2003
Td blz,
faz o seguinte
´a função´
function TForm1.VerAniversario(vData: TDate):Boolean;
var // variaveis para decodificar as datas.
vAno, vMes, vDia : Word; // data de nasc.
dAno, dMes, dDia : Word; // data Atual;
begin
DecodeDate(vData, vAno, vMes, vDia); // decodifica a data de nasc.
// do seu cliente;
DecodeDate(Now, dAno, dMes, dDia); // decodifica a data atual
if vMes = dMes then // se mes de nasc. for igual ao mes atual
Result := True // retorna Verdadeiro
else // caso contrário
Result := False; // returna falso
end;
´como usar´
if VerAniversario(Table1Dt_Nasc.Value) = True then
begin
Label1.Font.Style := [ fsBold ];
Label1.Font.Color := clRed;
Label1.Caption := ´FELIZ ANIVERSÁRIO´;
end else
Label1.Caption := ´´;
OBRIGADO PELO CÓDIGO FONTE, JÁ UTILIZEI E DEU CERTO, ME FOI MUITO ÚTIL.
OBRIGADO MESMO.
GOSTEI 0
Luizfernando777
29/10/2003
se precisar de mais alguma coisa,
é só escrever
luizfernando777@yahoo.com.br
é só escrever
luizfernando777@yahoo.com.br
GOSTEI 0