Fórum Consulta ao Mês #191344

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 := ´´;