Dicas Delphi - Verificando se uma data informada cai em um final de semana

Function IsWeekEnd (dData : TDateTime) : boolean;
begin
result := false;
if (DayOfWeek(dData) = 1) or (DayOfWeek(dData) = 7) Then
result := true;
end;

Dicas Delphi - Verificando Ano Bixesto

// Verifica se um ano é bixesto, retornando True em caso positivo}

function AnoBis(Data: TDateTime): Boolean;
var
Dia,Mes,Ano : Word;
begin
DecodeDate(Data,Ano,Mes,Dia);
if Ano mod 4 <> 0 then
AnoBis := False
else if Ano mod 100 <> 0 then
AnoBis := True
else if Ano mod 400 <> 0 then
AnoBis := False
else
AnoBis := True;
end;

Dicas Delphi - Acertando a Data e Hora do Sistema

procedure TForm1.Button1Click(Sender: TObject);
var
DataHora: TSystemTime;
Data, Hora: TDateTime;
Ano, Mes, Dia,
H, M, S, Mil: word;
begin
Data := StrToDate(Edit1.Text);
Hora := StrToTime(Edit2.Text);
DecodeDate(Data, Ano, Mes, Dia);
DecodeTime(Hora, H, M, S, Mil);
with DataHora do
begin
wYear := Ano;
wMonth := Mes;
wDay := Dia;
wHour := H;
wMinute := M;
wSecond := S;
wMilliseconds := Mil;
end;
SetLocalTime(DataHora);
end;

No Edit1 digite a nova data e no Edit2 digite a nova hora.

Dicas Delphi - Teclas de Função [F1, F2, F3...]

Mude a propriedade KeyPreview do Form para True

procedure Tform1.FormKeyDown(Sender:TObject; var Key: Word; Shift: TShifState);
begin
if key = vk_F1 Then
{comando desejado}
end;

Dicas Delphi - Enter funcionar com Tab

Para fazer a tecla Enter funcionar como Tab é um processo de 3 passos:

1) Setar a propriedade KeyPreview da Form para True

2) Setar a propriedade Default de todos os botões da Form para False

3) Criar um evento OnKeyPress para a Form como este:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
Perform(Wm_NextDlgCtl,0,0);
end;
end;

DBA Day Online

Aumente seus conhecimentos como DBA e passe a gerenciar múltiplos bancos de dados

Gerenciar diversas plataformas de bancos de dados dificulta o trabalho do DBA. Uma série de diferentes questões que podem surgir devem ser abordadas. Pode um DBA administrar todos os diferentes sistemas de gerenciamento de dados ou cada DBMS requer um DBA dedicado?

DBA Day é um dia inteiro de apresentações online, 100% técnicas e exclusivo para DBAs, focado em questões relacionadas ao desenvolvimento e gerenciamento de banco de dados.

Você aprenderá a:

• Entender a arquitetura do banco de dados e compartilhar informação com o seu time de desenvolvimento
• Usar uma única interface para gerenciar bancos de dados Oracle, DB2, SQL Server, Sybase e MySQL
• Localizar e resolver problemas com SQL em um clique
• Detectar problemas em banco de dados antes que eles ocorram, sendo proativo e não reativo
• Reduzir erros, re-trabalho e esforço através do gerenciamento de mudanças no banco de dados integrado com desenvolvimento de software
  

Um dia inteiro de apresentações online, 100% técnicas e exclusivo para DBAs.

Faça sua inscrição aqui

Delphi Webinar - Porque migrar para Delphi 2009

A Embarcadero Technologies preparou pra você que ainda não migrou para Delphi 2009 um
evento online para tirar todas as suas dúvidas.

Efetuando seu registro, você garante no mínimo 30% de desconto na compra de Delphi, RAD
Studio, C++ Builder e InterBase, desconto válido para novas licenças e atualização.

Participe do evento online gratuito "Razões para migrar" e conheça todas as novidades que vão
ajudar ainda mais o desenvolvimento de seus sistemas.

Serão 3 horas na prática de novos recursos incorporados ao Delphi desde a versão 7, como:
novidades no IDE, linguagem, VCL, documentação, banco de dados, modelagem e muito mais.

Para participar, efetue o seu registro agora mesmo.

https://www124.livemeeting.com/lrs/advancedsw_ccc/Registration.aspx?pageName=991mhh5r2rs7j70h


Marcos Antonio