DateTimePicker com atualização automática

Nesse artigovou mostrar como fazer para colocar a data atual no componente TDateTimePicker, toda vez que o formulários em que ele se encontra for acionado.

Por | @jonathanlamimkt Programação
O componente TDateTimePicker quando é inserido em um formulário e não recebe nenhuma inplementação ou código adicional ele marca sempre a data em que o formulário foi criado. Nesse artigo vou mostrar como fazer para colocar a data atual no componente TDateTimePicker, toda vez que o formulários em que ele se encontra for acionado.

Inicie um novo aplicativo e insira os seguintes componentes:

2 DateTimePicker

No evento OnShow do formulário, coloque o código abaixo:

var
dia,mes,ano: string;
data: Tdatetime;
begin
dia:= formatdatetime('dd',date);
mes:= formatdatetime('mm',date);
ano:= formatdatetime('yyyy',date);
data:= strtodate(dia+'/'+mes+'/'+ano);
datetimepicker2.Date:= data;
end;


Entendendo o Código


formatedatetime(‘dd’,date) >> função que formata as partes da data (dia, mês, ano)
strtodate(dia+’/’+mês+’/’+ano) >> função que remonta a data
datetimepicker2.Date:= data >> envia para o componente DateTimePicker2 a data atual para que ele seja atualizado

Mais sobre: datas, delphi, atualizacao_automatica
Share Tweet
DESTAQUES
Mais compartilhados
Comentários